Erreur d'execution 1004 methode range de l'objet global a ec
Bonjour ,
J'ai un problème avec la méthode Range de la macro ci dessous (en rouge). Si quelqu'un à une idée de correction se sera avec plaisir.
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
Je vous remercie d'avance
Bonjour, je crois qu'il y a plusieurs erreurs...
Range("E2" & i + 1).Select ne serait-ce pas plutôt Range("E" & i + 1) ?
Bonjour force rouge,
Merci de m'avoir répondu.
J'ai essayé ta proposition mais malheureusement ça n'a pas fonctionné.
Pardon, la bonne syntaxe c'est :
Selection.AutoFill Destination:=plage, Type:=xlFillDefaultça ne marche toujours pas force rouge,
Moi aussi j'ai essayé plusieurs syntaxe auparavant sans succès.
Continuons à chercher.....
Il y a quoi dans les cellules E217 à E263 ?
Elles sont pour l'instant vide, et j'aimerais à travers le code leurs insérer une formule et également à l'ensemble du tableau à partir de E17 jusqu'a NE263
Bonjour,
il y a également une erreur ici
Range("plage").Selectcela devrait être
plage.select-->Range("E2" & i + 1) = E217 = vide (Autofill du vide ?!)
Edit salutation h2so4 oui pour l'erreur de plage, c'est notifié plus haut