OVH Cloud OVH Cloud

[vba] Range(Cells... sur deux zones discontinues

3 réponses
Avatar
twinley
Bonjour à tous,

Je cherche la formule pour récupérer l'adresse de deux ranges discontinus.

j'utilise avec succès, pour une seule zone, le code suivant:
lign1 = 13
lign2 = Cells(3, 10) qui contient 23
col = 4
x = Sheets("Feuil1").Range(Cells(lign1, col), Cells(lign2, col)).Address
et x renvoie bien ("$D$13:$D$23")

Maintenant je souhaite traiter deux colonnes D et F, mais je n'arrive pas à
l'équivalent de
y = Range("D13:D23,F13:F23") avec une formule ou col6 = 6
Range (cells(lign1,col),(lign2,col) quelque chose ici
cells(lign1,col6),(lign2,col6)).address


Merci pour l'aide
--
à+twinley

3 réponses

Avatar
Yves Chabirand
Union(Range("G8:AH25,AR8:AU25"), Range("G27:AH37,AR27:AU37"))
ou Union(range(cells(a,b),cells(c,d)),range(cells(e,f),cells(g,h)))

Yves C.

"twinley" <twinleym(at)hotmail.com> a écrit dans le message news:
#
Bonjour à tous,

Je cherche la formule pour récupérer l'adresse de deux ranges discontinus.

j'utilise avec succès, pour une seule zone, le code suivant:
lign1 = 13
lign2 = Cells(3, 10) qui contient 23
col = 4
x = Sheets("Feuil1").Range(Cells(lign1, col), Cells(lign2, col)).Address
et x renvoie bien ("$D$13:$D$23")

Maintenant je souhaite traiter deux colonnes D et F, mais je n'arrive pas
à

l'équivalent de
y = Range("D13:D23,F13:F23") avec une formule ou col6 = 6
Range (cells(lign1,col),(lign2,col) quelque chose ici
cells(lign1,col6),(lign2,col6)).address


Merci pour l'aide
--
à+twinley




Avatar
Nicolas B.
Salut twinley,

Utilise Union :
MsgBox Union(Range(Cells(lign1, col), Cells(lign2, col)), _
Range(Cells(lign1, col6), Cells(lign2, col6))).Address


A+
Nicolas B.


twinley wrote:
Bonjour à tous,

Je cherche la formule pour récupérer l'adresse de deux ranges discontinus.

j'utilise avec succès, pour une seule zone, le code suivant:
lign1 = 13
lign2 = Cells(3, 10) qui contient 23
col = 4
x = Sheets("Feuil1").Range(Cells(lign1, col), Cells(lign2, col)).Address
et x renvoie bien ("$D$13:$D$23")

Maintenant je souhaite traiter deux colonnes D et F, mais je n'arrive pas à
l'équivalent de
y = Range("D13:D23,F13:F23") avec une formule ou col6 = 6
Range (cells(lign1,col),(lign2,col) quelque chose ici
cells(lign1,col6),(lign2,col6)).address


Merci pour l'aide


Avatar
twinley
et bien voilà, c'est parfait comme dab.
Merci pour l'avancé
--
à+twinley
"Nicolas B." a écrit dans le message
de news:
Salut twinley,

Utilise Union :
MsgBox Union(Range(Cells(lign1, col), Cells(lign2, col)), _
Range(Cells(lign1, col6), Cells(lign2, col6))).Address


A+
Nicolas B.


twinley wrote:
Bonjour à tous,

Je cherche la formule pour récupérer l'adresse de deux ranges
discontinus.



j'utilise avec succès, pour une seule zone, le code suivant:
lign1 = 13
lign2 = Cells(3, 10) qui contient 23
col = 4
x = Sheets("Feuil1").Range(Cells(lign1, col), Cells(lign2, col)).Address
et x renvoie bien ("$D$13:$D$23")

Maintenant je souhaite traiter deux colonnes D et F, mais je n'arrive
pas à


l'équivalent de
y = Range("D13:D23,F13:F23") avec une formule ou col6 = 6
Range (cells(lign1,col),(lign2,col) quelque chose ici
cells(lign1,col6),(lign2,col6)).address


Merci pour l'aide