Discussion :

[alain16]

Bonjour,

J'ai réalisé une macro qui m'indique lorsqu'une des valeurs de la colonne A se trouve dans la C.

Code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
Set cell = Range("A1")
Do While cell <> ""
B = Application.CountIf(Range("C1:C9"), cell)
   If B = 1 Then
        MsgBox "OK"
   Else
        MsgBox "PAS OK"
   End If
Set cell = cell.Offset(1)
Loop
End Sub

[/CODE]
[/QUOTE]Pièce jointe 604427

Cette macro fonctionne, mais le chiffre 66 en A2 se trouve 2 fois en C.
Comment rajouter une fonction qui me précise que 66 se trouve en C mais 2 fois ?
Et le 3 se trouve en C mais qu'une seule fois alors qu'il va être trouvé 2 fois avec ma macro.
Là aussi je souhaiterai qu'il soit trouvé qu'une seule fois
Merci par avance
Cordialement

[BENNASR]

bonjour
si j'ai compris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2()
Set cell = Range("A1")
Do While cell <> ""
B = Application.CountIf(Range("C1:C9"), cell)
   If B > 0 Then
        MsgBox (cell.Value & "Se trouve :  " & B & "   fois")
   Else
        MsgBox "PAS OK"
   End If
Set cell = cell.Offset(1)
Loop
End Sub

[alain16]

Merci
je teste et reviens

[alain16]

Merci beaucoup BENNASR

ça pourrait convenir à mes besoins, mais peut on apporter une légère modification:

Le chiffre 3 de la colonne C n'existant qu'une seule fois , il doit être reconnu OK qu'une seule fois

J'ai modifié A6 en valeur 33 pour montrer les 3 cas de figures possibles avec les 3 réponses possibles
illustrées en colonne B



Merci par avance

[alain16]

Pour apporter quelles précisions........
Je viens de comprendre que B dans la fonction:
B = Application.CountIf(Range("C1:C9"), cell)
donne le nombre de fois que se trouve cell dans C1:C9
Je croyait que le resultat B ne pouvait être que 0 ou 1
Dans ce cas , la réponse à la première partie de mon problème était évident.

Par contre pour n'afficher qu' 1 fois OK ( avec 3 dans mon cas) je ne vois toujours pas .....

[BENNASR]

bonjour
tu veux faire une sorte de rapprochement bancaire ??
si c'est le cas mois personnellement je procède ainsi (sans VBA)
Colonne A : données comptables
Colonne B : données relevé bancaire
colonne C : Pour détecter les mouvements non encore enregistrés par la banque formule :

=SI(NB.SI($A$1:$A1;A1)>NB.SI($B$1:$B$9;A1);A1;"")

NB : adapter le champs B1:B9 dans la formule

Si tu veux faire l'inverse c a d les mouvements non comptabilisés ajouter une colonne D avec meme formule