Discussion :

[geygey881]

bonjour à tous,
voila je vous soummet un petit problème que j'ai du mal à résoudre.

Je cherche à créer une macro qui en fonction du paramètre "VRAI" ou "FAUX" (texte brut) me permet du supprimer toute la ligne ou elle trouve le paramètre "VRAI".

Mon classeur est comme suit (; = changement de cellule) :
AAA; BBB; CCC; DDD; VRAI
EEE; FFF; GGG; HHH; FAUX
III; JJJ; KKK; LLL; VRAI
MMM; NNN; OOO; PPP; VRAI
ici 3 lignes devraient être supprimées. la colone ou se trouve le paramètre est la 23.

J'ai tenté d'écrire un bout de code mais ile ne fonctionne pas.
Merci a ceux qui se pencheront sur le problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub suppVRAI()
 
Dim i As Integer
i = 0
For i = 1 To 10000
 
If ActiveSheet.Cells(i, 23).Value = "VRAI" Then
Rows(i).Delete
End If
Next i
 
End Sub

[larryj]

Je pense que le problème vient du fait qu'Excel comprend la valeur "VRAI" comme un booléen.
Il y a donc deux solutions :

• Ne pas lire la valeur mais le texte
• Ne pas tester la valeur avec "VRAI" mais avec "Vrai" (ou la traiter comme un booléen)

Je te conseille la première méthode :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub suppVRAI()
    Dim i As Integer
    With ActiveSheet
       For i = 1 To 10000
           If .Cells(i, 23).Text = "VRAI" Then
               .Rows(i).Delete
           End If
       Next i
    End With
End Sub

[EmmanuelleC]

attention aux boucles avec des supressions de lignes
Si tu boucles dans le sens traditionnel, tu vas passer des lignes
imagine que la ligne 2 est a suprimer,
i = 1, ok, on garde
i =2, ko, on efface, et du coup, la ligne 3 devient la nouvelle ligne 2. La boucle arrive au bout, on fait next i, et paf on arrive a la nouvelle ligne 3, anciennement ligne 4 et hop, on a pas vérifié la ligne 3

pour éviter ca, ce qui est conseillé, c'est de boucler dans l'autre sens

Code :

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

For i = 10000 To 1 step -1

[geygey881]

MErci à vous pour ces bout de code qui m'ont bien aidé.
De plus il est vrai qu'il faille commencer par la fin.

JE rajoute aussi a ceux qui voudrait faire la même chose que moi, qu'il peuvent faire la même macro en utilisant

Code :

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

If .Cells(i, 23).Value = -1 Then

Cela permet de traiter l'info comme un VRAI / FAUX booléen. enfin je l'ai compris comme sa et sa marche.
Cdt