Discussion :

[arnaudperfect]

Bonjour,

J'ai un tableau de donnée avec une colonne nommé "SAM_Account_Name" qui comporte des noms d'utilisateurs ou des SID.

Sur un autre tableau, je réalise des statistiques.

J'aimerai compter le nombre d'occurrence dans la colonne "SAM_Account_Name" où je trouve un SID.

J'ai une fonction VBA qui me dit si le paramètre passé est un SID ou non

Code vba :

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

1
2
3
4
5
6
7
8
Function CtrlSid(Sid As String) As String
    Dim regex As Object, str As String
    Set regex = CreateObject("VBScript.RegExp")
    With regex
      .Pattern = "^S-\d-(\d+-){1,14}\d+$"
    End With
    CtrlSid = regex.Test(Sid)
End Function

Je pense que je dois utilisé la fonction "NB.SI.ENS" avec la plage de critère, mais je ne sais comment définir le critère
J'ai essayé quelque chose comme ça : =NB.SI.ENS(G21:G28;CtrlSid(G21:G28)=VRAI) mais cela ne fonctionne pas.

NB : je ne dois pas passer par une colonne supplémentaire dans la feuille de donnée qui me dirait si la valeur de la colonne "SAM_Account_Name" est VRAI ou FAUX et compter le nombre d'occurrence. En effet, cette feuille de donnée est importé automatiquement d'un fichier CSV généré par un autre logiciel.

Merci d'avance

[kaylow]

Bonjour

dans un premier temps le fonction regex.Test retourne un boolean il faudrait donc changer votre code en conséquence avec l'en-tête suivante :

Code :

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

 Function CtrlSid(Sid As String) As Boolean

Une solution possible serait de créer une fonction avec une boucle compteur comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Function NbCtrlSid() As integer

    Dim ligne as integer
    Dim compteur as integer

    compteur=0   
' on fait une recherche dans la colonne A de la ligne 1 à la dernière ligne
     For ligne=1 to thisworkbook.Worksheets("nom_de_la_feuille").Range("A" & rows.count).end(xlup).Row
         
            if CtrlSid(thisworkbook.Worksheets("nom_de_la_feuille").Range("A" & ligne))=true then compteur=compteur+1

    Next ligne

    nbContrlSid=compteur

End function

[arnaudperfect]

Merci pour l'histoire du Boolean. Ca résous un autre problème que j'avais avec cette fonction.

Par rapport à ta fonction, on ne peux pas faire la même chose avec une formule matricielle ?

Genre {=NB.SI.ENS(G21:G28;CtrlSid(G21:G28)=VRAI)}

A mon avis ma fonction vba n'est pas compatible avec les matrices pour fait ça.

[kaylow]

Peut-être ceci :

=SOMMEPROD((CtrlSid(G21:G28)=VRAI)*1)

[arnaudperfect]

non, j'ai un #VALEUR!

[kaylow]

Tu as vérifié que l'erreur ne vient pas de CtrlSid ?

[arnaudperfect]

Si je fais "=CtrlSid(G21)", j'ai VRAI (car je suis sur un SID)

[arnaudperfect]

Je ne sais pas si Excel sait gérer des patterns complexe comme les regex.

Car cela serai plus simple de faire quelque chose comme ca "=NB.SI.ENS(matrice;"S-*-*-*-*-*-*-*")" (cette dernière fonctionne, mais ce n'est pas très fiable)