Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insert une ligne vide mais au dessus ...

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion CG2000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

CG2000

XLDnaute Occasionnel
Bonjour à tous, bonjour le Forum,

La macro inclus dans le fichier joint m'insert bien une ligne vide avec mise en forme en dessous de chaques lignes écrites.🙂
Je n'arrive pas a obtenir ces insertions, non plus en dessous de chaques lignes écrites mais au dessus (et en gardant la mise en forme des cellules / si ajout ligne au desus du jaune = jaune, etc ...).🙁
Merci par avance de votre aide pour la réalisation d'une telle possibilité et de me permettre de comprendre un tel mécanisme.

Bonne journée à tous.
CG2000
 

Pièces jointes

Trier par date Trier par votes
Re : Insert une ligne vide mais au dessus ...

Bonjour CG2000,
Voici qui doit le faire
Bruno
Code: 
Sub Lignesplus()
Dim i&
Application.ScreenUpdating = False
   For i = 1 To [A65000].End(3).Row * 2 Step 2
      Rows(i).EntireRow.Insert
      Rows(i + 1).Copy
      Rows(i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   Next i
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Insert une ligne vide mais au dessus ...

Merci youky(BJ)

Réponse et résultat parfaits. 🙂
Bruno, si cela est possible, peux-tu me commenter ton code ?

Et re-merci pour ta solution. 😛
Bonne journée.

CG2000
 
Vote positif 0 Vote négatif
Re : Insert une ligne vide mais au dessus ...

Commentaire. . . .
Application.ScreenUpdating = False
Neutralise l'affichage, cela évite un écran saccadé et donc macro plus rapide.

[A65000].End(3).Row
derniere ligne que je * 2 à cause du step 2 qui va de 2 en 2

ici on copy la ligne en dessous. . . .(i+1)
Rows(i + 1).Copy
et on colle le format en ligne en dessus qui est (i)
Rows(i).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
et hop le next de la boucle
et bonne continuation
Bruno
 
Vote positif 0 Vote négatif
Re : Insert une ligne vide mais au dessus ...

youky(BJ)

Merci pour la description de ton code.
Je vais me pencher sur les infos et comprendre.
De nouveau merci pour la solution.
Bonne journée.

CG2000
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
XL pour MAC ajouter une ligne au-dessus
Réponses
2
Affichages
152
rtlv17
R
W
  • Résolu(e)
XL 2019 Placer ou remplacer une photo .jpg au-dessus de la cellule [B6] contenant du texte à conserver
2
Réponses
21
Affichages
382
TooFatBoy
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
439
AlCapone
  • Question Question
XL 2019 Insertion de plusieurs lignes au dessus de la dernière
Réponses
2
Affichages
623
Sellig
F
  • Résolu(e)
XL 2019 Effacer toute une ligne de cellules mais uniquement à l’intérieur d’un tableau
Réponses
14
Affichages
1 K
Formulatix
F
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
570
IderMTC
I
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
  • Question Question
Microsoft 365 Insérer une nouvelle ligne en gardant les formules d'un tableau
Réponses
5
Affichages
1 K
Tomasisco21
M
  • Résolu(e)
XL 2019 numéro automatique dans A si B est pleine sauf si il y a une ligne vide au dessus
Réponses
8
Affichages
1 K
Melou_K
M
M
  • Résolu(e)
XL pour MAC SIERREUR + RECHERCHEV affiche 0 au lieu de VIDE + mise en forme erreur
Réponses
6
Affichages
2 K
chris
J
  • Question Question
XL 2016 Mise en forme conditionnelle en vert de noms, si ces noms figurent dans une liste de noms d'un autre onglet (formules dans MFormCond, ou VBA)
Réponses
5
Affichages
1 K
sylvanu
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
X
  • Question Question
XL 2019 Copier / Coller une ligne entre deux fichiers depuis un 3ème fichier
Réponses
0
Affichages
945
xorf
X
C
  • Résolu(e)
Microsoft 365 Colorer une ligne complète lors une condition est fausse
Réponses
2
Affichages
819
Chris Linefield
C
O
  • Question Question
XL 2019 Installation d'alertes avec conditions via une macro
Réponses
1
Affichages
898
Olocsob
O
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
N
  • Question Question
XL 2019 Résultat formule s'affichant malgré l'un des cellules vide
Réponses
7
Affichages
1 K
NIKITACAM
N
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
C
  • Question Question
XL 2016 VBA - Insertion de lignes automatique sous condition et copier formats et formules dans la nouvelle ligne
Réponses
10
Affichages
2 K
clochette
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…