Supprime lignes vides sous 3 conditions

[lefrizey]

Bonjour à tous,

Je souhaite effacer entièrement une ligne dans une feuille si sur une même ligne, les cellules Ai, Bi et Gi sont vides.
J'ai écris une ligne de commande qui ne marche pas :

Sub SUP_LIGNES_CDTS()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i) = "" And Range("B" & i) = "" And Range("G" & i) = "" Then Range("A" & i).EntireRow.Delete
next i
End sub


Merci à tous!

 

[mutzik]

Re : Supprime lignes vides sous 3 conditions

bonjour
il manque ="" dans ta condition derriere le range("G"&i)

 

[lefrizey]

Re : Supprime lignes vides sous 3 conditions

Bjr Mutzik,
J'ai rectifié la syntaxe comme tu me l'as fait observé. C'est juste une omission, mais la macro avait correctement intégré cette condition. Peut-être c'est parce que j'introduis 3 conditions???
Ça ne marche toujours pas.

 

[mutzik]

Re : Supprime lignes vides sous 3 conditions

re,

sur un petit nombre de ligne, j'ai fait le test et cela fonctionnait
par contre j'ai remplacé ton delete par select pour vérifier le fonctionnement
j'ai également dupliqué cette ligne en remplaçant partout ="" par =0
j'ai aussi déclaré ma variable i avec Dim i (ce qui est un très bonne habitude à prendre)


en exécution pas à pas dans VBA (par F8), cela fonctionne correctement, je viens de refaire le test

sinon dis-nous ou ça coince

 

[lefrizey]

Re : Supprime lignes vides sous 3 conditions

Je t'envoie le fichier dans lequel j'ai mis la macro et qui ne marche pas.

 

[Dull]

Re : Supprime lignes vides sous 3 conditions

Salut lefrizey, Bertrand, le Forum

C'est tout à fait normal tu prend pour colonne de référence une Colonne Vide
essaye avec la colonne B comme colonne de référence

Sub Suppr_Lignes_En_FONCT_3_Cell()
Dim i As Integer

'
' Suppr_Lignes_En_FONCT_3_Cell Macro
' Supprime la ligne entière si les cellules Ai, Bi et Gi sont vides
'

'
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Range("A" & i) = 0 And Range("B" & i) = 0 And Range("G" & i) = 0 Then Range("A" & i).EntireRow.Delete
Next i


End Sub

Bonne Journée

 

[natorp]

Re : Supprime lignes vides sous 3 conditions

Bjr lefrizey et mutzik

avec cette ligne :

For i = Range("A65536").End(xlUp).Row To 2 Step -1

tu te positionnes sur la première cellule non vide de la colonne A en partant de la fin
or dans ton fichier toutes les cellules de la colonne A sont vides
inscrit un mot en A21 et lance la macro...

Cordialement, Gérard

Edit : bjr Dull

 

[lefrizey]

Re : Supprime lignes vides sous 3 conditions

Merci,
C'est parfait.

 

[lefrizey]

Re : Supprime lignes vides sous 3 conditions

Merci, avec Range("B65536"), ça fonctionne correctement.
Merci encore!
Bonne journée à tous!