Discussion :

[will-1981]

Bonjour,

J'aimerais supprimer une ligne en fonction de la valeur trouvée dans une plage.

Je me suis fais une petite requete mais rien en se passe lorsque je l'éxécute.

Pouvez vous m'aider à résoudre le pb et surtout m'expliquer où est l'erreur pour éviter de vous reposer le même question un de ces jours.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i As Integer
 
For i = 2 To 15
    If Cells(i, 2) = "VRAI" Then
    Cells(5, 1).EntireRow.Delete
    End If
Next i
 
End Sub

Merci à vous

[casefayere]

Bonsoir Will,

je décortique chaque ligne et te demandes réponse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim i As Integer
 
For i = 2 To 15
'ci-dessous tu fais réference à une cellule b2, b3 b4....b15 où le contenu est "vrai"
If Cells(i, 2) = "VRAI" Then
'ci-dessous, tu demandes de supprimer la ligne 5, mais pas i (1 ou 2 ou 3...)
'est-ce bien ce que tu veux ?
Cells(5, 1).EntireRow.Delete
End If
Next i
 
End Sub

[will-1981]

Bonsoir et Merci casefayere pour ton aide,

Donc oui je veux interroger une cellule pour savoir si la valeur est "vrai".

Par contre je n'ai pas fais attention dsl mais ce n'est pas Cells(5,1)... que je voulais écrire mais Cells(i,1).EntireRow.Delete. Ceci ne change pas mon pb

Voilà je pense t'avoir répondu,

Merci encore
Will

[casefayere]

Bien,
je vais recopier ton code et simuler une feuile identique, ajouter ton bouton de commande pour vérifier

Patience...

[ucfoutu]

Bonsoir,

de toutes manières :

en supprimant ainsi, dans une boucle allant de 2 à 15, ===>> casse-pipe (imaginons en effet, par exemple, que tu supprimes la ligne 4 ===>> la 5 deviendra la 4, la 6 deviendra la 5, etc...)

Ta boucle For ne peut valablement être envisagée qu'en allant de 15 à 2

Code :

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

For i = 15 to 2 step -1

[will-1981]

Merci pour ta réponse ucfoutu

Logique ce que tu dis, j'ai fais les changement mais ça ne change rien.

Merci encore
Will

[casefayere]

bonsoir uc, re will

si je change la valeur de "VRAI" pour "NON" au hasard, ça marche

sauf si je me trompe le code n'aime pas la valeur VRAI ou FAUX

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
Dim i As Integer
 
For i = 15 To 2 Step -1
If Cells(i, 2) = "NON" Then
Cells(i, 1).EntireRow.Delete
Else
End If
Next i
 
End Sub

[will-1981]

Merci casefayere

Ca fonctionne Mais j'aimerais bien savoir 2 choses :
- Pourquoi la valeur Vrai n'est pas prise en compte ?
- Est ce que c'est utile de mettre Else avant end If ?

Merci encore pour tous,
Will

[casefayere]

else avant end if, c'est un oubli je devais aussi supprimer, le code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
Dim i As Integer
 
For i = 15 To 2 Step -1
If Cells(i, 2) = "OUI" Then
Rows(i).Delete
End If
Next i
 
End Sub

Quant au refus de la notion VRAI, ça doit être un mot reservé pour les codes, tout autant que faux,.....à vérifier

[will-1981]

Merci beaucoup

Je vais pouvoir dormir tranquille

Bonne nuit aussi,
will

[ucfoutu]

re et coucou...

quel est donc le format de tes cellules affichant VRAI ?

Un petit truc à connaître sous VBA si le format est booléen.

Code :

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

Cells(1,1).Value = true ' ===>>> affichera "VRAI" dans la cellule

Si c'est un booléen, donc, et que tu veux savoir si "VRAI" ou "FAUX" est affiché, il te faut tester avec True ou False (sans guillemets) et non avec "VRAI" ou "FAUX" ...

[casefayere]

re uc,

Pour moi, ton info sera utile, j'espère que Will verra ta réponse

Bonne nuit et merci pour lui et...pour moi

[will-1981]

Oui c'est vrai je souhaite vérifier une formule Excel "EXACT" qui me donnera le résultat Vrai ou faux.

Merci pour tous à tous les deux à bientôt,
Will