selection plage non contigues!

[demax]

bonjour à tous
je souhaiterais selectionner deux plages non contigues pour une copie

Dim dest As Range 'déclare la variable dest
Set dest = Sheets("admin").Range("B8:B28")
ActiveSheet.Range("D8😀16")????.Copy Destination:=dest

merci🙂

 

[BOISGONTIER]

Re : selection plage non contigues!

Bonjour,

Si champs dans la même colonne ou la même ligne:

Range("B3:B5,B8:B10").Copy Range("D2")

JB
Formation Excel VBA JB

 

[demax]

Re : selection plage non contigues!

OK ca marche parcontre je voudrais que le collage se mette sur un seul colonne aligné koi!
est ce possible?
merci

 

[vbacrumble]

Re : selection plage non contigues!

Bonjour


Je viens de tester

Sub Macro1()
Range("B12:B17,D12:D17").Copy Range("F12")
End Sub

Cela fonctionne

 

[demax]

Re : selection plage non contigues!

desole j'ai fais modif sur dernier post en fait oui ca fonctionne mais comme je disais je souhaiterais copier que les valeurs sans mise en forme
merci🙂

 

[vbacrumble]

Re : selection plage non contigues!

Re

C'est cela que tu voulais faire ?

Option Explicit

Sub Macro1()
Dim plg As Range
Set plg = Range("B12:B17,D12:D17")
plg.Areas(1).Copy Range("F12")
plg.Areas(2).Copy Range("F12").Offset(plg.Areas(1).Rows.Count, 0)
End Sub

 

[demax]

Re : selection plage non contigues!

C'est exactement ca 🙂
merci beaucoup vbacrumble de ta disponibilité 😉

 

[BOISGONTIER]

Re : selection plage non contigues!

Copie sans mise en forme:

Range("B3:B5,B8:B10").Copy
Range("D2").PasteSpecial xlPasteValues

JB

 

[demax]

Re : selection plage non contigues!

super!
merci BOISGONTIER😉