Discussion :

[babou466]

bonjour à tous, j'ai il me semble un problème de syntaxe une fois de plus. Le compilateur me signale une erreur au niveau de la seconde ligne du code suivant:

Code :

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

1
2
Range("J160:K162").Select
Selection.AutoFill Destination:=Range(Cells(160, 10), Cells(162, DerniereColonneTCDyn)), Type:=xlFillDefault

Est ce que quelqu'un pourrait m'aider s'il vous plaît? merci à vous et bonne journée.

[casefayere]

Bonjour à toi et tout le forum,

Un exemple trouvé dans l'aide (il faut s'en servir)

Code :

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

1
2
3
4
5
6
7
Sub essai()
Dim sourcerange As Range, fillRange As Range
Range("J160:K162").Select
Set sourcerange = Range("J160:K162")
Set fillRange = Range("J160:K180") ' k à remplacer
sourcerange.AutoFill Destination:=fillRange
End Sub

Bonne journée