Incrémenter vers la droite

Bonjour à tous

Je cherche à incrémenter la sélection d'une colonne vers la droite. Une solution ?

Sub test()

ThisWorkbook.Activate
Sheets("STOCK").Select
Range("A2").End(xlToRight).Offset(0, 0).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.AutoFill Destination:=Range ?

End Sub

Merci d'avance

Bonjour Apprenti, bonjour le forum,

Peut-être comme ça (non testé) :

Sub test()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim COL As Range 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set OS = Sheets("STOCK") 'définit l'onglet OS
COL = OS.Range("A2").End(xlToRight).Column 'définit la colonne COL
DL = OS.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de le colonne COL de l'onglet OS
'rempli de la cellule ligne 2 colonne COL jusqu'à la cellule ligne DL colonne COL
OS.Cells(2, COL).AutoFill OS.Range(OS.Cells(2, COL), OS.Cells(DL, COL))
End Sub

Merci pour ta proposition

COL = OS.Range("A2").End(xlToRight).Column 'définit la colonne COL

Pour cette ligne cela me retourne variable objet non définie

Re,

Désolé, la déclaration de la variable COL était erronée :

Sub test()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set OS = Sheets("STOCK") 'définit l'onglet OS
COL = OS.Range("A2").End(xlToRight).Column 'définit la colonne COL
DL = OS.Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la dernière ligne éditée DL de le colonne COL de l'onglet OS
'rempli de la cellule ligne 2 colonne COL jusqu'à la cellule ligne DL colonne COL
OS.Cells(2, COL).AutoFill OS.Range(OS.Cells(2, COL), OS.Cells(DL, COL))
End Sub

Ta solution incrémente vers le bas la première case de la colonne suivante

Re,

Si tu avais daigné mettre un fichier dès ton premier post ton problème aurait été réglé de suite...

Le code modifié :

Sub test()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

Set OS = Sheets("STOCK") 'définit l'onglet OS
COL = OS.Range("A2").End(xlToRight).Column 'définit la colonne COL
OS.Cells(2, COL).AutoFill OS.Range(OS.Cells(2, COL), OS.Cells(2, COL + 51)) 'recopie jusqu'à la cellule de la ligne 2 colonne COL +51
End Sub

Bonjour,

Désolé si ce n'est pas clair, je souhaite incrémenter BB2:BB26 vers la droite et ensuite la semaine suivante incrémenter BC2:BC26 vers la droite etc...

Re,

Ce n'est pas ce que montre ton exemple !... Donne nous un classeur avec deux onglets avant et après la macro. Peut-être on comprendra mieux...

Le code que j'ai fournit au début du post sélectionne une plage de cellule. Je souhaite incrémenter cette plage une fois vers la droite .

J'espère que se sera plus clair...

Re,

En effet maintenant c'est clair mais comme je suis nul en formules je passe la main.

Merci pour ton temps, je vais ouvrir un autre post qui sera directement clair.

Excellente idée !!!