erreur d'execution 1004 methode range de l'objet global a echoué

chrispo

XLDnaute Nouveau
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
 

Pierrot93

XLDnaute Barbatruc
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Bonjour,

"plage" étant une variable et non une plage nommée, peut être comme ceci :
Code:
Selection.AutoFill Destination:=plage, Type:=xlFillDefault
bon après midi
@+
 

chrispo

XLDnaute Nouveau
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Slt Pierrot,

Merci de m'avoir répondu

J'ai essayé cela, mais malheureusement sa ne marche pas.
 

chrispo

XLDnaute Nouveau
Re : erreur d'execution 1004 methode range de l'objet global a echoué

ça me renvoi le message suivant:

Erreur d'execution 1004, la methode autofill de la classe Range a échoué
 

Pierrot93

XLDnaute Barbatruc
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Re,

sur la même ligne ? l'instruction suivante semble également du même acabi (utilisation de la variable)... A noter également la destination de ton "autofill" doit inclure également la plage source...
 

chrispo

XLDnaute Nouveau
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Oui c'est exactement sur la même ligne que le problème se produit. La même ligne est soulignée en jaune
 

Pierrot93

XLDnaute Barbatruc
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Re,

la source fait bien partie de la destination ??? mets peut être un tout petit fichier en pièce permettant de tester...
 

chrispo

XLDnaute Nouveau
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Bonjour,

Excuse Pierrot, Je ne comprend pas ta question
La source fait partie de la destination signifie quoi plus concrètement ?
 

Pierrot93

XLDnaute Barbatruc
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Re,

bah... si tu veux copier la cellule x, celle ci doit être présente également dans la plage de destination... donc pour toi "selection" doit être compris dans "plage"
 

chrispo

XLDnaute Nouveau
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Je vous joint un exemple de classeur qui pourrait expliquer ce que je souhaite faire.
En fait j'aimerais pouvoir recopier une formule sur toute les lignes et colonnes d'un grand tableau (265 lignes et 369 colonnes). Dans le cas du fichier joint, j'aimerais recopier les formules de la plage B7:G7 dans toute les lignes du tableau en passant par une macro.

Je vous remercie d'avance de votre aide
 

Fichiers joints

Pierrot93

XLDnaute Barbatruc
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Re,

A voir si cela ne suffirait pas ....
Code:
Range("B8:G262").FormulaR1C1 = "=SUM('Base de donnée'!R2C1,'Base de donnée'!R[-3]C)*R[-1]C"
 

Pierrot93

XLDnaute Barbatruc
Re : erreur d'execution 1004 methode range de l'objet global a echoué

Re,
manque un dans ta formule :
Code:
Range("B8:G262").FormulaR1C1 = "=SUM('Base de donnée'!R2C1,'Base de donnée'!R[-3]C)*R4C"
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas