Discussion :

[Steph_pas_douée]

Bonjour,
J'ai parcouru tout un tas de forums sans trouver ma réponse... Je suis nulle en macro et j'aurai besoin d'insérer une ligne vierge dans un tableau Excel en conservant la mise en forme de la ligne (fusion de plusieurs cellules).
Pour l'instant j'y arrive mais ma ligne s'insère toujours à la même place, quelle que soit la ligne sélectionnée.
Pourriez-vous m'apporter votre aide?
D'avance merci

Stéphanie

[Qwazerty]

Salut et bienvenu
Pour ajouter une ligne juste en dessus de la cellule active, tu peux faire quelque chose comme ca

Code :

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

1
2
3
Sub steph()
Rows(ActiveCell.Row).Insert
End Sub

A++
Qwaz

[Steph_pas_douée]

Merci Qwazerty,
En effet ça m'insert bien une ligne où j'en ai envie, mais cette ligne me rescinde les cellules que j'avais mis en forme... Mon réel souci est là... Je voudrais que la ligne qui s'insert ait la même mise en forme que la précédente (Pour exemple, j'ai fusionné les colonnes A,B,C,D en une seule, puis E,F,G,H, ...)
Tu saisis mieux mon souci?...

Mais merci d'avoir répondu si vite!!!

[Qwazerty]

Oupss
Essai comme ca, par contre la mise en forme sera prise sur la ligne contenant la cellule active

Code :

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

1
2
3
4
5
6
7
8
9
Sub steph()
Application.ScreenUpdating = False 'evite de voir les actions se dérouler a l'ecran
With Rows(ActiveCell.Row)
    .Insert
    .Copy
    .Offset(-1, 0).PasteSpecial Paste:=xlPasteFormats
End With
Application.CutCopyMode = False
End Sub

[Steph_pas_douée]

C'est génial, ça marche tip top!!!
... J'irai pas jusque dire que t'es un Dieu mais pas loin!!!!!

Merci pour tout!

Stephanie

[Qwazerty]

restons humble ^^

Par contre rajoute 2 petites lignes

Code :

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

On error resume next

au début du code et

Code :

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

Application.ScreenUpdating = True

a la fin.
Ça t'évitera peut être quelque déconvenues

++
Qwaz