bonjour

Je crée une application de gestion des bénévoles

j'ai 4 pages ;

données générales
entre autre je crée une entrée dans la table combobox1 utilisée dans USERFORM1
cela se fait en rallongement et j'obtiens la dernière ligne via

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
l = Sheets("BASE DE GESTION").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE
Else: Exit Sub
End If
 
ws.Range("A" & l).Value = (TextBox1 + TextBox8)
ws.Range("B" & l).Value = TextBox1 
' ect ect
J'utilise la même solution dans la gestion des compétences (USERFORM2)
mais le résultat donne la ligne 0
Code : Sélectionner tout - Visualiser dans une fenêtre à part
   Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
puis en regardant le tuto j'ai utilisé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
l = Sheets("liste competences par personnes").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
avec toujours 0 comme valeur

J'ai parcouru l'explorateur, la doc mais je ne trouve rien

je suis débutant


si quelqu'un 'une) pouvait m'aider ce serait un grand plaisir car je dois finir ma tâche cette semaine

merci d'avance


si besoin je peux envoyer mon fichier

cordialement