Bonjour,
Pouvez vous m'aider svp?
Je recherche à faire quelque chose de plutot simple mais je perd pied
Je m'explique :
en A1 je n'ai rien, en B1 j'ai X, en C1 je n'ai rien, en D1 j'ai X.
Je voudrai que mes colonnes où je n'ai rien soient supprimées.
Pour le faire en ligne, il n'y a pas de problème mais en colonne, je ne sais pas comment incrémenter les lettres.
Voici ce que je ferrai si le problème était en ligne :
en A1 je n'ai rien, en A2 j'ai X, En A3 je n'ai rien, en A4 j'ai X.
ligne=1
While ("A" & ligne) = "A10"
If Range("A" & ligne) = "" Then
Rows("ligne:ligne").Select
Selection.Delete Shift:=xlUp
End If
ligne=ligne+1
Wend
J'espère être clair...
Merci de votre aide.
Pouvez vous m'aider svp?
Je recherche à faire quelque chose de plutot simple mais je perd pied
Je m'explique :
en A1 je n'ai rien, en B1 j'ai X, en C1 je n'ai rien, en D1 j'ai X.
Je voudrai que mes colonnes où je n'ai rien soient supprimées.
Pour le faire en ligne, il n'y a pas de problème mais en colonne, je ne sais pas comment incrémenter les lettres.
Voici ce que je ferrai si le problème était en ligne :
en A1 je n'ai rien, en A2 j'ai X, En A3 je n'ai rien, en A4 j'ai X.
ligne=1
While ("A" & ligne) = "A10"
If Range("A" & ligne) = "" Then
Rows("ligne:ligne").Select
Selection.Delete Shift:=xlUp
End If
ligne=ligne+1
Wend
J'espère être clair...
Merci de votre aide.