Renvoyer la valeur d'une textbox dans des cellules à la suite

[btellier]

Bonjour à tous,

Le code ci-dessous me permet de récuperer la valeur d'une textbox et me la colle dans la cellule A1:

Sheets("Fichierclients").Range("A1").End(xlUp).Offset(1, 0) = TextBox1.Text

Je n'arrive pas à leur faire évoluer vers ce que je veux. Pour faire court, j'aimerai qu'au lieu de coller la valeur en A1, il me colle la valeur à 2 cellules sur la droite d'une cellule contenant un nom récupéré dans une combobox. Je mets un fichiers en pj pour illustrer. Merci par avance si vous pouvez m'éclairer la dessus.😕

Benoit.

 

[youky(BJ)]

Re : Renvoyer la valeur d'une textbox dans des cellules à la suite

Bonsoir,
Peut être comme ceci
Bruno

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
Sheets("Fichierclients").Cells(ComboBox1.ListIndex + 1, 4) = TextBox1.Text
End Sub

 

[btellier]

Re : Renvoyer la valeur d'une textbox dans des cellules à la suite

Merci 1000 fois Youki c'est exactement ce que je voulais

 

[youky(BJ)]

Re : Renvoyer la valeur d'une textbox dans des cellules à la suite

Merci du retour,
Je te joint un nouveau fichier car j'ai trouvé une erreur de conjugaison
dans les millimes j'avais oublié des conjugaisons ..exemple "deux cents trois" alors qu'il faut "deux cent trois" ..."cent"prend un S que si rien derrière
et j'avais laissé des "centimes" au lieu "millimes"
Voici
Bruno

OUPS! ....me suis trompé de destinataire
Merci aussi