XL 2019 Insertion de lignes simples

  • Initiateur de la discussion Initiateur de la discussion bambi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bambi

XLDnaute Occasionnel
Bonjour à tous 🙂
J'ai une petite demande VBA
J'ai un tableau avec des données à traiter
Pour simplifier cela, j'ai besoin d'insérer 4 lignes vides en dessous de chaques lignes existantes
Manuellement, c'est fastidieux
Donc si l'un d'entre vous avait une macro, je lui en serais reconnaissante
Je joint un fichier modèle
Merci d'avance 😉
 

Pièces jointes

Solution
Bonjour

Essaie cela :

VB:
Sub Ajout_Lignes()
DLig = Range("A65536").End(xlUp).Row
L = 2
For ind = 1 To DLig
    For iCpt = 0 To 3
        Rows(L & ":" & L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next iCpt
    L = L + 5
Next

End Sub

Bonne soirée
Bonjour

Essaie cela :

VB:
Sub Ajout_Lignes()
DLig = Range("A65536").End(xlUp).Row
L = 2
For ind = 1 To DLig
    For iCpt = 0 To 3
        Rows(L & ":" & L).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Next iCpt
    L = L + 5
Next

End Sub

Bonne soirée
 
Bonsoir le forum
Bonsoir bambi, bonsoir patty58, bonsoir cp4

patty58 & cp4 : Petit plus 😉, une petite ligne à ne pas oublier pour éviter le scintillement dû à l'exécution de la macro :
Application.ScreenUpdating = False
Et surtout, rétablir en fin de macro
Application.ScreenUpdating = True

Bonne soirée à toutes & à tous

@+ Eric c
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
329
J
Réponses
2
Affichages
782
Jordan74
J
Retour