ActiveCell.FormulaR1C1 avec variable dans R
Bonjour,
Ma question peu sembler redondante, mais malgré plusieurs lectures et recherche sur les forums, ma macro ne fonctionne toujours pas.
En effet, j'aimerais savoir comment insérer les variables j et k dans la formule ActiveCelle.Formulla ci dessous:
Sub test4()
'
' test2 Macro
'
Dim i As Long
Dim j As Long
Dim k As Long
For i = 16 To 262
j = i + 1
k = -i - 1
Range("E" & i - 1).Select
Selection.Copy
Range("E2" & i + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=SUMIF('Base de donnée NC'!R2C19:R30000C19,R["&j&"]C1&R["&k&"]C,'Base de donnée NC'!R2C18:R30000C18)"
Range("E2" & i + 1).Select
Selection.AutoFill Destination:=Range(Cells(i + 1, 5), Cells(i + 1, 369)), Type:=xlFillDefault
Range(Cells(i + 1, 5), Cells(i + 1, 369)).Select
Next
End Sub
Je vous remercie d'avance de votre aide précieuse
Bonjour
Essaie de mettre des espaces de part et d'autre des '' & " et déjà, la couleur rouge disparaitra.
Quant à savoir si ce sera suffisant, il faudrait le fichier ; donc à toi de tester.
Bye !
Merci beaucoup gmb,
J'ai mis les espaces et ma macro s'est corrigé.
Mais un autre problème se presente à l’étape suivante de l’exécution de la macro: erreur d'execution 1004 methode range de l'objet global a echoue et le code s'est mis en jaune. Si quelqu'un à une idée je le remercie enormement. Voici le code:
Sub test4()
'
' test2 Macro
'
Dim i As Long
Dim j As Long
Dim k As Long
Dim plage As Range
For i = 16 To 262
j = i + 1
k = -i - 1
Range("E" & i - 1).Select
Selection.Copy
Range("E2" & i + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=SUMIF('Base de donnée NC'!R2C19:R30000C19,R[" & j & "]C1&R[" & k & "]C,'Base de donnée NC'!R2C18:R30000C18)"
Range("E2" & i + 1).Select
Set plage = Range("E" & j & ":NE" & j)
Selection.AutoFill Destination:=Range("plage"), Type:=xlFillDefault
Range("plage").Select
Next
End Sub
Essaie ensSupprimant la dernière partie de l'instruction qui bloque :
[color=#FFFF00]Selection.AutoFill Destination:=Range("plage"), Type:=xlFillDefaultBye !