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!