Discussion :

[gandalf20000000]

Bonjour,

Je cherche à créer une macro excel qui étire des formules d'un tableau à partir de la derniere colonne remplie.


J'ai uploader une image pour l'exemple :



J'aimerais donc un macro qui étire les formules de la derniere colonne remplie (08/09/09) d'un colonne vers la droite.
Puis, au prochain lancement de la macro, elle étirerait les formules de la derniere colonne rempli (09/09/09) etc...

Je n'arrive pas à créer la macro pour selectionner et copier exactement la dernière colonne, qu'elqu'un peu m'aider?

merci

cdt

[aalex_38]

Bonjour,

Tu peux utiliser la méthode AutoFill

Un exemple perso à adapter :

Code :

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

1
2
3
4
5
6
' ----------- Recopier la formule
Dim mycell1 As Range: Set mycell1 = Cells(ligne, colonne)
Dim maformule As Range
Set maformule = Union(Cells(mycell1.Row - 1, 7), Cells(mycell1.Row, 7))
Range(Cells(mycell1.Row - 1, 7).Address).AutoFill Destination:=Range(maformule.Address)
Set maformule = Nothing

Un autre exemple :

Code :

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

1
2
3
4
 
 i = Range("A1").End(xlUp)row
Range("U2").FormulaLocal = "=NB.SI(A:A;A2)>1"
Range("U2").AutoFill Destination:=Range("U2:U" & i)

Edit : Bonjour Diude54

[diude54]

Voici un exemple, à adapter à ton cas bien sur:

Code :

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

1
2
3
4
5
6
Sub col()
Dim ColD As Long, Derlig As Long
ColD = Range("A5").End(xlToRight).Column
Derlig = Cells(65536, ColD).End(xlUp).Row
Range(Cells(1, ColD), Cells(Derlig, ColD)).AutoFill Destination:=Range(Cells(1, ColD), Cells(Derlig, ColD + 1)), Type:=xlFillDefault
End Sub

[gandalf20000000]

Voici un exemple, à adapter à ton cas bien sur:

Code :

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

1
2
3
4
5
6
Sub col()
Dim ColD As Long, Derlig As Long
ColD = Range("A5").End(xlToRight).Column
Derlig = Cells(65536, ColD).End(xlUp).Row
Range(Cells(1, ColD), Cells(Derlig, ColD)).AutoFill Destination:=Range(Cells(1, ColD), Cells(Derlig, ColD + 1)), Type:=xlFillDefault
End Sub

Merci pour tous vos exemples.

je ne suis pas un gros craque en VBA, j'ai donc essayé celle la (qui me semblait plus simple lol)

Ca marche à une exeption, J'aimerais pouvoir choisir quel ligne étendre (Par exemple la ligne 1 et 3, ou 2 et 4 etc...)

Je ne vois pas comment faire..

merci de votre aide

[diude54]

Si tu places une input box au debut tu peux choisir le n° de ligne,

Sinon tu peux adapter dans le code directement:

Code :

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

1
2
3
4
5
6
Sub col()
Dim ColD As Long, Derlig As Long
ColD = Range("A5").End(xlToRight).Column
'Derlig = Cells(65536, ColD).End(xlUp).Row
Range(Cells(1, ColD), Cells(Derlig, ColD)).AutoFill Destination:=Range(Cells(1, ColD), Cells(Derlig, ColD + 1)), Type:=xlFillDefault
End Sub

Genre tu saisi à la place des valeurs en rouge le numero de ligne, attention, si tu saisi 1 et 3, tu vas étirer de la ligne 1 à 3

Voici une macro qui demande au départ les lignes (comme tu l'as demandé ).
Une Inputbox apparait au début et demande les n° de ligne, il faut séparer ces n° par un ;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Etirer()
Dim Tableau
Dim Lignes As String
Dim ColD As Long
 
Lignes = InputBox("Saisissez les lignes séparées par un ; ", "Choix des lignes")
Tableau = Split(Lignes, ";")
On Error GoTo suite
For i = 0 To UBound(Tableau)
l = Val(Tableau(i))
ColD = Cells(l, 1).End(xlToRight).Column
Cells(l, ColD).AutoFill Destination:=Range(Cells(l, ColD), Cells(l, ColD + 1)), Type:=xlFillDefault
suite:
Next i
 
End Sub

[gandalf20000000]

Voici une macro qui demande au départ les lignes (comme tu l'as demandé ).
Une Inputbox apparait au début et demande les n° de ligne, il faut séparer ces n° par un ;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Etirer()
Dim Tableau
Dim Lignes As String
Dim ColD As Long
 
Lignes = InputBox("Saisissez les lignes séparées par un ; ", "Choix des lignes")
Tableau = Split(Lignes, ";")
On Error GoTo suite
For i = 0 To UBound(Tableau)
l = Val(Tableau(i))
ColD = Cells(l, 1).End(xlToRight).Column
Cells(l, ColD).AutoFill Destination:=Range(Cells(l, ColD), Cells(l, ColD + 1)), Type:=xlFillDefault
suite:
Next i
 
End Sub

Re-bonjour,


Merci pour toutes ces lignes de codes, ca marche bien. J'ai juste enlevé l'inputbox pour metre moi meme mes lignes à selectionner.


Il reste encore un point sur lequel je calle . Je ne l'avais pas dit précedement, mais il peut arrivé que certaines lignes soient précédement vide (exemple en image).


Du coup, quand j'exécute la macro il me rempli pas la derniere colonne, mais la 1er vide...

comment changer la macro?
merci