Bonjour

dite moi svp une derniere chose , es ce que je peu lui dire de faire la meme chose mais a chque ouverture du userform,

c'est a dire , je créer un bouton pour charger le userform

et a chaque ouverture du userform quand je click sur mon bouton que vous mavez donne ca fai la meme chose
jai essai ca mais ca ne marche pas :

Option Explicit

Private col As Integer

Admettons que la première colonne que tu remplis soit la B, dans Sub UserFom1_Initialize, tu mets col = 2 et dans l'évènement Click() du bouton tu fais :


Sub commandButton1_Click()
Sheets(1).Cells(1, col).Value = TextBox1.Text
col = col + 1
End Sub


jusqui ici ca marche mais si je change mon bouton en rajouton la condition ca ne marche pa

Sub commandButton1_Click()

If userform1.show then

Sheets(1).Cells(1, col).Value = TextBox1.Text
col = col + 1
End if
End Sub

ca c'est mon bouton pour ouvrir le userform

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

merci de votre