Discussion :

[moukimouk]

Bonjour Le forum

je cherche une solution tirer une formule vers le bas type

Code :

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

Selection.AutoFill Destination:=Range("BU2:BU584")

mais sans utiliser BU mais plutôt une variable; en effet

j'utilise cette fonctionne régulièrement mais tous les mois par exemple je vais devoir décaler car ma nouvelle fonction à étirer sera en BV puis en BW etc

Avez vous une idée ?

Merci

[Raccourcix]

Bonjour
de mon point de vue il faut utiliser les tableaux structurés et Power Query mais pas VBA.
Stéphane

[moukimouk]

Oui tout à fait cependant j'ai cherché la formulation par exemple

Code :

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

Selection.AutoFill Destination:=Range("RC[0]:RC[-10]")

Mais il ne veut pas y aller....

[thekat]

Bonjour à tous,

Exemple de range avec variables, ici le range sera sélectionné :

Code :

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

Range(Cells(ligneDepart, 1), Cells(derniereLigne, derniereColonne)).Select

[patmeziere]

re
Bonjour
de mon point de vue on est à ce moment là post sélection

du coup si ta sélection contient plusieurs cellule ça va planter bien évidemment

a supposer que j'ai sélectionné BU2:BU584

il me faut donc mémoriser cette sélection et la réduire a une cellule

donc ;il te faut un selection.cells(1).select après avoir mémoriser la plage de sélection bien évidemment

donc si je fait ceci ça colle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
   Dim r as range
    'si tu a déjà sélectionné ta cellule ou tout tes lignes alors
    If Selection.Cells.Count = 1 Then Exit Sub
    Set r = Selection
 
    'on étend pas une sélection de plusieurs ligne
    'on  revient  à  la première cellule pour l’étendre
    Selection.Cells(1).Select
 
    'maintenant on peut étendre ta formule de BU2
    Selection.AutoFill Destination:=r, Type:=xlFillDefault
End Sub

du coup ça pourrait se reduire à ceci

Code :

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

    Selection.Cells(1).AutoFill Destination:=Selection, Type:=xlFillDefault

patrick

[moukimouk]

bonjour @patmeziere

merci pour la propose. Cependant le code ne fonctionne pas. quand je suis en BU et que j'exécute votre proposition de sub il ne se passe rien ?

et pour la sub simplifié il me met un message d'erreur

Merci pour votre aide