Discussion :

[matt41]

Bonjour tout le monde,

J'ai besoin d'une petite aide en vba.
Afin de remplir une maquette automatiquement j'ai besoin de sélectionner 3 lignes de celle ci et de les insérer/copier en dessous.
Cette selection se fait à partir d'une cellule nommée car celle ci peut changer de place dans la maquette :
Imaginons que la cellule D3 s'appelle "BIBI" je voudrais donc pouvoir sélectionner les lignes 3,4 et 5 insérer 3 lignes en dessous de la 5ème et les copier.
Qq chose du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With Rows(ActivateCell.Row)
    .Insert
    .Copy
    .Offset(-1, 0).PasteSpecial Paste:=xlPasteFormats
End With

qui fonctionne pour la ligne de la cellule active seulement.

C'est peut être un peu tiré par les cheveux comme manière de procéder mais merci d'avance !

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 [BIBI].EntireRow.Resize(3).Copy [BIBI].Offset(3).EntireRow.Resize(3)

S'il s'agit d'une insertion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    [BIBI].EntireRow.Resize(3).Copy
    [BIBI].Offset(3).EntireRow.Insert

[matt41]

Merci !
Ton deuxième message est exactement ce que je voulais (et que j avais finalement réussi à faire mais avec 5 fois plus de lignes !)

Bon après-midi