Insérer un nombre donné de lignes.

[Phillip]

Bonjour,

Je souhaite écrire le code pour insérer un nombre variable de lignes.

ex : j'ai une variable toto qui récupère une valeur quelque part.

Je voudrais faire "insert.toto.rows" ou quelque chose d'approchant ;-)

ca paraît simple, mais je ne trouve pas la syntaxe !

merci de votre aide

 

[Robert]

Re : Insérer un nombre donné de lignes.

Bonjour Philip, bonjour le forum

Peut-être avec une boucle du style :

Sub Macro1()
Dim x As Integer
Range("Ta_cellule_de_référence").Select
For x = 1 To toto
    Selection.EntireRow.Insert
Next x
End Sub

 

[Guest]

Re : Insérer un nombre donné de lignes.

Bonjour,
Hello Robert😀

Sub insertLignes()
 Dim c As Range
 Set c = ActiveCell.EntireRow 'ou autre cellule
 c.Resize(toto).insert (xlShiftDown)
End Sub

A+

 

[Phillip]

Re : Insérer un nombre donné de lignes.

Merci !!! Ca marche ! Mais Je pensais que ça serait plus simple !

 

[Guest]

Re : Insérer un nombre donné de lignes.

Re,

On peut faire plus simple, mais le problème est que lorsqu'une erreur se produit il est plus difficile de la localiser si l'écriture des macro est trop concise. Si tu ne maîtrise pas VBA, mieux vaut procéder comme ça.

A+

 

[Phillip]

Désolé, mais ça ne marche plus...

Voilà mon code :

Sub inserlig()
'
'
Dim plage As String, tablo() As String
Dim cptr As Long, nbre As Long
Dim pair As Boolean
Dim impair As Boolean
Dim nblig As Range

' compte le nombre de lignes selectionnees

plage = Selection.Address
tablo = Split(Selection.Address, ",")
For cptr = 0 To UBound(tablo)
nbre = nbre + Range(tablo(cptr)).Rows.Count
Next
 
 Set nblig = ActiveCell.EntireRow 'ou autre cellule
 nblig.Resize(nbre).Insert Shift:=xlDown
 
End Sub

Ca me met une erreur à
nblig.Resize(nbre).Insert Shift:=xlDown

Je ne comprends pas...Hier ça marchait !

Merci de vos lumières...

 

[Phillip]

Re : Insérer un nombre donné de lignes.

Laissez tomber, je suis une buse : mon fichier était protégé !