XL 2016 Recopier la cellule sur les 2 cellules du dessous...

Phil69970

XLDnaute Barbatruc

• 30 Octobre 2023

• #2

Bonjour @alain.raphael

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Copie suivant col A sur Colonne C V1.xlsm

  16.6 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 30 Octobre 2023

• #3

Bonsoir Alain,
Peut être avec cette petite macro :

VB:

Sub Copie()
Application.ScreenUpdating = False
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For L = 4 To DL Step 3
    Cells(L + 1, "A") = Cells(L, "A")
    Cells(L + 2, "A") = Cells(L, "A")
Next L
End Sub

 

Pièces jointes

• Exemple (1).xlsm

  15 KB · Affichages: 0

Vote positif 0 Vote négatif

A

alain.raphael

XLDnaute Occasionnel

• 30 Octobre 2023

• #4

Merci à vous 2... J'essaie

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 30 Octobre 2023

• #5

Edit Bonjour Sylvain (Grillé pour une fois )

Et si tu veux la copie dans la colonne A

 

Pièces jointes

• Copie suivant col A sur Colonne C V2.xlsm

  16.3 KB · Affichages: 1

Vote positif 0 Vote négatif