Ajout d'un ligne a chaque ligne dans une selection
Résolu
Pkr1sbc
Messages postés
26
Date d'inscription
Statut
Membre
Dernière intervention
-
Pkr1sbc Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Pkr1sbc Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je vais essayer de vous expliquer ce que je souhaite, par l'image ça sera plus simple à comprendre :
Ce que j'ai au début :
Ce que je souhaite avoir après :
Les deux techniques que je connais, faire la sélection de tout et décaler vers le bas...;
Ou
Ajouter une ligne entre chaque ligne...
Mais c'est long avec vous une autre technique ?
Au plaisir de lire vos réponses,
Merci !
Je vais essayer de vous expliquer ce que je souhaite, par l'image ça sera plus simple à comprendre :
Ce que j'ai au début :
Ce que je souhaite avoir après :
Les deux techniques que je connais, faire la sélection de tout et décaler vers le bas...;
Ou
Ajouter une ligne entre chaque ligne...
Mais c'est long avec vous une autre technique ?
Au plaisir de lire vos réponses,
Merci !
A voir également:
- Ajout d'un ligne a chaque ligne dans une selection
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Apparaitre hors ligne instagram - Guide
- Formulaire en ligne de meta - Guide
1 réponse
Bonjour
Dans l'éditeur VB, menu insertion puis module, tu colles la macro ci-dessous
Sub intercale()
der_ligne = [A65536].End(xlUp).Row
For ligne = der_ligne To 2 Step -1
If ligne = der_ligne Then
Range("A" & ligne + 1).Value = " "
Rows(ligne).Insert
Range("A" & ligne).Value = " "
Else
Rows(ligne).Insert
Range("A" & ligne).Value = " "
End If
Next ligne
End Sub
Crdlt
Dans l'éditeur VB, menu insertion puis module, tu colles la macro ci-dessous
Sub intercale()
der_ligne = [A65536].End(xlUp).Row
For ligne = der_ligne To 2 Step -1
If ligne = der_ligne Then
Range("A" & ligne + 1).Value = " "
Rows(ligne).Insert
Range("A" & ligne).Value = " "
Else
Rows(ligne).Insert
Range("A" & ligne).Value = " "
End If
Next ligne
End Sub
Crdlt
Merci tu viens de me faire économiser des heures et des heures !
Encore merci !