Macro repérer chiffre

[billouu]

Bonjour tout le monde,

Voilà je souhaiterai créer une macro pour repérer si dans deux plages de cellules un chiffre n'est pas sorti.
Exemple:
J'ai listé les nombre de 1 à 9 (de L1 à T1) et je souhaiterai savoir si dans les cellules F1 à F8 et A9 à C9 il manque le un des 9 chiffres.
J'ai donc fait cette espèce de macro mais qui ne fonctionne pas bien évidemment:

For Each cell In Range("l1:t1")
If Application.CountIf(Range("f1:f8","a9:c9"), cell) > 0 Then
Else: GoTo suivant
End If
Next cell

GoTo précédent

La fonction Range ne prend pas en compte deux plages mais je ne sais pas comment y faire référence autrement, j'ai essayé avec Union(Range(),range()), mais cela n'a pas marché.
Voilà Merci d'avance.

Billouu

 

[billouu]

Re : Macro repérer chiffre

Merci bien pour ces macro mais en fait j'ai essayé la macro que j'ai faite dans un autre fichier vierge et elle marche à merveille. Le problème c'est que dans ma macro d'orgine elle ne fonctionne pas, pourtant elle est identique, il me semble. Et je vois pas d'où cela peut venir ...
Peux-tu m'éclairer sur les problèmes qu'il peut avoir?
Merci

 

[billouu]

Re : Macro repérer chiffre

Voilà,je me suis aidé de ta macro et sa marche nikel
Encore merci.
Dim i As Byte
Dim Trouve As Boolean

For i = 1 To 9
For Each cell In Union(Range("f1:f8"), Range("a9:c9"))
If cell.Value = i Then GoTo suivant:
Next cell
If Not Trouve Then GoTo L7C7

Trouve = False
suivant:
Next i
GoTo L5C7

Par contre ai-je besoin de réinitialiser "i" a chaque fois que je vais utiliser "For i = 1 To 9"

 

[billouu]

Re : Macro repérer chiffre

C bon sa marche merci, Impécable!!!

Quel bonheur quand ça veut bien marcher!