VBA insérer 1 ligne dans 3 onglets

bonjour au forum,

Est-il possible d'insérer 1 ligne dans 3 onglets sélectionnés en même temps ?

        [A65536].End(xlUp)(2).Select    'va à la dernière cellule occupée
        Sheets(Array("tableau", "PlanAction", "Unité")).Select
         Selection.EntireRow.Insert   'insert 1 ligne

j'ai essayé ce code, mais l'insertion ne se fait que sur le 1er onglet !!

ou est l'erreur ?

amicalement

Claude.

Bonsoir claude

je ne crois pas que cela soit possible

le mieux est de faire une boucle sur ton Array, et d'insérer une ligne...

salut felix,

c'est ce que j'ai fait, mais je voulais l' évité !

et pourtant çà marche manuellement, bizarre !!!

j'attends un peu.

Claude.

Salut le forum

Je préfère comme le précise Felix la boucle sur les feuilles

Sinon essaye ceci

Sub Insert_Row_Array()
Dim Ligne As Long
Ligne = [A65535].End(3).Row
    Sheets(Array("Feuil2", "Feuil3")).Select
    Sheets("Feuil2").Activate
    Rows(Ligne).Select
    Selection.Insert Shift:=xlDown
End Sub

Mytå

bonjour forum,

d'accord, surtout que çà ne raccourci pas le code.

merci à tous

Claude.