Impossible ajouter une ligne

M

Moa

Guest

• 6 Février 2004

• #2

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 6 Février 2004

• #3

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 6 Février 2004

• #4

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

 

Vote positif 0 Vote négatif

R

Riri

Guest

• 6 Février 2004

• #5

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

 

Vote positif 0 Vote négatif