insertion lignes automatiques.

[jebibo]

Bonjour à tous

J'ai un fichier que je veux inséré 9 lignes exemple:
en A1 à A3000 j'ai mes clients et je veux inséré 9 lignes entre chaques clientsde façon automatique non par une macro ou vba est-ce possible je connait la façon pour un ligne mais pas pour multilignes.
Merci à l'avance.

 

[Cousinhub]

Re : insertion lignes automatiques.

Bonjour,

non par une macro ou vba est-ce possible

Je crains fort que cela ne soit pas possible de façon "automatique"

Sinon, ce code VBA te fait ce que tu demandes :

Sub insert()
Dim DerLig As Integer, I As Integer
Application.ScreenUpdating = False
DerLig = [A65000].End(xlUp).Row
For I = DerLig To 2 Step -1
    Rows(I).Resize(9).insert
Next I
End Sub

Bonne journée

 

[jebibo]

Re : insertion lignes automatiques.

Bonjour,



Je crains fort que cela ne soit pas possible de façon "automatique"

Sinon, ce code VBA te fait ce que tu demandes :

Sub insert()
Dim DerLig As Integer, I As Integer
Application.ScreenUpdating = False
DerLig = [A65000].End(xlUp).Row
For I = DerLig To 2 Step -1
    Rows(I).Resize(9).insert
Next I
End Sub

Bonne journée

Merci beaucoup
cela vas m'aidé

Si jamais vous trouver un autre façon faite le moi savoir.
merci

vraiment rapide les réponses à peine 15 minutes avant d'avoir l'information.