Discussion :

[juju05]

Bonjour,

Je souhaite insérer une ligne sous la ligne en cours en conservant les bordures de la ligne en cours.

Comment faire ?

[gnain]

Bonjour,

Code :

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

1
2
ligne = ActiveCell.Row + 1
Rows(ligne & ":" & ligne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

[juju05]

Quelle est la valeur de xlFormatFromLeftOrAbove ?

Je suis sous excel 2003 et cette instruction génère une erreur.

[gnain]

Bonjour,
avec l'enregistreur de macro,

démarrer l'enregistreur de macro
activer une ligne, faire un click droit, insérer une ligne.
arrêter l'enregistreur de macro.

il y aura un nouveau module de créé, le code équivalent avec 2003 sera là.

[juju05]

Le fait de insérer une ligne à partir d'une ligne qui contient des bordures ne permet pas d'obtenir une ligne avec des bordures.

[gnain]

Le fait de insérer une ligne à partir d'une ligne qui contient des bordures ne permet pas d'obtenir une ligne avec des bordures.

désolé,
sur 2010, oui

[patricktoulon]

Bonjour
peut etre ceci: essayer avec 2007 mais il n'y a pas de raison que ca ne fonctionne pas avec 2003

because utilisation de fonctions basique

Code :

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

1
2
3
4
5
6
Sub ajoute_la_meme_ligne()
    ActiveCell.EntireRow.Copy
        ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
       ActiveCell.Offset(1, 0).EntireRow.ClearContents
             Application.CutCopyMode = False
End Sub

le principe :
on copie la ligne sans distinction de format de valeur etc... bref on copie tout
ensuite a la fin on supprime toutes les valeurs
il ne restera que la mise en forme (bordure etc......)


et histoire de te donner bien mal a la tete on peut prendre le chemin a l'envers aussi c'est plus rigolo

Code :

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

1
2
3
4
5
6
7
8
Sub ajoute_la_meme_ligne2()
    With ActiveCell.Offset(1, 0)
        .Offset(-1, 0).EntireRow.Copy
        .EntireRow.Insert Shift:=xlDown
        .Offset(-1, 0).EntireRow.ClearContents
    End With
    Application.CutCopyMode = False
End Sub

tu dois te demander comment en faisant range(.....) ou activecell.entirerow.copy
et ne faisant pas de paste je me retrouve avec les cellules identiques

l'explication dans cette capture d'ecran
figure 1 = initial
figure 2 = insertion sans copie
figure 3 =insertion en ayant copier avant

comme tu peut le voir dans le Menu c'est la fonction qui change d'elle même en fonction de la pré copie ou non
donc copie et insert =insertion de la même chose
insertion sans copie = insertion d'une nouvelle ligne vierge

Voila
Au plaisir