Discussion :

[enretard]

bonjour,

est-il possible de mettre une fonction excel dans un code VBA :

exemple :

Code :

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

=NB.SI(A2:H174;"H") & NB.SI(A2:H174;"F")

par rapport au CSP

je voudrais qu'il calcule le nombre de F et le nombre de H par rapport à une autre colonne nommée "CSP"

ma colonne CSP est "H" et ma colonne SEXE est "G"

pouvez-vous me donner un exemple que je pourrais trouver sur le forum ?

ou un exemple de formule ?

je vous remercie par avance de votre aide.

je suis débutante, donc, je progresses grâce à vous depuis déjà 3 ans.
Mais je n'utilise pas beaucoup ces fonctions, j'ai donc du mal à trouver les bonnes formules.

[mercatog]

Code :

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

1
2
3
4
5
6
Sub TEST()
 
With Worksheets("Feuil1")
    MsgBox Application.CountIf(.Range("G:G"), "F")
End With
End Sub

[enretard]

Bonjour mercatog,

je te remercie de ta réponse rapide.

Ce code marche très bien, mais il ne prend pas en compte ma colonne CSP, il me calcule 17 F !

je voudrais qu'il prenne en compte ma colonne CSP qui est partagé par différentes fonctions, exemple : Ouvrier NQ, Employé, Cadres, etc...
il faudrait qu'il me compte le nombre de F dans chaque fonction.

J'espère être claire, je m'excuse d'avance au cas où.

Merci

[mercatog]

Pour compter les nombres de lignes où en colonne G on a la lettre F et en colonne H on a la lettre X

Code :

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

1
2
3
4
Sub TEST()
 
MsgBox Evaluate("SUMPRODUCT((Feuil1!G1:G500=""F"")*(Feuil1!H1:H500=""X"")*1)")
End Sub

C'est la formule

Code :

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

=SOMMEPROD((G1:G500="F")*(H1:H500="X")*1)

[enretard]

bonjour,

je crois que je m'explique mal. je vais essayer de donner un exemple clair :

je voudrais qu'il m'ajoute "1" à chaque fois qu'il trouve un H dans la colonne G quand dans la colonne I il trouve ouvrier qualifié etc... idem pour quand il trouve "F" dans la colonne G quand dans la colonne I il trouve employé etc...

est-il possible avec Excel en code VBA pour qu'il remplisse mon formulaire automatiquement en fonction des données ?

je vous joints un exemple pour que vous compreniez mieux ce que j'attends.

Je vous remercie à l'avance.

[mercatog]

Oui c'est ça, tu veux compter le nombre d'employés femmes et le nombre d'employés hommes.
Attention, tu as des espaces après des données (d'où le TRIM)

Testé sur ton fichier

Code :

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

1
2
3
4
5
6
7
8
9
Sub TEST()
Dim NbEmpH As Integer, NbEmpF As Integer
 
NbEmpF = Evaluate("SUMPRODUCT((TRIM(G2:G49)=""F"")*(TRIM(H2:H49)=""Employé"")*1)")
NbEmpH = Evaluate("SUMPRODUCT((TRIM(G2:G49)=""H"")*(TRIM(H2:H49)=""Employé"")*1)")
 
MsgBox "Nombre d'employés:" & vbCrLf & "  ¤ Femmes: " & NbEmpF & vbCrLf & "  ¤ Hommes: " & NbEmpH
 
End Sub

Sinon et c'est le plus important, vu les données de ton fichier, utilise plutôt un tableau croisé dynamique, il te donnera toutes les formes de synthèse que tu veux sans une seule ligne de vba. C'est ça Excel.