Ajout d'un ligne a chaque ligne dans une selection
Résolu
Pkr1sbc
Messages postés
54
Statut
Membre
-
Pkr1sbc Messages postés 54 Statut Membre -
Pkr1sbc Messages postés 54 Statut Membre -
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 !
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
