[Résolu] VBA - Copier/coller une ligne avec active cell

D

D.D.

XLDnaute Impliqué

• 3 Janvier 2019

• #2

Hello,

Comme ca ?
Sub Yo_Man()
Yo = ActiveCell.Row
Selection.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Range("A" & Yo & ":Q" & Yo).Copy Destination:=Range("A" & Yo + 1)
End Sub

 

Pièces jointes

• Classeur1.xlsm

  13.6 KB · Affichages: 67

Vote positif 0 Vote négatif

G

ginteo

Guest

• 3 Janvier 2019

• #3

ça fonctionne bien je crois 🙂

Yo c'est quoi, un nombre il me semble, le numéro de la ligne.
Mais j'ai du mal à comprendre le code Range("A" & Yo & ":Q" & Yo)

J'utilisais le code suivant .Range(.Cells(ligne, "a"), .Cells(ligne, "q")) mais ça marchait pas

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 3 Janvier 2019

• #4

Yo est effectivement le numero de la ligne de la cellule active.
Si Yo = 3
alors
Range("A" & Yo & ":Q" & Yo)
=
Range("A" & 3 & ":Q" & 3) = Range("A3:Q3")
Que l'on copie dans
Range("A" & Yo + 1)
= Range("A" & 3 + 1) = Range("A" & 4) = Range("A4")

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 3 Janvier 2019

• #5

Et pour completer:
.Range(.Cells(ligne, "a"), .Cells(ligne, "q")) mais ça marchait pas
Il aurait fallut écrire
.Range(.Cells(ligne, 1), .Cells(ligne, 17)) car A = 1 et Q = 17 (eme colonne)

 

Vote positif 0 Vote négatif

G

ginteo

Guest

• 3 Janvier 2019

• #6

Je comprend mieux mais difficile de connaitre toutes les subtilité car le code .Range(.Cells(ligne, "a"), .Cells(ligne, "q")) marchait avec Set plage = Union (.Range(.Cells(i, "A"), .Cells(i, "e")), .Range("g" & i), .Range(.Cells(i, "r"), .Cells(i, "v")))

 

Vote positif 0 Vote négatif

D

D.D.

XLDnaute Impliqué

• 3 Janvier 2019

• #7

C'est vrai.
D'ailleurs
Set plage = Range(Cells(i, "A"), Cells(i, "e"))
est ok....

 

Vote positif 0 Vote négatif