XL 2016 VBA Insertion de lignes vides : decalage premiere ligne

[Armand11]

Bonjour à toute la communauté EXCEL-DOWNLOAD,
Tout d'abord j'espère que tout le monde se porte bien.

Ma question:

a.J'ai appliqué une fonction VBA pour pouvoir insérer une ligne vide à chaque fois. Seulement dans mon cas je n'arrive pas à enlever la ligne 2 de mon tableau à blanc. Ca devrait commencer à partir de la ligne 3 ..
b. Par contre pour pouvoir insérer une ligne: j'ai créé la colonne H (NUMEROTATION apo) en incrémentant en "dur" un "1" en cellule H3 (ou plutôt H2 avant de lancer la MACRO) pour pouvoir à l'origine incrémenter un numéro de ligne unique (dans mon exemple de 1 à 57
c. ensuite après application de la MACRO : de la colonne I, J, K , L M et N j'applique des formules Excel Classques pour préparer mon écriture.

Merci d'avance pour votre aide, je mets à disposition mon fichier avec la Macro.
Merci encore

Armand

 

[sylvanu]

Bonjour Armand,
J n'ai pas bien compris, vous voulez commencer en ligne 3;
Alors pourquoi ne pas insérer une ligne avant de commencer ?

Sub InsereLigne()
 Dim DATA As Worksheet
 Dim i As Integer
 'bon on va travailler sur la feuille
 'active au moment du lancement
 Set DATA = ActiveSheet
 DATA.Cells(3, 1).EntireRow.Insert Shift:=xlShiftDown    ' Insertion ligne'
 DATA.Range("A3:N3").Interior.Color = xlNone             ' Sans couleur'
 i = 3                                                                              ' indice commence en 3
 While DATA.Cells(i, 8) <> ""
.......

 

[job75]

Bonjour Armand11, sylvanu,

Vous ne savez pas que pour insérer des lignes avec .Insert il faut commencer par la fin et remonter ?

Il y a pléthore d'exemples sur le forum.

A+