Erreur de syntaxe

Bonjour cher forum,

J'essaie d'adapter cette macro prise sur le net, mais elle m'indique erreur de syntaxe à l'exécution.

For i = ActiveSheet.UsedRange.Rows.Count  To 1 Step -1
If Cells(i, 6).Text =  1 Then  'toutes les cellules de la colonne F
Rows(i).Delete
End If
Next i

Ce que je cherche à faire, c'est de supprimer toute les lignes du classeur dont la colonne F n'a pas la valeur 1.

Merci

Bonjour,

à tester,

For i = ActiveSheet.UsedRange.Rows.Count  To 1 Step -1
  If Cells(i, 6).Value =  1 Then  'toutes les cellules de la colonne F
      Rows(i).Delete
  End If
Next i

Bonjour i20100,

merci, le petit détail qui fait la différence. Ouien, le code initial était pour un mot, pas pour un nombre!

Changer text pour value = ça marche.

Par contre, tel quel le code supprime toutes les lignes qui contiennent la valeur 1 dans la colonne F, je souhaiterais plutôt le contraire : supprimer toutes les lignes qui ne contiennent pas la valeur 1 dans la colonne F.

Merci pour ton aide.

Bonjour i20100

ok, je crois avoir trouvé: avec > plutôt que =.

A+

Bonjour,

Oups, mais ça supprime ma ligne d'en-tête (ligne), grrrrrr.

Comment ajuster le code pour éviter la suppression de la ligne 1.

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
  If Cells(i, 6).Value > 1 Then 
      Rows(i).Delete
  End If
Next i

Salut i20100, VDMICHEL

essaye ca :

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
  If Cells(i, 6).Value > 1 Then
      Rows(i).Delete
  End If
Next i

Bonjour

ok, je crois avoir trouvé. Première ligne du code changer To 1 Step -1 par To 2 Step -1.

For i = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
  If Cells(i, 6).Value > 1 Then   'toutes les cellules de la colonne F
      Rows(i).Delete
  End If
Next i

Bonjour VDMichel, Amir,

@VDMichel,

contente de voir que tout fonctionne,

merci pour ce retour et bonne continuation,

ps/ s.v.p. n'oublie pas de marquer la question comme étant résolu.

Bonjour,

merci Amir et i20100.

à bientôt!