Bonjour,
Je souhaite insérer une ligne sous la ligne en cours en conservant les bordures de la ligne en cours.
Comment faire ?
Bonjour,
Je souhaite insérer une ligne sous la ligne en cours en conservant les bordures de la ligne en cours.
Comment faire ?
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
Quelle est la valeur de xlFormatFromLeftOrAbove ?
Je suis sous excel 2003 et cette instruction génère une erreur.
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à.
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.
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
le principe :
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
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager