Ajouter une ligne

[René du var]

bonsoir le forum,

Comment ajouter une ligne avec une macro

j'aimerai pourvoir ajouter une ligne vide en dessous une valeur à chaque fois que la macro rencontre des lignes avec valeurs

la macro doit travailler uniquement sur des lignes selectionner

exemple :

lundi
1 ligne vide
mardi
1 ligne vide
mercredi
etc........

merci

René du var

 

[macpoy]

Bonsoir le forum, bonsoir René,
voici une petite macro qui recherche la première cellule non vide
(en colonne 2) en partant du bas, selectionne la ligne, en inserre une, puis coupe la ligne du dessous pour la coller au dessus.


Sub ajouteligne()
Columns(2).Find("*", , , , , xlPrevious).Select
Selection.EntireRow.insert
Selection.EntireRow.Value = Selection.Offset(1, 0).EntireRow.Value
Selection.Offset(1, 0).EntireRow.Value = ""
Selection.Offset(1, -1).Select
End Sub
ceci doit pouvoir répondre à ta question.
bon excel @ +

 

[macpoy]

Re,
j'ai oublié de te préciser, cher rené, que cette macro fonctionne même si tu a filtrer la colonne.

 

[René du var]

bonjour

Merci pour ta réponse mais c'est pas ça

ta macro ajoute une ligne à la derniere valeur rencontrer

René du var