Bonjour à toutes et à tous.
J'essaye de faire une macro qui "m'affiche" dans une plage de données A1:A50000 les cellules qui sont différentes de zéro.
Voici la macro.
Sub AtteindreCelluleDifZero()
' Active ma plage de selection
Dim PlageTravail As Range
Range("a1", "a50000").Select
Dim Recherche As Double
Recherche = 1254
Set PlageTravail = Selection
' Trouve la valeur et la sélectionne
PlageTravail.Find(What:=Recherche, _
After:=PlageTravail.Range("A1"), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False _
).Select
End Sub
Ce qui cloche c'est que je n'arrive pas à dire que ma variable Recherche doit être différente de zéro.
Là, j'ai dit qu'elle était égale à 1254 pour voir si le reste de ma macro fonctionnait, ce qui est le cas, mais je ne sais pas comment lui dire que ma variable Recherche doit être différente de zéro.
Une suggestion ?
Par avance merci
Dominique
J'essaye de faire une macro qui "m'affiche" dans une plage de données A1:A50000 les cellules qui sont différentes de zéro.
Voici la macro.
Sub AtteindreCelluleDifZero()
' Active ma plage de selection
Dim PlageTravail As Range
Range("a1", "a50000").Select
Dim Recherche As Double
Recherche = 1254
Set PlageTravail = Selection
' Trouve la valeur et la sélectionne
PlageTravail.Find(What:=Recherche, _
After:=PlageTravail.Range("A1"), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False _
).Select
End Sub
Ce qui cloche c'est que je n'arrive pas à dire que ma variable Recherche doit être différente de zéro.
Là, j'ai dit qu'elle était égale à 1254 pour voir si le reste de ma macro fonctionnait, ce qui est le cas, mais je ne sais pas comment lui dire que ma variable Recherche doit être différente de zéro.
Une suggestion ?
Par avance merci
Dominique