Fonction CountIF macro

Version imprimable

Bonjour à tous, j'aurai besoin de votre aide pour une macro.

J'essaie d'automatiser un tableau, afin de pouvoir remplir automatiquement ce tableau à partir d'autres feuilles.

J'utilise notamment la fonction countif pour remplir ce tableau, sauf que j'ai du mal à utiliser cette fonction.
Je vous met le bout de code pour que vous puissiez me corriger.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub macro1() With Sheets("MSPTT") ' Je déclare la plage variable de l'onglet MSPTT Set mspui = Range([K1], [K65635].End(xlUp)) End With ' Je selectionne la cellule E4 de la feuille TAUX et prend la valeur retournée par la fonction CountIF Sheets("Taux MSP").Range("E4") = WorksheetFunction.CountIf(mspui, "LOIRE") ' Sheets("Taux MSP").Range("E5") = WorksheetFunction.CountIf(mspui, "PARIS") ' Sheets("Taux MSP").Range("E6") = WorksheetFunction.CountIf(mspui, "LYON") ' Sheets("Taux MSP").Range("E7") = WorksheetFunction.CountIf(mspui, "MARSEILLE PROVENCE") ' Sheets("Taux MSP").Range("E8") = WorksheetFunction.CountIf(mspui, "NICE") ' Sheets("Taux MSP").Range("E9") = WorksheetFunction.CountIf(mspui, "RENNES") End Sub
Sauf que ça ne marche pas, j'ai que des 0 à la place des bonnes valeurs.

Vous savez d'ou peut venir le problème ? Merci pour votre aide.

Bonjour,

quand tu définies ta plage Mspui, tu es dans un bloc With/End With représentant la feuille voulue
mais tu as oublié de rattacher ton range à ce bloc

rajoute un point devant ton range, sinon tu prend la plage de la feuille active

je me suis permis de modifier ta méthode de calcul de la plage, puisque tes feuilles peuvent potentiellement contenir un million de cellules

je te propose également une boucle pour réaliser toutes tes formules
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub macro1() Dim MsPui As Range, i As Integer, TabCrit() TabCrit = Array("LOIRE", "PARIS", "LYON", "MARSEILLE PROVENCE", "NICE", "RENNES") With Sheets("MSPTT") Set MsPui = .Range(.Range("A1"), .Range("A" & Rows.Count).End(xlUp)) End With For i = LBound(TabCrit) To UBound(TabCrit) Sheets("Taux MSP").Range("E" & 4 + i) = WorksheetFunction.CountIf(MsPui, TabCrit(i)) Next i End Sub

11/09/2015, 12h11
sosoboss

Merci beaucoup joe.levrai ta solution marche parfaitement, j'ai repris ce code pour effectuer la même chose sur un autre onglet.

Il me reste une dernière colonne à remplir et mon tableau sera automatisé, sauf que je n'arrive pas trouver la solution car la méthode est différente.

Je dois en fait remplir la colonne de mon tableau à partir d'un TCD d'une autre feuille, et retourner les valeurs de ce TCD dans le tableau, mais je ne sais pas comment faire.

Aurais-tu une idée ?

Merci encore une fois pour ton aide.
11/09/2015, 17h09
joe.levrai

Récupérer les données d'un TCD est plus complexe qu'une simple formule de recherche dans des cellules.

Il va falloir travailler un peu sur la mécanique de la formule dédiée LIREDONNEESTABCROISDYNAMIQUE()

Regarde l'aide Excel pour dans un premier temps :

- comprendre sa mécanique
- réaliser ce que tu souhaites à la main (= tu écris les formules dans ton tableau pour récupérer les valeurs)
- ensuite tu passes par l'enregistreur de macro pour "capturer" tes formules
- reviens avec le code fourni par l'enregistreur, on va l'adapter et l'optimiser

il faut absolument que tu travailles en amont ce sujet, si on te donne la solution prête à l'emploi tu ne pourras jamais l'adapter ou la réutiliser ;)

Merci joe.levrai pour ta réponse,

J'ai en effet regardé dans l'aide d'excel pour lire les données d'un TCD, ainsi que différents sujets sur internet, j'ai essayé une méthode qui ne fonctionne pas donc j'ai utilisé comme tu m'as dit l'enregistreur de macro, et voila le code retourné :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Range("C4").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Dos.Nom de l’UI"",'Tcd par UI'!R1C1,""Dos.Nom de l’UI"",""PARIS"")"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Dos.Nom de l’UI"",'Tcd par UI'!R1C1,""Dos.Nom de l’UI"",""RENNES"")"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Dos.Nom de l’UI"",'Tcd par UI'!R1C1,""Dos.Nom de l’UI"",""NICE"")"
    Range("C7").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Dos.Nom de l’UI"",'Tcd par UI'!R1C1,""Dos.Nom de l’UI"",""LYON"")"
    Range("C8").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Dos.Nom de l’UI"",'Tcd par UI'!R1C1,""Dos.Nom de l’UI"",""MARSEILLE"")"
    Range("C9").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Dos.Nom de l’UI"",'Tcd par UI'!R1C1,""Dos.Nom de l’UI"",""AMIENS"")"
    Range("C10").Select
    ActiveCell.FormulaR1C1 = _
        "=GETPIVOTDATA(""Dos.Nom de l’UI"",'Tcd par UI'!R1C1,""Dos.Nom de l’UI"",""AIN"")"
    Range("C11").Select
End Sub

Du coup, j'imagine qu'il est possible de boucler comme tu m'avais proposé auparavant, et surtout la référence du TCD doit être adapté mais je comprends pas trop ce que veut dire R1C1, c'est par rapport aux lignes et colonnes ?

16/09/2015, 10h36
sosoboss

RE

En fait je viens de me rendre compte que ce n'était pas forcément nécéssaire de passer par le TCD, il suffirait de compter directement depuis la base qui a servi au TCD, et le code reviendrait au même que précédemment.

Qu'en penses-tu ?
16/09/2015, 11h49
joe.levrai

Bonjour,

il est plus facile de passer par la BDD que via le TCD en utilisant des formules

que cherches-tu à compter exactement ?

et comment sont agencées les données dans ta BDD
16/09/2015, 12h44
sosoboss

C'est exactement comme dans mon premier exemple, je compte le nombre d'occurence pour chaque ville.

Les données sont en colonnes, donc j'ai suivi le code que tu m'as fourni et ça fonctionne bien, sauf que j'ai une question.

Comme la manip (ton code), je l'a fait sur trois onglets différents, est-ce que je fois changer le compteur (i) ou bien il se réinitialise ?
16/09/2015, 14h35
joe.levrai

tu peux montrer ton code svp ?

je suis dans l'impossibilité de te confirmer s'il faut réinitialiser ou non, je visualise mal en l'état... ça va dépendre de la manière dont tu as introduit ta nouvelle boucle sur les 3 onglets

Oui bien sûr

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub macro_tauxmsp()
Dim MsPui As Range, MsPuat as Range, DEC As Range, i As Integer, TabCrit()
Sheets("Taux MSP").Activate
Range("C4:E10").Select
Selection.ClearContents
TabCrit = Array("LOIRE", "PARIS", "LYON", "MARSEILLE PROVENCE", "NICE", "RENNES")
 
  ' Comptabilise le nombre de MSPUI
 With Sheets("MSPUI")
    Set MsPui = .Range(.Range("K1"), .Range("K" & Rows.Count).End(xlUp))
 End With
 
 For i = LBound(TabCrit) To UBound(TabCrit)
    Sheets("Taux MSP").Range("E" & 4 + i) = WorksheetFunction.CountIf(MsPui, TabCrit(i))
Next i
 
 ' Comptabilise le nombre de MSPUAT
 
With Sheets("MSPUAT")
    Set MsPuat = .Range(.Range("K1"), .Range("K" & Rows.Count).End(xlUp))
 End With
 
For i = LBound(TabCrit) To UBound(TabCrit)
   Sheets("Taux MSP").Range("D" & 4 + i) = WorksheetFunction.CountIf(MsPuat, TabCrit(i))
Next i
 
' Comptalise les  appels DEC
With Sheets("Cas avec intervention")
    Set DEC = .Range(.Range("K1"), .Range("K" & Rows.Count).End(xlUp))
End With
 
For i = LBound(TabCrit) To UBound(TabCrit)
   Sheets("Taux MSP").Range("C" & 4 + i) = WorksheetFunction.CountIf(DEC, TabCrit(i))
Next i
 
End Sub