Comment faire ?

Le
GARAULT
bonjour,

commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule merci

Private Sub CommandButton1_Click()

' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 .. ect '
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
GARAULT
Le #4961871
bien non désolé sa répond pas à mes attentes ou bien je suis trop nul


ben toutes les réponses que tu as déjà eues ne conviennent pas ?


"GARAULT" news:
bonjour,

commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci

Private Sub CommandButton1_Click()

' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '








j
Le #4961821
je reprends la sub de serge un poil modifiée :

Private Sub CommandButton1_Click()
Dim p As Range
Dim t As String
Set p = Worksheets("Feuil2").Columns(2)
t = TextBox3.Value
If p.Cells(6) = "" Then p.Cells(6) = " "
p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t
End Sub

les Dim c'est pour faire joli (j'entends déjà les hurlements des puristes)
Set p = Worksheets("Feuil2").Columns(2), tu nommes p l'objet colonne B
t = TextBox3.Value tu récupères la valeur de ton textbox3
If p.Cells(1, 1) = "" Then p.Cells(1, 1) = " " ça c'est juste question de
dire qu'il y a déjà quelque chose dans la colonne B
p.Cells.Find(What:="*", SearchDirection:=xlPrevious).Offset(1, 0) = t là
c'est plus rigolo, on demande à excel de chercher dans p (donc dans la
colonne B), la première cellule contenant quelque chose ("*" est un joker
qui veut dire pas vide), en partant à l'envers donc de bas en haut
(xlprevious), et quand on a trouvé (et on trouvera puisqu'on a pris soin de
s'assurer qu'il avait bien quelque chose) on décale d'une ligne vers le bas
(offset(1,0) ) de facon à se trouver dans la première cellule vide de la
colonne B pour y inscrire t, et donc le contenu du textbox
ça va ?

http://jacxl.free.fr







"GARAULT" news:
bonjour,

commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci

Private Sub CommandButton1_Click()

' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '



garnote
Le #4961811
Salut Garault,

Et ceci, ça te convient ?

Private Sub CommandButton1_Click()
If [Feuil2].[b7] = "" Then
[Feuil2].[b7] = TextBox3
Else
[Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3
End If
End Sub

Serge


"GARAULT"
bonjour,

commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci

Private Sub CommandButton1_Click()

' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '



garnote
Le #4961781
Plus propre ;-)

Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim T As String
Set F = [Feuil2]
T = TextBox3
'Le 3 du End(3) signifie xlUp
If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T
End Sub

Serge


"garnote"
Salut Garault,

Et ceci, ça te convient ?

Private Sub CommandButton1_Click()
If [Feuil2].[b7] = "" Then
[Feuil2].[b7] = TextBox3
Else
[Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3
End If
End Sub

Serge


"GARAULT"
bonjour,

commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci

Private Sub CommandButton1_Click()

' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '







GARAULT
Le #4961621
Presque ça, j'explique :

If CommandButton3.Visible = True Then
T = TextBox4
'Le 3 du End(3) signifie xlUp
If F.[f8] = "" Then F.[f8] = T Else F.[f65535].End(3).Offset(1, 0) = T

' et écrit dans G8 "."
( tout en conservant le principe d'écrire sur la bonne ligne)



Plus propre ;-)

Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim T As String
Set F = [Feuil2]
T = TextBox3
'Le 3 du End(3) signifie xlUp
If F.[b7] = "" Then F.[b7] = T Else F.[B65535].End(3).Offset(1, 0) = T
End Sub

Serge


"garnote"
Salut Garault,

Et ceci, ça te convient ?

Private Sub CommandButton1_Click()
If [Feuil2].[b7] = "" Then
[Feuil2].[b7] = TextBox3
Else
[Feuil2].[B65535].End(xlUp).Offset(1, 0) = TextBox3
End If
End Sub

Serge


"GARAULT"
bonjour,

commandbutton envoie une valeur.
qui peut m'aider dans l'exemple suivant a remplacer les phrases entre ' '
par une formule... merci

Private Sub CommandButton1_Click()

' si la cellule b7 de la feuil2 est vide alors : '
.Cells(7, 2).Value = TextBox3.Value
' sinon écrire dans b8 sinon b9 ..... ect '












Publicité
Poster une réponse
Anonyme