Salut
Je suis en train de faire plein de tableaux recapitulatifs, dont un qui contient des formules que je dois modifier selon la valeur d'une liste modifiable (cellule liée=F29) et selon un compteur de jours valeur en C2...
mon problème, c'est que le code suivant génère une erreur qd je mets la formule construite ds la cellule :
erreur d'exécution '1004'
erreur définie par l'application ou par l'objet
voici le code, si qq'un voit une erreur...
Sub SatisF()
Dim ret
Dim cpt As Integer
Dim FTemp
cpt = Range("C2").Value
TypeP = Range("F29").Value
Select Case TypeP
Case 1
Feui = "Jour" & cpt & "!$A:$A"
Case 2
Feui = "Jour" & cpt & "!$B:$B"
Case 3
Feui = "Jour" & cpt & "!$C:$C"
Case 4
Feui = "Jour" & cpt & "!$D:$D"
Case 5
Feui = "Jour" & cpt & "!$E:$E"
End Select
FTemp = "=SOMME.SI(Jour" & cpt & "!Y:Y; =1; " & Feui & ")"
Range("B31").FormulaR1C1 = FTemp
FTemp = "=SOMME.SI(Jour" & cpt & "!Y:Y; =2; " & Feui & ")"
Range("B32").FormulaR1C1 = FTemp
FTemp = "=SOMME.SI(Jour" & cpt & "!Y:Y; =3; " & Feui & ")"
Range("B33").FormulaR1C1 = FTemp
Selection.AutoFill Destination:=Selection.Resize(3, 3), Type:=xlFillDefault
End Sub
Toute aide sera la bienvenue
Merci
hal