macro copier coller

[kinel]

bonjour à tous

pouvez vous m'aider sur une macro copier coller que je voudrais intégrer au tableur ci-joint
les détails de ma question se trouvent dans la feuille1

Merci

Kinel

 

[Si...]

Re : macro copier coller

re

pour la copie de la seconde cellule

Private Sub CommandButton13_Click()
  Dim L As Byte
  If ActiveCell.Column > 1 Or ActiveCell = "" Then Exit Sub
  Do
    If o.Cells(5 + L, 3) = "" Then
      o.Cells(5 + L, 3) = ActiveCell
      o.Cells(5 + L, 5) = ActiveCell(1, 4) 'ici
      Exit Do
    End If
    L = L + 1
  Loop While L < 12
  If L = 12 Then MsgBox "zone complète !", vbCritical, "plus de copies..."
  o.Select
End Sub

 

[kinel]

Re : macro copier coller

re

merci beaucoup

Kinel