définir un Range

[sarrsouraa]

Bonjour tout le monde

voici mon problème

j'ai une variable fin qui indique la derniere ligne du fichier
et j'ai besoin d'utiliser les cellule de A8 jusqu'a CQ fin et de DA8 jusqu'a ED fin

comment je pourrais mettre tout ça dans un Range(....)


Merci beaucoup pour votre aide

 

[Efgé]

Re : définir un Range

Bonjour sarrsouraa,
Pour les selectionnés séparément:

Range("A8:CQ" & Fin).Select
Range("DA8:ED" & Fin).Select

Pour les selectionnés ensemble:

Range("A8:CQ" & Fin & ",DA8:ED" & Fin).Select

Cordialement

 

[MJ13]

Re : définir un Range

Bonjour Sarrsouraa, Efgé

A tester et a adapter au second:

range("A8:CQ"&fin).select

 

[sarrsouraa]

Re : définir un Range

Merciiiiiiiiiii pour vos réponses Efgé et Mj13 ça marche parfaitement

 

[kjin]

Re : définir un Range

Bonjour zatous,

fin = 9
Set c = Application.Union(Range("A8:CQ" & fin), Range("DA8:ED" & fin))

A+
kjin

 

[sarrsouraa]

Re : définir un Range

Rebonjour tout le monde et merci Kjin pour ta réponse aussi
la façon du range que vous m'avez montré marche parfaitement avec toute les manipulations sauf le sort

Sheets("cost").Sort.SetRange (Sheets("cost").Range("A8:CQ" & fin & ",DA8:ED" & fin))

il m'affiche une erreur invalid call of procedure

si quelq'un a une idée
merciiiiiiiiiiiiii