Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro repérer chiffre

  • Initiateur de la discussion Initiateur de la discussion billouu
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

billouu

Guest
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
 
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
 
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"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
0
Affichages
654
Réponses
12
Affichages
1 K
Réponses
7
Affichages
1 K
Réponses
2
Affichages
1 K
J
Réponses
22
Affichages
3 K
jui42
J
D
Réponses
4
Affichages
943
D
M
Réponses
3
Affichages
1 K
msauvegrain
M
P
  • Question Question
Réponses
1
Affichages
3 K
Patrosso
P
R
Réponses
0
Affichages
3 K
R
N
Réponses
5
Affichages
2 K
N
N
Réponses
11
Affichages
2 K
NathalieQSE
N
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…