Discussion :

[Swini]

Bonjour à tous,
je débute dans les macros sous Excel mais voila j'arrive à un point ou les tutos et les forums existant ne répondent plus à mon problème. Je viens donc solliciter votre aide en espérant que cela m'aideras et servira les gens qui sont également dans le même cas que moi.

voila le code qui me pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set SourceRange = Worksheets("analyses €").Range("A23:AJ23")
Set fillRange = Worksheets("analyses €").Range("A23:AJ12023")
SourceRange.AutoFill Destination:=fillRange

Aucuns problème sur excel 2007 ... sauf qu'au taff nous sommes encore sur excel 2003 et je me tape une erreur : selection trop grande.

Le problème est dû à la limitation de la fonction fillRange qui est faite sur Excel 2003.

Comment faire pour éviter cette erreur ?

j'ai beau essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set SourceRange = Worksheets("analyses €").Range("A23:Z23")
Set fillRange = Worksheets("analyses €").Range("A23:Z12023")
SourceRange.AutoFill Destination:=fillRange
Set SourceRange = Worksheets("analyses €").Range("AA23:AJ23")
Set fillRange = Worksheets("analyses €").Range("AA23:AJ12023")
SourceRange.AutoFill Destination:=fillRange

Mais rebelote sur la deuxième fillRange... Je suis bloquer

Est-ce que un

"Application.CutCopyMode = False"

réglerais mon problème ?

Merci d'avance a ceux qui prendrons la peine de me répondre.
Cdt,

[Theze]

Bonjour,

Et en morcelant ? Une idée à tester. J'ai aussi Excel 2007 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
With Worksheets("analyses €")
 
    Set SourceRange = .Range("A23:AJ23")
    Set fillRange = .Range("A23:AJ6000")
    SourceRange.AutoFill Destination:=fillRange
 
    Set SourceRange = .Range("A6000:AJ6000")
    Set fillRange = .Range("A6000:AJ12023")
    SourceRange.AutoFill Destination:=fillRange
 
End With

Hervé.

[Philippe Tulliez]

Bonjour,
Je viens de tester ta procédure qui fonctionne parfaitement sur les versions 2003 et 2010.
J'ai généré des nombres aléatoires entre 100 et 999 dans la plage A23:AJ23 et ensuite j'ai fais tourner la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Dim SourceRange As Range, fillRange As Range
 Set SourceRange = Worksheets("analyses €").Range("A23:AJ23")
 Set fillRange = Worksheets("analyses €").Range("A23:AJ12023")
 SourceRange.AutoFill Destination:=fillRange