Bonsoir Nagrom, le forum,
Donc pour la premiere question, le code suivant devrais faire l'affaire.
private sub commandbutton1_click()
Dim L As Integer
L = Sheets('Feuil1').Range('a65536')End(XlUp).Row ' Trouve automatiquement la derniere cellule renseignee en imaginant bien entendu que ta colonne A soit en Feuil1
Userform1.TextBox1.value = Sheets('feuil1').range('A' & L) + 1
End sub
Par contre pour ta deuxieme question, je planche encore dessus parce que j'ai un peu oublie comment faire...
Mais en gros
Private Sub CommandButton1_click()
If Sheets('feuil1').Range('A1') = UserForm1.TextBox1.value then
MsgBox 'Saisie deja effectuee, veuillez verifier'
Exit Sub
end If
End Sub
Mais ca, ca ne fait la verif que pour la cellule A1, pas les autres.
J'espere que ca va commencer a t'aider
Bonne soiree
Olivier
Message édité par: Deudecos, à: 11/09/2005 21:12