Définir une zone

[Laurent]

Bonjour,

Je définis ma zone de cellules fusionnées comme cela :
Zone = Range('A1').mergearea.address

Par exemple çà donne A1:A3

J'aimerai définir une seconde zone à partir de la première de sorte que la zone devienne : B1:B3
Sachant que la seconde zone ne concerne pas des cellules fusionnées.
Zone2 = ....

Merci pour votre aide

Laurent

 

[salim]

Bonsoir Laurent

Voici un petit bout de code qui j'espère répond à tes attentes, j'ai repris A1:A3 comme plage de cellule fusionnée et je l'agrandi d'une colonne grâce à la propriété Resize ce qui correspond donc à A1:B3 et cette zone agrandi devient 'Plage' et je met le contour de 'Plage' en rouge.

Option Explicit

Sub DefinirZone()
Dim Zone1 As Range, Plage As Range
    Set Zone1 = Range('A1').MergeArea
    Set Plage = Zone1.Resize(Zone1.Rows.Count, Zone1.Columns.Count + 1)
    Plage.BorderAround ColorIndex:=3
End Sub

salim

Message édité par: salim, à: 26/05/2005 04:23