Etendre une formule jusqu'à une variable en VBA

Bonjour,

Je cherche à étendre une formule jusqu'à une cellule qui peut amener à changer.

Voici le code :

Dim nb_jour As Integer
Dim nb_jour_cdeabc As Integer
Dim B1 As String

nb_jour = InputBox("Renseigner le nombre de jour traité :")
nb_jour_cdeabc = nb_jour * 3 + 1
colonne_abc = conversion_nb_colonne(nb_jour_cdeabc) & "3"

cellule_B1 = "B1"

Range("B1:D3").Select
Selection.AutoFill Destination:=Cells(cellule_B1:colonne_ABC), Type:=xlFillDefault

La fonction conversion_nb_colonne me permet de convertir les nombres en lettre pour les colonnes.

J'ai stocké la colonne jusqu'à laquelle j'aimerais étendre la formule dans la variable colonne_abc.

J'ai utilisé range dans un premier temps mais ça ne fonctionnait pas j'ai donc essayé avec cells et ça ne fonctionne pas non plus.

Quelqu'un pourrait m'éclairer ?

Merci d'avance

Bonjour,

Dans la même idée, mais en adaptant Range et ne sachant ce que vous avez en B1 :

Sub J()
Dim nb_jour As Integer
Dim nb_jour_cdeabc As Integer
Dim B1 As String
nb_jour = InputBox("Renseigner le nombre de jour traité :")
nb_jour_cdeabc = nb_jour * 3 + 1
colonne_ABC = conversion_nb_colonne(nb_jour_cdeabc) & "3"
cellule_B1 = "B1"
Range("B1:D3").Select
Selection.AutoFill Destination:=Range(cellule_B1 & ":" & colonne_ABC)
End Sub

Cdlt,

Ca fonctionne parfaitement

Merci encore !