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

XLDnaute Nouveau

• 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

XLDnaute Nouveau

• 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

XLDnaute Nouveau

• 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

XLDnaute Nouveau

• 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