XL pour MAC Macro pour remplissage automatique de cellules

[Ebene]

Bonjour
Est-il possible avec une macro, de faire la même chose que dans Excel, à savoir :
lorsque l'on double clique sur le petit carré en bas à droite d'une cellule sélectionnée,
le remplissage des cellules suivantes de la colonne se fait automatiquement jusqu'à la dernière ligne ?
Dans le fichier simplifié joint, les colonnes C, F et H sont à remplir automatiquement.
L'onglet AVANT correspond à ce que j'ai.
L'onglet APRES correspond à ce que je veux au final.
(Sur les fichiers définitifs, les colonnes à remplir ne seront pas celles du fichier simplifié mais je pense que ce sera adaptable)
Merci

 

[Staple1600]

Bonjour

Une base sur laquelle ensuite généraliser

Sub Macro1()
Range("C2:C7,F2:F7,H2:H7").FillDown
End Sub

 

[Staple1600]

Re

En continuant mes tests, j'en suis arrivé à ceci

Sub test_ok()
Dim i&, rng As Range
Set rng = Cells(1).CurrentRegion.SpecialCells(xlCellTypeBlanks)
For i = 1 To rng.Areas.Count
rng.Areas(i).Formula = rng.Areas(i).Item(1).Offset(-1).Formula
Next
End Sub

Test OK sur PC

NB: Sinon le raccourci CTRL+B marche trés bien aussi
(même sur une sélection multiple)
D'ailleurs la macro du message#2 n'est que la transcription en VBA de ce fameux raccourci

 

[Ebene]

Merci pour votre réponse rapide.
mais les fichiers que je reçois ont un nombre de ligne variable.
je ne sais pas comment indiquer d'aller jusqu'à la dernière ligne.

 

[Staple1600]

Re

Tu as testé le dernier code proposé?
Celui du message#3?

 

[Ebene]

Non désolé je n'avais pas vu tu es trop rapide pour moi
Je teste
Merci

 

[Ebene]

Effectivement cela marche sur le fichier simplifié mais sur le fichier définitif, cela rempli toutes les cellules vides.
Or il faut seulement modifier les colonnes L, W, Y
Merci

 

[Phil69970]

Bonjour @Ebene, @Staple1600, le forum

Je te propose ceci:

Private Sub MaJ()
Application.ScreenUpdating = False
Dim Derlig&

With Worksheets("WDPD1359 - MR BRICOLAGE")
    Derlig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("L2:L" & Derlig).FillDown
    .Range("W2:W" & Derlig).FillDown
    .Range("Y2:Y" & Derlig).FillDown
End With

End Sub

*Edit : J'ai rajouté le fichier

@Phil69970

 

[Staple1600]

Bonjour Phil

Or il faut seulement modifier les colonnes L, W, Y

C'est donc tout logiquement que le fichier exemple nous montrait

Dans le fichier simplifié joint, les colonnes C, F et H sont à remplir automatiquement.

 

[Phil69970]

Re

C'est vrai que souvent le demandeur ne met pas un fichier représentatif de sa problématique.
A savoir ici il aurait mis dans son exemple le nom de son onglet et les colonnes à traiter (L,W,Y) 7 post aurait été épargné, mais je n'aurais point pu te donner le bonjour....

@Phil69970

 

[Staple1600]

Re

Donc en adaptant ma macro précédente

Sub Test_OK_B()
Dim i&, rng As Range
Set rng = Union([L:L].SpecialCells(4), [W:W].SpecialCells(4), [Y:Y].SpecialCells(4))
For i = 1 To rng.Areas.Count
rng.Areas(i).Formula = rng.Areas(i).Item(1).Offset(-1).Formula
Next
End Sub

 

[Staple1600]

Re

Phil
Exact.
Mais perdre du temps un jour férié, c'est malaisant comme dirait ma nièce
(Non, je plaisante)
D'ailleurs en parlant de plaisanterie, le code précédent en avait des miettes
Donc code corrigé

Sub Test_OK_B()
Dim i&, r As Range
Set r = Union([L:L].SpecialCells(4), [W:W].SpecialCells(4), [Y:Y].SpecialCells(4))
For i = 1 To r.Areas.Count
r.Areas(i).Offset(-1).Resize(r.Rows.Count + 1) = r.Areas(i).Item(1).Offset(-1).Formula
Next
End Sub

 

[Staple1600]

Re

En mixant mon message#2 avec le message#12
Je simplifie ainsi

Sub Test_OK_C()
Dim i&, r As Range
Set r = Union([L2], [L:L].SpecialCells(4), [W2], [W:W].SpecialCells(4), [Y2], [Y:Y].SpecialCells(4))
r.FillDown
End Sub

=>Phil
Tu ne vois pas de biais possible?
Cela semble fonctionner non?

 

[Ebene]

Désolé d'avoir fourni un fichier simplifié, je pensais bien faire, mais pas vous faire perdre de temps !
Surtout un jour férié !
La dernière macro fonctionne parfaitement.
Merci à tous

 

[Phil69970]

Re

=>Phil
Tu ne vois pas de biais possible?
Cela semble fonctionner non?

Ben sauf si la colonne A n'est pas bien remplie, alors il suffit de prendre une autre colonne de référence.

@Ebene : As tu testé mon fichier

@Phil69970