selection plage non contigues!

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 8 Mars 2009

• #2

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

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 8 Mars 2009

• #3

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

 

Dernière édition: 8 Mars 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 8 Mars 2009

• #4

Re : selection plage non contigues!

Bonjour


Je viens de tester

Code:

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

Cela fonctionne

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 8 Mars 2009

• #5

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🙂

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 8 Mars 2009

• #6

Re : selection plage non contigues!

Re

C'est cela que tu voulais faire ?

Code:

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

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 8 Mars 2009

• #7

Re : selection plage non contigues!

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 8 Mars 2009

• #8

Re : selection plage non contigues!

Copie sans mise en forme:

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

JB

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 8 Mars 2009

• #9

Re : selection plage non contigues!

super!
merci BOISGONTIER😉

 

Vote positif 0 Vote négatif