'dans général Dim compteur_ligne = 3 'si 3 est la premiere ligne que tu utilises Private Sub CommandButton1_Click() msg = "CONFIRMATION ENREGISTREMENT DU STOCK" Title = "VOULEZ VOUS CONTINUER?" reponse = MsgBox(Title, vbYesNoCancel, msg) If reponse = 6 Then MsgBox jour + " " + mois + " " + textannee.Value Cells(1,compteur_ligne) = jour '****** Cells(2,compteur_ligne) = mois '****** Compteur_ligne = compteur_ligne + 1 Else MsgBox "Annulation effectuée" End If End Sub End sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim compteur_ligne 'désolé pour l'erreur Private Sub UserForm_Initialize() ' au lancement de ta feuille la variable prendra la valeur 3 compteur_ligne = 3 End Sub Private Sub CommandButton1_Click() msg = "CONFIRMATION ENREGISTREMENT DU STOCK" Title = "VOULEZ VOUS CONTINUER?" reponse = MsgBox(Title, vbYesNoCancel, msg) If reponse = 6 Then MsgBox jour + " " + mois + " " + textannee.Value Cells(compteur_ligne, 1) = jour '<====== j'avais interverti colonne et ligne Cells(compteur_ligne, 2) = mois compteur_ligne = compteur_ligne + 1 Else MsgBox "Annulation effectuée" End If End Sub