Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Autofill avec deux variables [nom de colonne inclus en variable]

Autofill avec deux variables [nom de colonne inclus en variable]

5 réponses
Avatar
Bambi76
Bonjour,
Pour le travail j'ai besoin d'effectuer un autofill avec deux variables.

Les variables contiennent la position de la premiere cellule ou l'autofill commence, et celle ou il fini.
J'ai vu plusieurs exemples sur internet, et même sur ce forum, mais toutes n'avaient que le numéro de ligne en variable.
Exemple :
Selection.AutoFill Destination:=Range("AE" & y & ":AE" & x)

Or dans mon cas, la colonne utilisée peut varier selon la demande du client et je ne serais pas le seul a utiliser ce tableau.

Bref dans l'idée de faire un truc flexible, il me faut pouvoir entrer la position de début et fin entiere.

J'ai essayé ceci, mais cela n'a bien sur pas marché .

PLVC = N5
DLVC = N2316

Selection.AutoFill Destination:=Range("" & PLVC & ":" & DLVC), Type:=xlFillDefault

Merci a l'avance :)
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
DanielCo
Bonjour,
Avec "B1" et "B10" en A1 et A2 :

Range([A1].Value).AutoFill Range(Range([A1].Value), Range([A2].Value))

Daniel


Bonjour,
Pour le travail j'ai besoin d'effectuer un autofill avec deux variables.

Les variables contiennent la position de la premiere cellule ou l'autofill
commence, et celle ou il fini.
J'ai vu plusieurs exemples sur internet, et même sur ce forum, mais toutes
n'avaient que le numéro de ligne en variable.
Exemple :
Selection.AutoFill Destination:=Range("AE" & y & ":AE" & x)

Or dans mon cas, la colonne utilisée peut varier selon la demande du client
et je ne serais pas le seul a utiliser ce tableau.

Bref dans l'idée de faire un truc flexible, il me faut pouvoir entrer la
position de début et fin entiere.

J'ai essayé ceci, mais cela n'a bien sur pas marché .

PLVC = N5
DLVC = N2316

Selection.AutoFill Destination:=Range("" & PLVC & ":" & DLVC),
Type:=xlFillDefault

Merci a l'avance :)
Avatar
bambi76
Le vendredi 17 Janvier 2014 à 13:22 par Bambi76 :
Bonjour,
Pour le travail j'ai besoin d'effectuer un autofill avec deux variables.

Les variables contiennent la position de la premiere cellule ou l'autofill
commence, et celle ou il fini.
J'ai vu plusieurs exemples sur internet, et même sur ce forum, mais
toutes n'avaient que le numéro de ligne en variable.
Exemple :
Selection.AutoFill Destination:=Range("AE" & y &
":AE" & x)

Or dans mon cas, la colonne utilisée peut varier selon la demande du
client et je ne serais pas le seul a utiliser ce tableau.

Bref dans l'idée de faire un truc flexible, il me faut pouvoir entrer la
position de début et fin entiere.

J'ai essayé ceci, mais cela n'a bien sur pas marché .

PLVC = N5
DLVC = N2316

Selection.AutoFill Destination:=Range("" & PLVC &
":" & DLVC), Type:=xlFillDefault

Merci a l'avance :)


Bonjour et merci de ta réponse.
Erreur de la Compilation :/

Compilateur incorrecte :
Range([PLVC].Value).AutoFill Range(Range([PLVC].Value), Range([DLVC].Value))

(le deuxième PLVC est surligné par le debog)
Avatar
DanielCo
Le vendredi 17 Janvier 2014 à 13:22 par Bambi76 :
Bonjour,
Pour le travail j'ai besoin d'effectuer un autofill avec deux variables.

Les variables contiennent la position de la premiere cellule ou l'autofill
commence, et celle ou il fini.
J'ai vu plusieurs exemples sur internet, et même sur ce forum, mais
toutes n'avaient que le numéro de ligne en variable.
Exemple :
Selection.AutoFill Destination:=Range("AE" & y &
":AE" & x)

Or dans mon cas, la colonne utilisée peut varier selon la demande du
client et je ne serais pas le seul a utiliser ce tableau.

Bref dans l'idée de faire un truc flexible, il me faut pouvoir entrer la
position de début et fin entiere.

J'ai essayé ceci, mais cela n'a bien sur pas marché .

PLVC = N5
DLVC = N2316

Selection.AutoFill Destination:=Range("" & PLVC &
":" & DLVC), Type:=xlFillDefault

Merci a l'avance :)


Bonjour et merci de ta réponse.
Erreur de la Compilation :/

Compilateur incorrecte :
Range([PLVC].Value).AutoFill Range(Range([PLVC].Value), Range([DLVC].Value))

(le deuxième PLVC est surligné par le debog)



Regarde le classeur ici :

http://cjoint.com/?DArpZZnKKBL

(je ne sais pas à quoi correspond PLVC) et quelle est sa valeur.

Daniel
Avatar
MichD
Bonjour,

2 façons de procéder :

'-----------------------------------------------
Sub test()
Dim LastCell As Range
With Worksheets("Feuil1")
Set LastCell = .Range("N65536").End(xlUp)
.Range("N5").AutoFill .Range(.Range("N5"), LastCell)
End With
End Sub


'-----------------------------------------------
Sub test2()

Dim PLVC As Range
Dim DLVC As Range

With Worksheets("Feuil1")
Set PLVC = .Range("N5")
Set DLVC = .Range("N2316")
PLVC.AutoFill .Range(PLVC, DLVC)
End With
End Sub
'-----------------------------------------------
Avatar
bambi76
Le vendredi 17 Janvier 2014 à 13:22 par Bambi76 :
Bonjour,
Pour le travail j'ai besoin d'effectuer un autofill avec deux variables.

Les variables contiennent la position de la premiere cellule ou l'autofill
commence, et celle ou il fini.
J'ai vu plusieurs exemples sur internet, et même sur ce forum, mais
toutes n'avaient que le numéro de ligne en variable.
Exemple :
Selection.AutoFill Destination:=Range("AE" & y &
":AE" & x)

Or dans mon cas, la colonne utilisée peut varier selon la demande du
client et je ne serais pas le seul a utiliser ce tableau.

Bref dans l'idée de faire un truc flexible, il me faut pouvoir entrer la
position de début et fin entiere.

J'ai essayé ceci, mais cela n'a bien sur pas marché .

PLVC = N5
DLVC = N2316

Selection.AutoFill Destination:=Range("" & PLVC &
":" & DLVC), Type:=xlFillDefault

Merci a l'avance :)


Je jette un coup d'oeil a vos solutions et je vous tiens au courant ;)