Discussion :

[mormic]

Bonjour

Je suis devant un problème que ma connaissance syntaxique en VBA ne peut résoudre.
Si quelqu'un pouvait éclairer ma lanterne, cela me soulagerait énormément:

Sur une feuille Excel, je dois définir une zone globale (un Range) comportant plusieurs Plages détectées dans une boucle.
Par exemple, en colonne A il y a des codes et, de temps en temps, des codes à zéro.
En colonne B, il faut que toutes les zones qui correspondant à un code non nul doivent être regroupées dans un Range que l'on nommera "Zone".

Je ne sais pas comment faire en VBA pour regrouper toutes ces zones en un seul Range et obtenir par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B1:B4","B6:B9","B12:B24").name = "Zone"

Merci de votre aide
Michel

[patricktoulon]

bonjour

je ne suis pas sur mais je ne crois pa que tu puisse nommer une plage de cellules non contigu avec le même nom
par contre tu peut lui affecter une variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim zone as range
zone=range("A1:b6","d3:g8")

Edit:
autant pour moi
il semblerait que cela soit possible

l'enregistreur de macro te donne une piste exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("C6:D9,D13:E17,G6:H10,H14:I17").Select
    Range("H14").Activate
    ActiveWorkbook.Worksheets("Feuil1").Names.Add Name:="toto", RefersToR1C1:= _
        "=Feuil1!R6C3:R9C4,Feuil1!R13C4:R17C5,Feuil1!R6C7:R10C8,Feuil1!R14C8:R17C9"

[mormic]

Bonjour

Merci pour votre réponse.
En fait, à force de chercher dans la nuit, j'ai trouvé la bonne instruction pour résoudre mon problème: Union
Et mon code devient d'une simplicité enfantine:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
dim RgZ as range, NoZ as integer
Dim Tb() as Range
'je cherche les plages dans le prog, je mets à jour NoZ,  Redim Preserve Tb(NoZ) et je charge le tableau avec la plage détectée
'NoZ = 10 par exemple
                Set RgZ = Tb(1)
                For j = 2 To NoZ
                    Set RgZ = Union(RgZ, Tb(j))
                Next j
                RgZ.Name =  "Zone"

On peut vraiment dire que l'Union fait la force !

Merci encore
Michel