Discussion :

[thomas57]

Bonjour à tous,

J'ai une feuille "Données" alimentée par une requête SQL, et une feuille Tableau.
Dans ce tableau j'ai une centaine de lignes avec des noms différents de bâtiments écrit "en dur", j'ai un code VBA qui va voir dans la feuille "Données" si le bâtiment a un prix HT DDT et un prix HT final, sinon il supprime les lignes dans la feuille "Tableau" des bâtiments qui ne contiennent pas de prix HT final.

jusqu’à présent j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
'code permetant de supprimer les lignes vides
    Set CelluleCourante1 = Range("a36")
 Do While Not IsEmpty(CelluleCourante1)
    If Cells(CelluleCourante1.Row, 4).Value = 0 Then
           Range("a" & CelluleCourante1.Row, "f" & CelluleCourante1.Row).Delete
            Set CelluleCourante1 = Range("a36")
    End If
 Set CelluleSuivante1 = CelluleCourante1.Offset(1, 0)
 Set CelluleCourante1 = CelluleSuivante1
 Loop

mais je doit évoluer mon code pour qu'il ne vérifie pas que la colonne 4, mais aussi la colonne 2, par exemple si les cellules "a2" et "a4" sont vides alors supprimer la ligne.
j'ai essayé cela mais sa ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
'code permetant de supprimer les lignes vides
    Set CelluleCourante1 = Range("a36")
 Do While Not IsEmpty(CelluleCourante1)
    If Cells(CelluleCourante1.Row, 2).Value = 0 & Cells(CelluleCourante1.Row, 4).Value = 0 Then
           Range("a" & CelluleCourante1.Row, "f" & CelluleCourante1.Row).Delete
            Set CelluleCourante1 = Range("a36")
    End If
 Set CelluleSuivante1 = CelluleCourante1.Offset(1, 0)
 Set CelluleCourante1 = CelluleSuivante1
 Loop

j’espère que ce n'est pas trop confus,

je m'arrache les cheveux sur ça , merci

[BDA53]

Salut,

et si tu faisais simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
'code permetant de supprimer les lignes vides
 Set CelluleCourante1 = Range("a36")
 Do While Not IsEmpty(CelluleCourante1)
    If Cells(CelluleCourante1.Row, 2).Value = "" & Cells(CelluleCourante1.Row, 4).Value = "" Then
            CelluleCourante1.Row.Delete
            Set CelluleCourante1 = Range("a36")
    End If
 Set CelluleSuivante1 = CelluleCourante1.Offset(1, 0)
 Set CelluleCourante1 = CelluleSuivante1
 Loop

dis-nous si cela fonctionne maintenant.

Cordialement.
xela57

[thomas57]

merci pour ta réponse aussi rapide,

j'avais déjà essayé et sa ne supprime aucune ligne, sans message d'erreur, sa fait simplement rien...

en revanche j'ai essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Integer
 
For i = 73 To 36 Step -1
    If IsEmpty(Worksheets("Tableau").Cells(i, 4)) = True Then Worksheets("Tableau").Rows(i).Delete
Next i

et bizarrement ça marche... alors que je test que la cellule de la colonne 4... je comprend pas trop

[BDA53]

le plus important c'est que cela marche !

C'est peut-être le fait de ne pas utiliser ta variable CelluleCourante qui change la donne.

Si tout est bon, n'oublie pas de cliquer sur Résolu.

[thomas57]

encore merci