Supprimer un ligne dans excel

marieg58 -  
mic13710 Messages postés 1165 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'ai un tableau excel avec en colonne F soit vrai ou Faux.
Je voudrais supprimer toutes les lignes qui sont à Vrai dans une macro
J'ai écrit le code suivant :
Dim i
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If Cells(i, 6) = VRAI Then Rows(i).Delete
Next

E là il me laisse toutes les lignes à vrai
Je ne comrpends pas pourquoi
Merci de votre aide

3 réponses

  1. mic13710 Messages postés 1165 Date d'inscription   Statut Membre Dernière intervention   360
     
    Il faudrait peut être mettre des guillemets à "VRAI"
    Ou bien si c'est un vrai "VRAI", remplacer VRAI par True

    Michel
    0
  2. marieg58 Messages postés 25 Statut Membre
     
    en mettant des guillements, plus aucune suppression ne se fait.
    Si je remplace vrai par faux, il laisse quand meme les lignes a vrai
    Je suis désespérée !
    0
  3. mic13710 Messages postés 1165 Date d'inscription   Statut Membre Dernière intervention   360
     
    C'est normal puisque vous prenez la colonne A pour compter en non la F et il faut aussi spécifier que c'est d'un texte dont il s'agit.
    Mettez ce code et tout devrait marcher :
    Dim i    
    For i = Range("F65536").End(xlUp).Row To 1 Step -1    
    If Cells(i, 6).Text = "VRAI" Then Rows(i).Delete    
    Next    
    

    Vous pouvez aussi écrire le If comme ceci :
    If Cells(i, 6) = True Then Rows(i).Delete 

    Michel
    0