Find xlvalues => nombre de valeur

Bonjour à tous,

petite question basique en vba :

j'ai la ligne suivante qui me permet ensuite d'extracter un ensemble de donnée pour mon formulaire

 Set ici = .Range("C:C").Find(Acronym, LookIn:=xlValues)

seulement je voudrais pouvoir faire sortir le nombre de valeur max identifié mais ne sait pas comment procéder.

en gros le nombre de fois ou l'acronyme ressort

Une idée svp ?

Merci par avance

Bonjour

Complète avec ça et tu sauras :

MsgBox Application.CountIf(Range("C:C"), Acronym)

Bye !

Super merci à vous.

Je vais tester

Bon bah désolé mais cela ne fonctionne pas.

j'ai adapté afin que le test s'effectue sur la bonne feuille

  MsgBox Application.WorksheetFunction.CountIf(Sheets("Centres")!C:C, Acronym))

mais cela ne fonctionne pas erreur détectée: Erreur de syntaxe

j'ai lu cependant que countif ne peut se faire sur une feuille différente..

quelqu'un pourrait il donc m'apporter son aide.

Merci par avance

Bonjour

Comment aller plus loin si tu ne joins pas ton fichier ?

Bye !

c'est au sein d'une macro et fichier de base de donnée assez lourd et donnée professionnel...

mais voila la macro concernée.

je ne met pas le countif dans la boucle sinon ça générera 56 fois dans mon cas le résultat

je confirme que toutes les données ici demandées sont dans l'onglet Centres mais que le formulaire se lance depuis un autre onglet d'où le soucis

la boucle récupérant correctement les données je ne vois pas pourquoi le countif ne retourne pas la valeur.

mais les Acronymes sont bien en colonne C de l'onglet centres

  MsgBox Application.WorksheetFunction.CountIf(Sheets("Centres")!C:C, Acronym)

For i = 1 To 56
    With Sheets("Centres")
        ok = False
               Set ici = .Range("C:C").Find(Acronym, LookIn:=xlValues)

        If Not ici Is Nothing Then
            prem = ici.Address
            Do
                If ici.Offset(0, -2) = (ProjectId & "_" & i) Then ok = True
                If Not ok Then Set ici = .Range("C:C").FindNext(ici)
            Loop While Not ici Is Nothing And ici.Address <> prem And Not ok
        End If
        If ok Then
            Partner_PIC = ici.Offset(0, 1)
            Partner_Position = "Partner " & ici.Offset(0, 2)
            Partner_Name = ici.Offset(0, 3)
            Partner_Acronym = ici.Offset(0, 4)
            Partner_Contact = ici.Offset(0, 7)
            Partner_Mail = ici.Offset(0, 10)
            Partner_Country = ici.Offset(0, 6)

        Else
            Partner_PIC = ""
            Partner_Position = ""
            Partner_Name = ""
            Partner_Acronym = ""
            Partner_Contact = ""
            Partner_Mail = ""
            Partner_Country = ""

        End If
    End With

    Select Case i
          Case 1

             Partner1_PIC = Partner_PIC
             Partner1_Position = Partner_Position
             Partner1_Name = Partner_Name
             Partner1_Acronym = Partner_Acronym
             Partner1_Contact = Partner_Contact
             Partner1_Mail = Partner_Mail
             Partner1_Country = Partner_Country

j'ai trouvé ! c'est bon

en fait dans la formule il manquait le range

Application.WorksheetFunction.CountIf(Sheets("Centres").Range("C:C"), Acronym)