Suppression lignes

[famu]

Bonjour à tout le Forum,

Voici mon problème :

For i = "Dernière ligne de la zone" To 2 Step -1
If Cells(i, 2) = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next

Question : Comment démarrer le compteur à la "Dernière ligne de la zone" ?

Merci pour votre précieuse aide.
Salut,
Famu

 

[Compte Supprimé 979]

Re : Suppression lignes

Bonjour Famu,

Dernière ligne de la zone = Range("A65536").End(XlUp).Row

Si dans la colonne A se trouve des données !

C'est comme si tu te mettais sur la dernière ligne de la colonne A et que faisais CTRL+FLECHE vers le HAUT

Voilà 😉

 

[IsabelleC]

Re : Suppression lignes

bonjour,

en déclarant une variable

dim DerniereLigne as long

DerniereLigne = range("A65536").end(xlup).row
la variable va stoker le n° de la dernère ligne

(mets ta variable sur une colonne qui ne comporte pas de trous)

isabelle

 

[famu]

Re : Suppression lignes

bonjour,

en déclarant une variable

dim DerniereLigne as long

DerniereLigne = range("A65536").end(xlup).row
la variable va stoker le n° de la dernère ligne

(mets ta variable sur une colonne qui ne comporte pas de trous)

isabelle

MERCI Isabelle MERCI Bruno

Je viens d'essayer ceci (solution d'Isabelle) et ça marche nickel.

Dim i As Integer
For i = Range("a65536").End(xlUp).Row To 2 Step -1
If Range("a" & i) = 0 Then Rows(i).Delete
Next i

Encore merci et bonne journée à tous,
Famu

 

[Compte Supprimé 979]

Re : Suppression lignes

Heuu...

Solution d'Isabelle 😕

bonjour,
en déclarant une variable

dim DerniereLigne as long
DerniereLigne = range("A65536").end(xlup).row
la variable va stoker le n° de la dernère ligne

(mets ta variable sur une colonne qui ne comporte pas de trous)

Pas vraiment !

Bon je sais qu'on a toujours tendance à prévilégier la gente Féminine, mais là quand même, c'est de la discrimination 😀

Je m'en vais changer de Pseudo tout de suite ....