Ajouter des lignes automatiquement avec même format

Ilino · 22 Janvier 2014

Bonjour Forum
Je souhaiterai automatiser mon tableau de cette manière
Dans la cellule K5 il ya un chiffre
Les lignes de 11-14 du tableau model. On va le nommé ligne model.
Je souhaiterai ajouter automatiquement entre des lignes (11-14) et ligne Visa le même nombre de ligne model (15-18) et même format selon le chiffre afficher dans la cellule K4 et ainsi de suite.
Merci

Ilino · 22 Janvier 2014

Re : Ajouter des lignes automatiquement avec même format

Forum Bonjour
est ce que mon souci est claire ?
grazie

sousou · 22 Janvier 2014

Re : Ajouter des lignes automatiquement avec même format

bonjour Illino
essaie ce code
Sub ajoute()
With ActiveSheet
nb = .Range("k5")
Set ligne = .UsedRange.Find("Visa")
Set zone = .Rows("11:14")

zone.Select
For n = 1 To nb
zone.Copy

activesheet.Cells(ligne.Row, 1).EntireRow.Insert
Next
End With
End Sub

Ilino · 22 Janvier 2014

Re : Ajouter des lignes automatiquement avec même format

Bonjour sousou
et grazie pour la réponse
ça fonctionne tres bien
A+

Ajouter des lignes automatiquement avec même format

Ilino

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Discussions similaires

Ajouter des lignes automatiquement avec même format

Ilino

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency