Problème autofill et offset combinés

Bonjour,

j'ai un petit problème avec une macro.

Je souhaite chercher la dernière colonne non vide de ma plage de données et incrémenter automatiquement la colonne suivante avec autofill.

J'ai donc la macro suivante mais j'obtiens une erreur 1004 : la méthode autofill de la classe range a échoué.

Sub tirer()

'

' tirer Macro

'

'

'

Range(Range("A2").End(xlToRight), Range("A9").End(xlToRight)).Select

Selection.AutoFill Destination:=Range(ActiveCell.Offset(0, 1),

ActiveCell.Offset(0, 1)), Type:=xlFillDefault

End Sub

Je vous remercie d'avance si quelqu'un sait comment faire

a++

Bonjour,

Incrémenter avec la sélection ou la dernière colonne de la sélection ?

Mets un fichier avec explications c'est plus facile de comprendre

Autre chose : lorsque tu mets en code dans ta demande utilise les balises "code" en sélectionnant le code que tu places puis en cliquant sur le bouton "code".

A te relire

salut,

désolé pour la balise j'avais aps vu

Sub tirer()
'
' tirer Macro
'
'

'
Range(Range("A2").End(xlToRight), Range("A9").End(xlToRight)).Select
Selection.AutoFill Destination:=Range(ActiveCell.Offset(0, 1),
ActiveCell.Offset(0, 1)), Type:=xlFillDefault
End Sub

Je ne peux pas mettre le fichier en ligne parce que c'est confidentiel (boulot), mais en fait:

• ma plage de données contient des formules
• je veux sélectionner la dernière colonne
• incrémenter la colonne suivante avec ma sélection ( qui contient les formules de ma plage de données )

Merci de ton aide

re,

essaie ceci :

Sub tirer()
'Macro Dan pour Gabilel le 13/07/10
Dim dcol As Byte
dcol = Range("IV1").End(xlToLeft).Column
Range(Cells(2, dcol), Cells(9, dcol)).Copy Range(Cells(2, dcol + 1), Cells(9, dcol + 1))
End Sub

J'ai supposé que la dernière ligne est toujours la ligne 9.

Amicalement

Ca marche nickel

merci beaucoup

a++