Impossible ajouter une ligne

[Riri]

Bonjours à tous,
Mon problème est que je n'arrive pas à ajouter une ligne dans une liste qui se trouve sur la feuille 2 avec la boite de dialogue nouveau salarie de la feuille 1. Merci pour tout renseignement .
PS fichier joint

 

[Moa]

Salut Riri !

C'est normal que cela bug, il te manque un test vérifiant si ta première ligne est vide.

Car comme tu fais un "End XlDown" et qu'il n'y a pas de données dans ta première ligne, tu te retrouves systématiquement à la ligne 65 536 de ta feuille.

Donc comme après tu fais un offset de une ligne et que tu es déjà à la dernière....chose impossible.

@ +

Moa

 

[Moa]

Re Riri !

J'ai regardé un peu trop vite.

En fait tu as bien fait un test auparavant, mais il n'est pas bon, donc Excel reste dans la cellule sélectionnée avec ton "End(xlDown).

En regardant vite fait, l'erreur serait dans cette ligne :

If Selection.Address = "C65536" Then

Je te laisse cogiter, je dois m'absenter et je suis en retard.

@ +

Moa

 

[Moa]

Re Riri !

Je ne suis pas encore partis, alors vite fait j'ai modifié ta macro :

Private Sub ComdAjouter_Click()
Sheets("Liste").Activate
If Range("C11") <> "" Then
Range("C10").End(xlDown).Offset(1, 0).Select
Else
Range("C11").Select
End If
ActiveCell.Value = UserForm1.TextNom
etc...
etc....

@ +

Moa

 

[Riri]

Salut Moa,
Je te remerci pour ton aide et je te souhaite une bonne soirée.
A bientôt