Mise en forme de 2 plages

N

nadir****

XLDnaute Occasionnel

• 5 Juillet 2011

• #16

Re : Mise en forme de 2 plages

Merci Pierrot.
Je ne savais pas qu'il était possible d'avoir des variables de type c(i) ou c est une plage et i un entier.
Je vais creuser cette piste.
Mais est-il possible de créer une collection de 2 plages seulement?
Merci de ton aide en tout cas
Nadir.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juillet 2011

• #17

Re : Mise en forme de 2 plages

Re,

Mais est-il possible de créer une collection de 2 plages seulement?

Cliquez pour agrandir...

le code tient compte de 2 plages, non ???

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Juillet 2011

• #18

Re : Mise en forme de 2 plages

Re,

En l'occurrence, Pierrot t'a proposé une solution avec un tableau de 2 plages
On peut passer par un objet "Collection" si tu y tiens, mais pas beaucoup (en fait pas du tout...) de valeur ajoutée par rapport à sa solution...

Code:

Sub test()
Dim CollecPlage As New Collection, Plg As Range
    CollecPlage.Add Sheets("Feuil1").Range("A1:A10") 'range("maplage1")
    CollecPlage.Add Sheets("Feuil2").Range("A1:A10") 'range("maplage2")
    For Each Plg In CollecPlage
        with Plg
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Rows(1).WrapText = True
       end with
    Next
End Sub

 

Vote positif 0 Vote négatif

N

nadir****

XLDnaute Occasionnel

• 5 Juillet 2011

• #19

Re : Mise en forme de 2 plages

Merci Pierrot, Merci Tototiti.
Effectivement, la solution de Pierrot est plus élégante.
A+

 

Vote positif 0 Vote négatif