VBA Mise en place et syntaxe de la fonction Countifs

**LorenzoN** · 25/10/2014, 13h32

Bonjour,

Je dispose d'un tableau de données sur une Feuille 1 dont des températures variées réparties sur plusieurs colonnes.
Je souhaite réaliser un deuxième tableau en Feuille 2, permettant de comptabiliser le nombre de fois ou les températures sont égales à 10 , 11 , 12 etc. à +/- 0.5.
Le choix de quelle température étudier est laissé à l'utilisateur grâce à une liste déroulante (Temp_1 , Temp_2, ....)

Pour cela j'utilise la fonction Countifs de la manière suivante:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Dim num As Integer
 
    Range("D6").Value = "Colonne choisie"
    Range("D7").Select
    ActiveCell.FormulaR1C1 = "=MATCH(R[-6]C[-3],'Data 1'!R[-6],0)"
    Range("D7").Select
    num = ActiveCell.Value
 
    Dim Temp_regroupe As Double
    Dim ligne_freq As Long
    Dim dern_ligne As Long
    Dim Texces As Double
    Dim Tdefaut As Double
 
 
    ligne_freq = 2  'Le calcul commence à la deuxième ligne de la Feuille
 
    Range("A1").End(xlDown).Select
    dern_ligne = ActiveCell.Row
 
 
 Do While ligne_freq < dern_ligne
 
    Cells(ligne_freq, 2).Select
   Tdefaut = Sheets("Feuille 2").Cells(ligne_freq, 1).Value - 0.5
   Texces = Sheets("Feuille 2").Cells(ligne_freq, 1).Value + 0.5
 
 
 Temp_regroupe = WorksheetFunction.CountIfs(Sheets("Feuille 1").Column(num), "<" & Texces, ">" & Tdefaut)
Cells("ligne_freq, 2").Value = Temp_regroupe
 
 ligne_freq = ligne_freq + 1
Loop

Le problème vient peut-être de la sythaxe Column(). Après avoir effectué différents essais infructueux en changeant () en [], Range, ou autre..., auriez-vous une solution à ce problème?
Merci!

**SfJ5Rpw8** · 25/10/2014, 15h54

bonjour,

sans regarder ton code il ne faut pas confondre column et columns

**LorenzoN** · 25/10/2014, 16h05

Merci pour cette réponse!
En effet, souhaitant un Range, ce serait plutôt Columns si je comprends bien!
Même si le problème subsiste encore, au moins une erreur de résolue déjà.

**SfJ5Rpw8** · 25/10/2014, 16h13

countif avec un s?

Montre nous ton code corrigé et dis nous ce qu'il se passe ( message d'erreur.......)

**LorenzoN** · 25/10/2014, 16h30

Voilà le code concernant la partie intéressante du programme

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
    Dim num As Integer
    Dim Freq_Temp As Double
    Dim ligne_freq As Long
    ligne_freq = 2
    Dim dern_ligne As Long
    Dim Texces As Double
    Dim Tdefaut As Double
 
  'Dans cette case on récupère l'information sur quelle température on souhaite étudier
  'et le numéro de la colonne correspondante dans la Feuille de données 1
 
    Range("D6").Value = "Colonne choisie"
    Range("D7").Select
    ActiveCell.FormulaR1C1 = "=MATCH(R[-6]C[-3],'Data 1'!R[-6],0)"
    num = ActiveCell.Value
 
   'On obtient le numéro de la dernière ligne (correspondant à la température la plus élevée à prendr en compte
    Range("A1").End(xlDown).Select
    dern_ligne = ActiveCell.Row
 
 Do While ligne_freq < dern_ligne
 
   Cells(ligne_freq, 2).Select
   Tdefaut = Sheets("Frequence Température Int").Cells(ligne_freq, 1).Value - 0.5
   Texces = Sheets("Frequence Température Int").Cells(ligne_freq, 1).Value + 0.5
   Range("D2").Value = Tdefaut
   Range("D3").Value = Texces
 
   Freq_Temp = WorksheetFunction.CountIfs(Sheets("Data 1").Columns(num), "<" & Texces, ">" & Tdefaut)
   Cells("ligne_freq, 2").Value = Freq_Temp
   ligne_freq = ligne_freq + 1
Loop

Message d'erreur

Erreur d’exécution '1004'
Impossible de lire la propriété Countifs de la classe Worksheetfunction

Et sinon, je crois que le Countifs est nécessaire à cause des deux conditions:
-Température supérieure à Température_référence -0.5
-Température inférieure à Température_référence +0.5
Ceci pour encadrer une température (exemple pour 10, je souhaite comptabiliser toutes les valeurs comprises entre 9.5 et 10.5)
J'espère être assez clair

Merci!

**SfJ5Rpw8** · 25/10/2014, 16h55

L'aide en ligne de countifs n'est pas très explicite .. il faut répéter la plage de cellules concernées pour chaque critéres

essai :

Code :

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

Freq_Temp = WorksheetFunction.CountIfs(Sheets("Data 1").Columns(num), "<" & Texces,Sheets("Data 1").Columns(num), ">" & Tdefaut)

**LorenzoN** · 25/10/2014, 17h12

Nouvellle ligne de code:

Code :

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

Freq_Temp = WorksheetFunction.CountIfs(Sheets("Data 1").Columns(num).Value, "<" & Texces, Sheets("Data 1").Columns(num), ">" & Tdefaut)

Cette fois ci le résultat est:

Erreur d’exécution '424'
Objet Requis

J'ai également essayé par l'intermédiaire de l'enregistreur automatique de Macro.

Le code qui en résulte est

Code :

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

1
2
3
ActiveCell.FormulaR1C1 = "=(COUNTIFS('Data 1'!C[num],CONCATENATE(""<"",RC1+0.5),'Data 1'!C[num],CONCATENATE("">"",RC1-0.5)))*10/60"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B27")

Ce code là marche bien si dans les crochets C[], il n'y a qu'un nombre (en effet avec l'enrengistreur de Macro j'ai fixé une colonne donnée pour cette formule).
Cependant, lorsque je souhaite remplacer le nombre par la variable num, il n'y arrive pas et affiche

Erreur d'execution '1004'
Erreur définie par l'application ou par l'objet

La méthode est peut être moins bien mais j'ai également cherché une solution de ce côté...infructueusement d'accord mais c'est peut être plus facile

**SfJ5Rpw8** · 25/10/2014, 17h18

as tu essayé ma ligne ?

**Theze** · 25/10/2014, 17h51

Bonsoir,

Pour le test, en colonne A à partir de A2 les températures qui ont été relevées et en colonne B les températures don tu cherche la fréquence avec +/- 0,5 °C. La feuille est nommée Feuil1 et les résultats sont inscrits en colonne C, adapte :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Test()
 
    Dim PlageTemp As Range
    Dim Plage As Range
    Dim TMini As Single
    Dim TMaxi As Single
    Dim Cel As Range
 
    With Worksheets("Feuil1") '<-- adapter le nom de la feuille
 
        'plage des températures relevées en colonne A à partir de A2
        Set PlageTemp = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
        'plage des température dont la fréquence est recherchée en colonne B à partir de B2
        Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        TMini = Cel.Value - 0.5
        TMaxi = Cel.Value + 0.5
 
        Cel.Offset(, 1).Value = WorksheetFunction.CountIfs(PlageTemp, ">=" & Replace(TMini, ",", "."), PlageTemp, "<=" & Replace(TMaxi, ",", "."))
 
    Next Cel
 
End Sub

Hervé.

**LorenzoN** · 25/10/2014, 18h06

Envoyé par bbil

as tu essayé ma ligne ?

oui et c'est là qu'il m'affiche

Objet Requis

Malheuresement cette méthode ne marche pas (sauf autre erreur de ma part...)

**LorenzoN** · 25/10/2014, 18h07

Envoyé par Theze

Bonsoir,

Pour le test, en colonne A à partir de A2 les températures qui ont été relevées et en colonne B les températures don tu cherche la fréquence avec +/- 0,5 °C. La feuille est nommée Feuil1 et les résultats sont inscrits en colonne C, adapte :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub Test()
 
    Dim PlageTemp As Range
    Dim Plage As Range
    Dim TMini As Single
    Dim TMaxi As Single
    Dim Cel As Range
 
    With Worksheets("Feuil1") '<-- adapter le nom de la feuille
 
        'plage des températures relevées en colonne A à partir de A2
        Set PlageTemp = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
        'plage des température dont la fréquence est recherchée en colonne B à partir de B2
        Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        TMini = Cel.Value - 0.5
        TMaxi = Cel.Value + 0.5
 
        Cel.Offset(, 1).Value = WorksheetFunction.CountIfs(PlageTemp, ">=" & Replace(TMini, ",", "."), PlageTemp, "<=" & Replace(TMaxi, ",", "."))
 
    Next Cel
 
End Sub

Hervé.