Bonjour APPRENTI,
Ooops, j'avais abrégé Rows(lig & ":" & lig).Delete Shift:=xlUp
en : Rows(lig).Delete Shift:=xlUp ou Rows(lig).Delete 3
mais comme on supprime la ligne entière, le xlUp est inutile !
donc ça devient tout simplement : Rows(lig).Delete
En fait, c'est utile d'utiliser Shift:=xlUp uniquement pour une plage limitée
de cellules ; exemple : [F5:M5].Delete Shift:=xlUp ou [F5:M5].Delete 3
et aussi, en même temps, s'il y a quelque chose d'autre à gauche ou
à droite qui ne doit pas être « remonté » ; pour le même exemple,
c'est les colonnes A:E à gauche, et par exemple N:R à droite.
Note bien que s'il n'y a rien à gauche ni à droite de la plage « remontée »,
alors Rows(5).Delete aura le même résultat que [F5:M5].Delete 3
Pour ton exemple Cells(lig, 1).Delete xlUp ou Cells(lig, 1).Delete 3 : c'est en
colonne A ➯ si tu n'as rien à droite, ni en colonne B, ni plus à droite, alors
Rows(lig).Delete aura le même résultat ; c'est seulement s'il y a quelque
chose en B ou plus à droite qui ne doit pas être remonté en même temps
que tes données en A que c'est utile d'utiliser Cells(lig, 1).Delete 3 au lieu de
Rows(lig).Delete.
Note aussi que sur la feuille de calcul :
* Rows(lig).Delete est l'équivalent de supprimer la ligne lig (évident)
* Cells(lig, 1).Delete 3 est l'équivalent de : sélectionner la cellule qui est
en colonne A et en ligne lig ; puis : onglet Accueil, groupe Cellules,
commande Supprimer / Supprimer les cellules...
soan