Problème code suppression de ligne avec condition VBA

Fitz_Chev -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je ne comprends pas où est mon problème dans mon code, je cherche à supprimer une ligne si dans ma colonne H quand ce n'est pas marqué VRAI, j'ai donc mis ça: 

For n = Range("H65356").End(xlUp).Row To 2 Step -1
If Range("H" & n) <> "VRAI" Then Range("H" & n).EntireRow.Delete
Next n


Le problème c'est qu'il m'efface TOUTES mes lignes, et je ne comprends pas pourquoi, pourtant j'ai déjà utilisé cette fonction qui marche très bien.

Quelqu'un pourrais m'éclairer?

Merci d'avance


A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

cote cellules excel: VRAI ou FAUX, mais cote VBA Range("H" & n) est egale a: Vrai ou Faux
0
Fitz_Chev
 
Pas compris désolé (je débute en VBA)
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Fitz_Chev
 
Re,

J'ai fait erreur, il faut faire comme l'a ecrit ccm81 16 sept. 2015 à 16:54 : True pour "Vrai" ou False pour "Faux"
0
Réponse 2 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Je suppose que VRAI provient d'un test donc c'est un booleen (VRAI ou FAUX)
Essaies comme ceci 
Public Sub OK()
Dim n As Long, lifin As Long
lifin = Range("H65356").End(xlUp).Row
For n = lifin To 2 Step -1
  If Range("H" & n) <> True Then Range("H" & n).EntireRow.Delete
Next n
End Sub

Cdlmnt
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses