Boucle Excel
Résolu
manoelinho
Messages postés
43
Date d'inscription
Statut
Membre
Dernière intervention
-
manoelinho Messages postés 43 Date d'inscription Statut Membre Dernière intervention -
manoelinho Messages postés 43 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerai écrire une boucle pour que la macro masque une ligne entière si le contenue de la cellule en A est différent de "Manuel"
Sub exercice_boucles()
Dim i As Integer
For i = 1 To 20
If Range("A" & i).Value <> "Manuel" Then
Rows("1:1").Select
Selection.Rows.Hidden = True
End If
Next i
End Sub
Cette macro ne fonctionne pas. Elle supprime que la première ligne.
J'ai tenté de remplacer Rows("1:1").select
par Rows("i:i").select mais m'indique une erreur.
J'espère que vous pourrez m'aider.
Merci par avance
J'aimerai écrire une boucle pour que la macro masque une ligne entière si le contenue de la cellule en A est différent de "Manuel"
Sub exercice_boucles()
Dim i As Integer
For i = 1 To 20
If Range("A" & i).Value <> "Manuel" Then
Rows("1:1").Select
Selection.Rows.Hidden = True
End If
Next i
End Sub
Cette macro ne fonctionne pas. Elle supprime que la première ligne.
J'ai tenté de remplacer Rows("1:1").select
par Rows("i:i").select mais m'indique une erreur.
J'espère que vous pourrez m'aider.
Merci par avance
A voir également:
- Boucle Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel moyenne - Guide
Quand je remplace Selection.Rows.Hidden = True par Selection.Rows.Delete = True
ça ne fonctionne pas.
Par contre, si tu peux supprimer, ta boucle ne devra pas aller de 1 à 20, mais de 20 à 1. Car quand tu supprimes une ligne, la ligne du dessous vient prendre la place de la ligne supprimée.
Avec une boucle de 1 à 20 tu risques de louper des lignes, ce que tu ne feras pas avec une boucle de 20 à 1.
Cordialement.
Sub exercice_boucles()
Dim i As Integer
For i = 20 To 1
If Range("AB" & i).Value <> "Manuel" Then
Rows(i).Select
Selection.Rows.Delete = True
End If
Next i
End Sub
il ne se passe rien
aucune ligne ne s efface.
de plus quand j'écris Sub exercice_boucles()
Dim i As Integer
For i = 1 To 20
If Range("AB" & i).Value <> "Manuel" Then
Rows(i).Select
Selection.Rows.Delete = True
End If
Next i
End Sub
Excel me met comme message: erreur d exécution 1004 "Impossible de définir la propriété Delete dans la classe Range"