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

[chrispo]

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]

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 :

Selection.AutoFill Destination:=plage, Type:=xlFillDefault

bon après midi
@+

 

[chrispo]

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.

 

[Pierrot93]

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

Re,

mais malheureusement sa ne marche pas.

cela veut dire quoi ? message d'erreur ou pas le résultat attendu...

 

[chrispo]

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]

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]

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]

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]

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]

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]

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

 

[Pierrot93]

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

Re,

A voir si cela ne suffirait pas ....

Range("B8:G262").FormulaR1C1 = "=SUM('Base de donnée'!R2C1,'Base de donnée'!R[-3]C)*R[-1]C"

 

[Pierrot93]

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

Re,
manque un dans ta formule :

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