Copier le contenu d'une TextBox dans une cellule à condition

[Skydex]

Bonjour,

Je viens vous demandez de l'aide sur ce forum, aujourd’hui, afin de régler un problème qui me bloque dans mon codage sur VBA.

- J'ai créé une Combobox1 dans laquelle il y a +/- 80éléments, les coordonnées sont C6:C87

- J'ai créé une TextBox1 dans laquelle l'utilisateur peut mettre ce qu'il souhaite.

- J'ai crée un CommandButton4 qui permet d'envoyer le contenu du TextBox1 dans la cellule qui se trouve une colonne plus loin que l'élément sélectionné de la Combobox1 mais sur la même ligne.

Comment faire en sorte que le bouton envois le texte une colonne plus loin que l'élément ?

Merci d'avance pour vos réponses.

 

[jpb388]

Re : Copier le contenu d'une TextBox dans une cellule à condition

Bonjour le forum
peut être activecel.offset(0,1)

 

[fhoest]

Re : Copier le contenu d'une TextBox dans une cellule à condition

Bonjour,
soit avec le solution proposée par Jpb388 ou soit comme ceci

cells(ligne,column)

ou encore

range(" & variable colonne & "n°ligne")

A+

 

[Si...]

Re : Copier le contenu d'une TextBox dans une cellule à condition

salut

entre autres

Private Sub CommandButton4_Click()
  If ComboBox1.ListIndex = -1 Then Exit Sub
  Cells(ComboBox1.ListIndex + 6, 4) = TextBox1
End Sub

 

[Skydex]

Re : Copier le contenu d'une TextBox dans une cellule à condition

Merci de vos réponses je vais vite tester ça