XL pour MAC Macro pour remplissage automatique de cellules

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #2

Bonjour

Une base sur laquelle ensuite généraliser

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #3

Re

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

VB:

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 😉

 

Vote positif 0 Vote négatif

E

Ebene

Guest

• 5 Avril 2021

• #4

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #5

Re

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

 

Vote positif 0 Vote négatif

E

Ebene

Guest

• 5 Avril 2021

• #6

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

 

Vote positif 0 Vote négatif

E

Ebene

Guest

• 5 Avril 2021

• #7

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

 

Pièces jointes

• fichier3.xlsx

  12.4 KB · Affichages: 7

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 5 Avril 2021

• #8

Bonjour @Ebene, @Staple1600, le forum

Je te propose ceci:

VB:

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

 

Pièces jointes

• Colonnes L W Y_V1.xlsm

  20.7 KB · Affichages: 7

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #9

Bonjour Phil

Comment perdre du temps¸ à dit:

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

Cliquez pour agrandir...

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.

Cliquez pour agrandir...

🙄

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 5 Avril 2021

• #10

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #11

Re

Donc en adaptant ma macro précédente

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #12

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é

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Avril 2021

• #13

Re

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

VB:

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?

 

Vote positif 0 Vote négatif

E

Ebene

Guest

• 5 Avril 2021

• #14

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 5 Avril 2021

• #15

Re

Staple1600 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif