recopier une série dans des cellules non adjacentes

[SIMON Bertrand]

Bonjour,

existe t-il une solution pour recopier une série, par exemple la date de tous les mardi de l'année dans des cellules non adjacentes séparées par une ligne.

En vous remerciant par avance, Merci de me répondre

Bertrand

 

[omicron]

Bonjour Bertrand,

Tu trouveras en pièce jointe un exemple qui, si j'ai bien compris devrait répondre au problème posé

=====================================================

Private Sub CommandButton2_Click()

Set CelSrc = Range("A2") 'Première cellule de la zone contenant les données à ventiler
Set CelDst = Range("C14") 'Première cellule de la zone contenant les données ventilées

Do While CelSrc.Value <> ""
CelSrc.Copy Destination:=CelDst
Set CelSrc = CelSrc.Offset(1, 0)
Set CelDst = CelDst.Offset(2, 0)
Loop

End Sub

=====================================================

Cordialement

Omicron.

 

[SIMON Bertrand]

merci bien !

cela fonctionne bien
bertrand