macro : 1er probleme

[francois]

je veux créer sous une macro une fonction capable de créer une ligne ou plusieurs lignes avec le même format que la ou les cellule(s) sélectionnées. Il faut donc les fonctions suivantes :

- insérer une ou plusieurs lignes
- copier la mise en page

J'ai enregistré la macro et voici le résultat :

Rows("20:21").Select
Selection.insert Shift:=xlDown
Rows("22:23").Select
Selection.Copy
Rows("20:21").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub


ca va parfaitement bien, sauf que je ne veux pas être toujours avec les lignes 20:21 ou 22:23. Je veux que ca marche n'importe où, tout dépend la sélection première. Comment faire ??

merci d'avance

 

[STéphane]

bonjour

essaye ceci

sub demo
With Selection
.EntireRow.Insert Shift:=xlDown
.Copy
End With
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

end sub

bye
stephane

 

[francois]

ca marche pas : rien ne se passe.
A moins que je me sois mal exprimé : la formule que j'avais est bien, sauf que les lignes créées sont toujours au nombre de 2 et qu'elles sont fixes : cad que c'est toujours le slignes 21 et 22 qui sont créées.

Je veux que ca dépende de la sélection faite précédemment, avant de lancer l'éxécution de la macro.

en tout cas; merci de m'aider.

francois

 

[STéphane]

rectificatif, cela convient à françois ;-)