Insertion ligne par VBA

Matheop

XLDnaute Occasionnel

• 5 Mars 2013

• #2

Re : Insertion ligne par VBA

Salut papypog,

Code:

Sub inser()
  Sheets("2013").Select
  Dim ligne
  ligne = InputBox("Saisir le numéro de la ligne sous celle à insérer")
  Sheets(1).Range("A" & ligne & ":H" & ligne).EntireRow.Insert Shift:=xlDown
  Dim Retour As Integer
End Sub

Il faut sélectionner l'intégralité de la ligne pour que cela fonctionne.

Cordialement,
Mat'

 

Vote positif 0 Vote négatif

P

papypog

XLDnaute Occasionnel

• 5 Mars 2013

• #3

Re : Insertion ligne par VBA

bonjour,

C'était bien mon problème et je pense avoir trouvé, j'ai rajouté :

Code:

ActiveCell.EntireRow.Select

et cela semble fonctionner.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 11 Mars 2013

• #4

Re : Insertion ligne par VBA

bonjour

il n'esiste pas de méthode plus simple pour inserer des lignes completes sans passer par une selection...???

d'avance merci

 

Vote positif 0 Vote négatif

sourcier08

XLDnaute Occasionnel

• 11 Mars 2013

• #5

Re : Insertion ligne par VBA

Salut,

Si :

Rows(9).Insert Shift:=xlDown

9 reprèsente la ligne où l'on désire insérer la ligne

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 11 Mars 2013

• #6

Re : Insertion ligne par VBA

d'accord et pour inserer plusieurs lignes, il faut faire plusieur fois cette manip ou il est possible de le faire en une seule operation?

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Mars 2013

• #7

Re : Insertion ligne par VBA

bonjour,

rows("9:15").insert xlshiftdown

A+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 11 Mars 2013

• #8

Re : Insertion ligne par VBA

Merci beaucoup

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 12 Avril 2013

• #9

Re : Insertion ligne par VBA

Bonjour le Forum

J'ai ce code :

Code:

Sub NouvelleLigne()
'
' Efface Macro
' Macro enregistrée le 30/07/2008 par 
'
ActiveWindow.SmallScroll ToRight:=1
    Columns("A:L").Select
    Range("L1").Activate
    ActiveWindow.Zoom = True
    'x = Range("N1").Value
    'x = Target.Row
    Range("O1:AA1").Select
    Selection.Copy
    Rows(x).Select
    Selection.Insert Shift:=xlDown
    Range("E" & x).Select

End Sub

Qui insert une ligne. En N1 j'ai la dernière ligne utilisé -> x = Range("N1").Value
Je voudrais insérer une ligne sous la ligne ou je suis, j'ai essayé -> x = Target.Row
Mais cela ne fonctionne pas.

Comment réaliser cela ?
Dominique

 

Dernière édition: 12 Avril 2013

Vote positif 0 Vote négatif

Matheop

XLDnaute Occasionnel

• 12 Avril 2013

• #10

Re : Insertion ligne par VBA

Hello WDAndCo,

L'idéal aurait été de recréer un topic avec ton propre problème (bien qu'il soit indiscutablement lié à ce sujet de discussion). Seulement moins de gens vont venir t'aider puisqu'ils vont considérer que le sujet a déjà été traité au vue du nombre de réponses apportées.

Bref dans ton code il y a ces deux lignes :

Code:

Rows(x).Select
Selection.Insert Shift:=xlDown

Tu sélectionnes la ligne pour laquelle l'index vaut x (ta variable). Si tu veux ajouter une ligne juste avant celle que tu sélectionnes, il suffit simplement de sélectionner la ligne précédente non ?

Code:

Rows(x - 1).Select
Selection.Insert Shift:=xlDown

Cordialement, Mat'

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 12 Avril 2013

• #11

Re : Insertion ligne par VBA

bonjour a vous
cela reviens au meme que la réponse ci dessus de Matichoux
voici ce que j'ai derriere un bouton pour ajouté 3 lignes apres la 3 eme et ainsi de suite

Rows("5:3").Insert Shift:=x1Down

Cliquez pour agrandir...

Pascal

 

Dernière édition: 12 Avril 2013

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 15 Avril 2013

• #12

Re : Insertion ligne par VBA

Bonjour le Forum, merci pour vos réponses
Le problème reste entier, car X = la derniere ligne utilisé.
Comment mettre le numéro de la ligne ou je suis dans X, puis faire l'insertion ?

Dominique

 

Vote positif 0 Vote négatif