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

laurent999 · 9 Novembre 2008

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 · 9 Novembre 2008

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 :

Code:

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 · 9 Novembre 2008

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

Merci Pierre Henry
Cela fonctionne parfaitement

Encore merci
Laurent

kjin · 9 Novembre 2008

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

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

laurent999

XLDnaute Occasionnel

Pierre-Henry

Guest

laurent999

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

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

laurent999

XLDnaute Occasionnel

Pierre-Henry

Guest

laurent999

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency