Sub Action2 ()
Dim i As Integer
i = 0
For i = 1 To 1000
If Sheets("test").Range("A" & i).Value = RANGE("B1").Value Then
Sheets("test").Range("A" & i, ).EntireRow.Hidden = True
End If
Exit for
Next i
End Sub
Le but etant de masquer toutes les lignes pour lesquelles la cellule de la colonne A verifie une condition...
Je ne sais pas, ca fonctionne sur la premiere ligne et puis c'est tout....
Sub Action2()
Dim i As Integer
i = 0
For i = 1 To 1000
If Sheets("test").Range("A" & i).Value = Range("B1").Value Then
Sheets("test").Range("A" & i).EntireRow.Hidden = True
End If
Next i
End Sub
Les modifs :
- Pas de "Exit for"
- Pas de virgule à la fin de Range("A" & i)
Je viens d'essayer mais ... cela ne fonctionne pas comme prévu.
J'ai limité la boucle à 1 to 100 et cette fonction ne me cache que les ligne comprennant un vide dans la colonne A. Les "doublons colonne A et B ne sont pas pris en compte .
Evidemment ! Mais bon dieu c'est bien sûr. C'est le type d'erreur qui va me faire progresser..... je vais m'en souvenir de celle là.
Studieusement j'ai copié sur le devoir du Chet et Hop :
"Dim i As Integer
i = 0
For i = 1 To 100
If Sheets("test").Range("A" & i).Value = Range("B" & i).Value Then
Sheets("test").Range("A" & i).EntireRow.Hidden = True
End If
Next i
et j'ai ce qui me convient parfaitement . Je vais ajouter un petit Application.ScreenUpdationg False puis True là dessus car cela "brouille" un petit peu mais c'est déjà super.
Merci de cette leçon improvisée. Mon carnet est en train de se remplir !
Merci Eric,
Je suis repassé sur lautre PC et j'ai fait un copier/coller de la macro et la Oh miracle ca marche donc merci...
Sinon pour Gérard je crois qu'on a la meme methode d'apprentissage, on en pique par ci par la et on magouille et on essaye et quand ca coince on va voir les betes sur XLD...