Insérer des lignes avec un décalage

Bonjour Beatrice,
En supposant que tu veuilles insérer à la ligne 12
les lignes de la sélection en cours:
'*****
Sub insersel()
Selection.Rows.Select
Selection.Copy
Sheets("Feuil1").Select
Rows("12:12").Select
Selection.Insert Shift:=xlDown
End Sub
'****

'lSteph
"beatrice" <beatrice@discussions.microsoft.com> a écrit dans le message de
news: 02484FB7-02CB-4C56-8402-C4F3172C01C9@microsoft.com...

Bonjour à tous et toutes,
J'ai une sélection que je dois coller Sur une autre feuille. Cependant ma
sélection n'a pas un nombre de lignes fixes.
Je voudrais que la macro compte le nombre de lignes de la sélection, pour
ensuite ajouter ce nombre de ligne dans la feuille où je dois coller le
tableau.
J'espère avoir été clair
Merci d'avance et bonne journée
Béatrice

Bonjour,

Pourquoi ne pas utiliser Insérer les cellules copiées ?

Camille

-----Message d'origine-----
Bonjour à tous et toutes,
J'ai une sélection que je dois coller Sur une autre
feuille. Cependant ma

sélection n'a pas un nombre de lignes fixes.
Je voudrais que la macro compte le nombre de lignes de la
sélection, pour

ensuite ajouter ce nombre de ligne dans la feuille où je
dois coller le

tableau.
J'espère avoir été clair
Merci d'avance et bonne journée
Béatrice

.

Ca marche.
Merci beaucoup et bonne fin de journée.
Béatrice

Bonjour Beatrice,
En supposant que tu veuilles insérer à la ligne 12
les lignes de la sélection en cours:
'*****
Sub insersel()
Selection.Rows.Select
Selection.Copy
Sheets("Feuil1").Select
Rows("12:12").Select
Selection.Insert Shift:=xlDown
End Sub
'****

'lSteph
"beatrice" <beatrice@discussions.microsoft.com> a écrit dans le message de
news: 02484FB7-02CB-4C56-8402-C4F3172C01C9@microsoft.com...

Bonjour à tous et toutes,
J'ai une sélection que je dois coller Sur une autre feuille. Cependant ma
sélection n'a pas un nombre de lignes fixes.
Je voudrais que la macro compte le nombre de lignes de la sélection, pour
ensuite ajouter ce nombre de ligne dans la feuille où je dois coller le
tableau.
J'espère avoir été clair
Merci d'avance et bonne journée
Béatrice

Bonjour,
Il ne faut pas chercher à comprendre c'est mon boss qui veut ça. Et il ne
faut pas que je fasse autrement.
Merci quand même
Bonne journée
Béatrice

Bonjour,

Pourquoi ne pas utiliser Insérer les cellules copiées ?

Camille

-----Message d'origine-----
Bonjour à tous et toutes,
J'ai une sélection que je dois coller Sur une autre
feuille. Cependant ma

sélection n'a pas un nombre de lignes fixes.
Je voudrais que la macro compte le nombre de lignes de la
sélection, pour

ensuite ajouter ce nombre de ligne dans la feuille où je
dois coller le

tableau.
J'espère avoir été clair
Merci d'avance et bonne journée
Béatrice

.

Bonjour,
Attention , cela marche seulement pour une sélection de lignes entières
et il est clair effectivement qu'un copier/insérer ferait bien simplement la
même chose.

Pour étendre la sélection à ses lignes entières:
Selection.Rows.Select
peut être remplacé par
Selection.Rows.Entirerow.Select

;-) bonne journée
'lSteph

"beatrice" <beatrice@discussions.microsoft.com> a écrit dans le message de
news: B9C1CAF3-859F-4140-81AE-9443D283E732@microsoft.com...

Ca marche.
Merci beaucoup et bonne fin de journée.
Béatrice

Bonjour Beatrice,
En supposant que tu veuilles insérer à la ligne 12
les lignes de la sélection en cours:
'*****
Sub insersel()
Selection.Rows.Select
Selection.Copy
Sheets("Feuil1").Select
Rows("12:12").Select
Selection.Insert Shift:=xlDown
End Sub
'****

'lSteph
"beatrice" <beatrice@discussions.microsoft.com> a écrit dans le message
de
news: 02484FB7-02CB-4C56-8402-C4F3172C01C9@microsoft.com...

Bonjour à tous et toutes,
J'ai une sélection que je dois coller Sur une autre feuille. Cependant
ma
sélection n'a pas un nombre de lignes fixes.
Je voudrais que la macro compte le nombre de lignes de la sélection,
pour
ensuite ajouter ce nombre de ligne dans la feuille où je dois coller le
tableau.
J'espère avoir été clair
Merci d'avance et bonne journée
Béatrice