compter le nombre de cellules identique dans une même colonne

[laurent999]

Bonjour a tous,
Dans un fichier j'ai sur la feuille 1 une colonne date de prochaine visite dans une colonne
Dans la feuille 2 j'ai une fiche de renseignement avec une case A9 date de visite
Je voudrais que lorsque je selectione la date en feuille 2 il compte le nombre de date identique dans la colonne date de visite en feuille 1 et m'indique "vous avez déjà X visites ce jour la" "voulez vous continuer oui ou non.

Merci a tous pour vos réponses

 

[Pierre-Henry]

Re : compter le nombre de cellules identique dans une même colonne

Bonjour,
Si tes feuilles s'appellent Feuil1 et Feuil2 (noms par défaut), alors tu peux utiliser cette macro :

Sub Compter_Cellules()

    nb_identiques = Application.CountIf(Sheets("Feuil1").Columns("A:A"), Sheets("Feuil2").Range("A9"))
    Select Case MsgBox("vous avez déjà " & nb_identiques & " visites ce jour la" & Chr(10) & "voulez vous continuer?", vbYesNo)
    Case vbNo
        Exit Sub
    Case vbYes
        ' reste de la procédure
    End Select
End Sub

Cordialement

 

[laurent999]

Re : compter le nombre de cellules identique dans une même colonne

Merci Pierre Henry
Cela fonctionne parfaitement

Encore merci
Laurent

 

[kjin]

Re : compter le nombre de cellules identique dans une même colonne

Bonsoir,
En précisant la plage de recherche, c'était mieux
A+
kjin