Suppression de lignes
Bonjour!
J'ai besoin d'une petite aide.
En effet, à partir d'une macro je récupère plusieurs informations et des calculs.
Cependant, j'aurais besoin de garder seulement la dernière ligne d'une colonne.
La ligne de l'information peut varier et n'est pas toujours à la même ligne.
Je vous partage ci-joint un exemple des informations que je souhaiterais supprimer (ce qui est entouré).
Merci par avance pour votre aide.
Bonjour,
En VBA, repérer la dernière ligne d'une colonne s'effectue ainsi :
LigneMax = Range("A" & Rows.Count).End(xlUp).Row Il suffit ensuite de supprimer les lignes avant celle-ci (mais en gardant la ligne 1 d'en-tête) :
Rows(2:LigneMax).Delete Shift:=xlUpBonjour Pedro,
voici 4 petites corrections :
1) avec Rows(2:LigneMax) : ça marche pas ! faut utiliser : Rows(2 & ":" & LigneMax)
2) ton xlUp est inutile pour une ligne entière ! donc pas .Delete xlUp mais simplement .Delete
3) avec ta 1ère instruction, LigneMax contient la ligne du dernier nombre de la colonne : la ligne du 19.680,98
➯ ta 2ème instruction doit être : Rows(2 & ":" & LigneMax - 1).Delete
sinon, tu supprimes le dernier nombre, alors qu'il faut le garder !
4) de plus, si la macro est exécutée alors qu'il y a un seul nombre dans la colonne, ou même aucun : big problem !
d'où le test If dans les 3 codes que je propose ci-dessous
toujours en supposant que la colonne "Calcul" est la colonne A, je propose :
* si on veut supprimer les lignes entières (donc sans utiliser xlUp
lig = Cells(Rows.Count, 1).End(xlUp).Row - 1
If lig > 1 Then Rows(2 & ":" & lig).Delete* si le tableau est des colonnes A à F et qu'on veut supprimer seulement les lignes du tableau (mais pas d'éventuelles autres données à droite, hors tableau) :
lig = Cells(Rows.Count, 1).End(xlUp).Row - 1
If lig > 1 Then Range("A2:F" & lig).Delete xlUp* si on veut supprimer que les données de la colonne A :
lig = Cells(Rows.Count, 1).End(xlUp).Row - 1
If lig > 1 Then Range("A2:A" & lig).Delete xlUpmes excuses d'avance si j'me suis trompé quelque part !
dhany