Bonjour,

es ce que quelqu'un peu m aider svp , je souhaiterai savoir comment je peu déclarer une variable , colonnesuivante , pour que celle ci contrôle des listbox et textbox dans un userform , c'est a dire quand j'appuie sur le bouton1, a chaque click les listbox et textbox controle la colonne vide suivante .

voici mon code :

Private Sub OptionButton1_Click()
Load UserForm1
UserForm1.Show
End Sub

macro 1 : a affecte au boutoncommande1 :

Sub remplircolonnesuivante()
' ma variable
Dim colonneSuivante As Long

' la condition
If OptionButton1 = True Then
Load UserForm1
UserForm1.Show

'definir la colonne suivante
colonneSuivante = _
Application.WorksheetFunction.CountA

' Transfère le contenu des listbox et texbox : c'est ici je sai pa comment faire pour que je controle les cellules de la colonne suivante

Cells(colonneSuivante, 1) = ListBox.Text
Cells(colonneSuivante, 2) = TextBox1.Text
End If

End Sub

merci de votre aide

n'hésitez pas a me demande plus d'information si vous le souhaitez.

Configuration: Windows XP
Firefox 3.0.10