Union & Range. Bug

[thomasmbai]

Bonjour,


Pouvez vous, s'il vous plait, me dire ce qui ne va pas avec le code suivant :

Sheets("PC").Activate
Union(Range("A:A"), Range("B:B"), Range("D:D"), Range("F:F"), Range("H:H"), Range("J:J"), Range("P:P"), Range("R,R")).Copy Destination:=Sheets("DC").Range("A:H")

En vous remerciant d'avance pour vos éclairages,

 

[Gorfael]

Re : Union & Range. Bug

Salut thomasmbai et le forum
Teste :

with Sheets("PC")
Union(.Range("A:A"), .Range("B:B"), .Range("D:D"), .Range("F:F"), .Range("H:H"), .Range("J:J"), .Range("P:P"), .Range("R,R")).Copy Destination:=Sheets("DC").Range("A1")
end with

Juste un petit rappel : il n'y a ni devin, ni télépathe sur ce site !

La panne peut provenir de n'importe quoi vu les données fournies !
A+

 

[frangy]

Re : Union & Range. Bug

Bonjour,

Dans l'expression

Range("R,R")

si tu remplaces la "," par ":" ça doit aider.

A+

 

[thomasmbai]

Re : Union & Range. Bug

Bonsoir,

Merci pour vos réponses rapides Gorfael et Frangy.

Ce code fonctionne très bien !

Bonne soirée à tous...