Trouver la fréquence d'un numero

[zbig]

Bonsoir
tout est dans le fichier joint.

Macro recherche présence et fréquence

1- départ dans la listing
si la cellule a est vide,
-->arrêter la macro
si la cellule n'est pas vide
aller verifier si le n) de la cellule A se trouve dans la colonne c de la feuille results
si non, passer à la ligne en dessous et redélmarrer la macro
si oui, mettre "1" dans la cellule m et le nombre de fois qu'il a été trouvé en cellule N

2- Calcul de la somme de la colonne M

3- calcul du nombre de "1" qd sexe= F
4- calcul du nombre de "1" quand sexe ="m"

merci
Zbig

 

[JNP]

Re : Trouver la fréquence d'un numero

Bonjour Zbig 🙂,
Quel intérêt de faire ça en macro, quand de "bêtes" formules sont très efficaces 😕 ?
En PJ, le résultat en formule 🙄...
Bonne journée 😎

 

[zbig]

Re : Trouver la fréquence d'un numero

Bonjour

juste pour que les formules ne soient pas effacées par erreur
et que dans les cellules il y aient soit vide soit la réponse.

MERCI jnp
zBIG

 

[Paritec]

Re : Trouver la fréquence d'un numero

Bonjour zbig, Jean Noël🙂
voilà ton fichier en retour avec ce que tu veux
a+
papou 🙂

 

[zbig]

Re : Trouver la fréquence d'un numero

Bonjour à vous

excellent.

J'ai ajouté une colonne etmalheureusement entre L et m
et les calculs ne se font plus correctement

Pouvez vous mettre les commentaires pour savoir où je dois modifier des chiffres?

merci beaucoup
Zbig

 

[pierrejean]

Re : Trouver la fréquence d'un numero

Bonjour zbig

Salut JNP

Version Vba

Edit: Salut Paritec

 

[Paritec]

Re : Trouver la fréquence d'un numero

Bonjour Zbig
bah renvoi le fichier je modifie la macro ou dis moi quelle colonne tu as ajouté
a+
Papou 🙂

EDIT Bonjour PierreJean 🙂

 

[Paritec]

Re : Trouver la fréquence d'un numero

re PierreJean🙂 Zbig

voilà modifié avec une colonne de plus
a+
Papou 🙂

Sub remplir()
    Dim i&, fin&, a&, g#, f#, aa As Variant, bb As Variant
    With Feuil2
        fin = .Range("A65536").End(xlUp).Row
        aa = .Range("A2:O" & fin)
        bb = Feuil1.Range("C2:C" & Feuil1.Range("C65536").End(xlUp).Row)
        For i = 1 To UBound(aa)
            For a = 1 To UBound(bb)
                If aa(i, 1) = bb(a, 1) Then x = x + 1
            Next a
            aa(i, 15) = x: x = 0
        Next i
        For i = 1 To UBound(aa)
        If aa(i, 8) = "F" And aa(i, 14) <> 0 Then f = f + 1
        If aa(i, 8) = "G" And aa(i, 14) <> 0 Then g = g + 1
        Next i
        .Range("A2:O" & fin).ClearContents
        .Range("A2:O2").Resize(UBound(aa)) = aa
        .Range("Q1") = f + g: .Range("Q2") = f: .Range("Q3") = g
    End With
End Sub

 

[pierrejean]

Re : Trouver la fréquence d'un numero

Re

Voici une version qui permet d'ajouter ou retrancher autant de colonnes qu'on le souhaite sous conditions de conserver les en-tetes de colonnes SEXE Participants Participations Total Fille

 

[zbig]

Re : Trouver la fréquence d'un numero

Bonjour à vous 2

je teste et je vous dit "quoi; hein?"


merchi
Zbig59

 

[zbig]

Re : Trouver la fréquence d'un numero

Bonjour Pierre Jean et Paritec

1/ J'ai testé la version modifiable de Pierre Jean
j'ai ajouté une colonne entre L et m
il ya un bug "dans vba"
cela se met en jaune :
Sheets("listing").Cells(2, colr) = TotF

2/dans la feuille results;
il y a un n° 35
mais celui là n'est pas dans la feuile listing 🙂
y a til une possibilité de mettre un message "il y a erreur de dossard ou oubli dans listing" et d'afficher les n° qui ne correspondent pas dans une feuille "erreur"?

merci
Zbig

 

[pierrejean]

Re : Trouver la fréquence d'un numero

Re

Effectivement
je n'avais pas testé et laissé l'effacement prealable sans modification
Tester cette version S.V.P

 

[zbig]

Re : Trouver la fréquence d'un numero

Merci pierre jean


cela fonctionne sauf pour le total f+g
merci
Zbig

 

[JNP]

Re : Trouver la fréquence d'un numero

Re 🙂,

juste pour que les formules ne soient pas effacées par erreur
et que dans les cellules il y aient soit vide soit la réponse.

Ben, il y a la protection des cellules et de la feuille pour cela, et aussi les tests en SI pour éviter les 0 😛...
Et en plus les formules suivent les ajouts ou suppression de colonne 😀...

Va peut-être falloir que je consulte, moi qui suit plutôt VBA, voilà que je défends les formules 🙄...

Bonne journée 😎

 

[zbig]

Re : Trouver la fréquence d'un numero

Bonjour JNp

merci pour ces infos, mais j'aime bien appuyer sur des boutons 🙂

Zbig