Macro insertion Lignes

[surzone]

Bonjour à tous,

malgré mes recherches je n'ai pas été capable d'insérer, grace à une macro, Trois Lignes après toutes les lignes de mon tab. Je voudrai transformer :
A B C D
ATT 1010 500 5110
ATT 1010 500 5130
ATT 1010 500 5130

En
A B C D
ATT 1010 500 5110



ATT 1010 500 5130



ATT 1010 500 5130

Je suis très moyen en VB mais j'ai quelques notions.
Avez vous une solution à me proposer ?

Merci à tous.

 

[GPLIONEL]

Re : Macro insertion Lignes

Bonjour surzone,

une solution :

Sub Macro1()
Range("a1").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
While a < 3
Selection.EntireRow.Insert
a = a + 1
Wend
ActiveCell.Offset(a, 0).Select
a = 0
Wend
End Sub

 

[surzone]

Re : Macro insertion Lignes

Lionel,

Je n'ai qu'une chose à dire : Réactivité, Qualité.
Bravo et surtout Merci pour cette aide précieuse.

un autre mystère me hante et je ne sais pas s'il est solvable :

Je voudrai insérer une fonction systématiquement sous chaque ligne du tab. Il s'agit d'une fonction RECHERCHEV que je voudrai insérer sous chacun des lignes initiales dans des colonnes spécifiques. La fonction doit s'insérer une ligne sur 6 en partant de C2. Dans cet exemple, la fonction doit s'insérer en A2 et en A8 puis A14 etc...


A B C D
1 FRANCK 5551611 26.09.2007 13.12.2007
2 RECHERCHEV RECHERCHEV
3
4
5
6
7 PASCAL 5510044 15.08.2007 07.10.2007
8 RECHERCHEV RECHERCHEV


Est ce possible ?

 

[pierrejean]

Re : Macro insertion Lignes

bonjour surzone

vois si tu peux t'inspirer de ceci

edit

comme les carabiniers

salut GPLIONEL

 

[surzone]

Re : Macro insertion Lignes

Merci Pierre Jean,

En effet ça marche parfaitement, avec en plus le bouton qui va bien !!

Parfait et merci encore.

 

[pierrejean]

Re : Macro insertion Lignes

Re

A adapter bien sur !!!

 

[surzone]

Re : Macro insertion Lignes

Merci Pierre Jean,

Ca marche parfaitement !

Bonne journée.