Arf J'ai capté,
Tu ne veux pas dire que "=NB.SI(December!A$3:A$42;Controle!$A4) n'existe pas"
Tu veux dire que dans la feuille (par exemple) "Decembre" la Colonne A est vide (ou contient autre chose !!)
Même si on parle plus VBA qu'autre chose dans ce forum, un peu de français avec Option Explicit serait le bienvenu !!! lol
Bon alors DEUX options
Sub InscrireFormuleA()
Dim A As Byte, B As Byte, Col As Byte, lig As Byte, page As String
Col = 2
lig = 4
page = InputBox("Indiquer le mois à controler", "Page Number", "januari")
If page = "" Then Exit Sub
Worksheets("Controle").Range("C2").Formula = "=" & page & "!B1"
For A = 1 To 31
For B = 1 To 19
Worksheets("Controle").Cells(lig, Col).Formula = "=Countif(" & _
page & "!R3C[-" & A - 1 & "]:R42C[-" & A - 1 & "],Controle!RC1)"
lig = lig + 1
Next B
lig = 4
Col = Col + 2
Next A
End Sub
OU BIEN
Sub InscrireFormuleB()
Dim A As Byte, B As Byte, C As Byte, Col As Byte, lig As Byte, page As String
Col = 2
lig = 4
page = InputBox("Indiquer le mois à controler", "Page Number", "januari")
If page = "" Then Exit Sub
Worksheets("Controle").Range("C2").Formula = "=" & page & "!B1"
C = 0
For A = 1 To 31
For B = 1 To 19
Worksheets("Controle").Cells(lig, Col).Formula = "=Countif(" & _
page & "!R3C[-" & C & "]:R42C[-" & C & "],Controle!RC1)"
lig = lig + 1
Next B
lig = 4
Col = Col + 2
C = C + 1
Next A
End Sub
La seconde n'est pas préférable, je l'ai juste faite pour montrer comment jouer avec des varAible compteur... Mais ce n'est pas conseillé de faire comme çà car c'est certainement plus long !!
Voilà cette fois ci ce devrait être OK de chez OK ? non ?
@+Thierry