Macro insertion Lignes

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

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 ?

Re : Macro insertion Lignes

bonjour surzone

vois si tu peux t'inspirer de ceci

edit

comme les carabiniers

salut GPLIONEL

Re : Macro insertion Lignes

Merci Pierre Jean,

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

Parfait et merci encore.

Re : Macro insertion Lignes

Re

A adapter bien sur !!!

Re : Macro insertion Lignes

Merci Pierre Jean,

Ca marche parfaitement !

Bonne journée.