Re : Formulaire de saisie automatique (je pense résolu)
Bonsoir,
J y suis arrivées, voici le code de l'usurform
Private Sub UserForm_Initialize()
' initialisation de la position (3 derniers saisies)
i = Range("A65536").End(xlUp).Row - 2
j = Range("A65536").End(xlUp).Row - 1
k = Range("A65536").End(xlUp).Row
' Magasin
TextBoxNomMagasin1 = Cells(i, 1).Value
TextBoxNomMagasin2 = Cells(j, 1).Value
TextBoxNomMagasin3 = Cells(k, 1).Value
'Chiffre Affaire Magasin (Saisie du nom du magasin)
TextBoxCANomMagasin1 = Cells(i, 1).Offset(0, 1).Value
TextBoxCANomMagasin2 = Cells(j, 1).Offset(0, 1).Value
TextBoxCANomMagasin3 = Cells(k, 1).Offset(0, 1).Value
End Sub
Private Sub CommandButtonValider_Click()
' initialisation de la position (A la suite)
i = Range("A65536").End(xlUp).Row
'Magasin (Saisie du nom du magasin)
Cells(i, 1).Offset(1, 0).Value = TextBoxNomMagasin1
Cells(i + 1, 1).Offset(1, 0).Value = TextBoxNomMagasin2
Cells(i + 2, 1).Offset(1, 0).Value = TextBoxNomMagasin3
'Chiffre Affaire Magasin (Saisie du nom du magasin)
Cells(i, 1).Offset(1, 1).Value = TextBoxCANomMagasin2
Cells(i + 1, 1).Offset(1, 1).Value = TextBoxCANomMagasin3
Cells(i + 2, 1).Offset(1, 1).Value = TextBoxCANomMagasin1
End Sub
J'attache le fichier joint
Ps si vous avez une question je peux vous aider je regarderais demain si vous mavez répondu
laurent