Mise en forme de 2 plages

nadir**** · 5 Juillet 2011

Bonjour
Je voudrais effectuer les mêmes opérations sur 2 plages distinctes: plage1 et ensemble
Je code ces opérations avec with et end with.
Par contre je répète ces opérations pour chacune de ces 2 plages.

Code:

With Plage1
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThin
    .Rows(1).WrapText = True
    ...
end with
With ensemble
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThin
    .Rows(1).WrapText = True
    ...
end with

Comment pourrait-on éviter de ré-écrire les lignes 2 fois.
Peut-on utiliser

Code:

with each plage in (plage1,ensemble)
end

Merci pour votre aide.
Nadir

tototiti2008 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Bonjour nadir,

Peut-être

Code:

With Union(Plage1,ensemble)
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThin
    .Rows(1).WrapText = True
    ...
end with

ou peut-être

Code:

For each Ar in Union(Plage1,ensemble).areas
With Ar
    .Borders.LineStyle = xlContinuous
     .Borders.Weight = xlThin
     .Rows(1).WrapText = True
     ...
end with
Next

Pierrot93 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Bonjour,

regarde ceci :

Code:

With Union(Range("A1:A10"), Range("C1:C10"))
    .Borders.LineStyle = xlContinuous
    .Borders.Weight = xlThin
    .Rows(1).WrapText = True
End With

bon après midi
@+

Edition : aarf, encore en retard moi...

nadir**** · 5 Juillet 2011

Re : Mise en forme de 2 plages

Merci pour vos réponses.
Le code

Code:

With Union(Plage1,ensemble)

ne marche pas.
Il faudrait que je définisse la collection des 2 plages (plage1, ensemble)
mais je ne sais pas comment faire.
Nadir

Pierrot93 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Re,

regarde mon post de 13h22, fonctionne en l'état...;

Pierrot93 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Re,

A notre si ce sont des plages nommées :

Code:

With Union(Range("Plage1"),Range("ensemble"))

nadir**** · 5 Juillet 2011

Re : Mise en forme de 2 plages

Merci Pierrot.
Les plages utilisées ont des dimensions variables et ont des noms.
J'ai ré-essayé

Code:

With Union(Plage1,ensemble)

Mais sans succès.

tototiti2008 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Bonjour Pierrot
Re,

avec une parenthèse ( après le 1er Range

With Union(Range("Plage1"),Range("ensemble"))

Pierrot93 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Re,

tototiti2008 à dit:
Bonjour Pierrot
Re,
avec une parenthèse ( après le 1er Range

bien vu toto, j'ai modifié...
petite précision, les plages doivent être sur la même feuille de calcul....

nadir**** · 5 Juillet 2011

Re : Mise en forme de 2 plages

Merci pour votre aide.
Même avec les bonnes parenthèses j'ai l'erreur suivante:

Erreur d'éxécution '1004'
La méthode 'Range' de l'objet'_Global' a échoué.

Hmmmm

Ah oui effectivement, les plages ne sont pas sur la même feuille de calcul.

tototiti2008 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Re,

Postes nous un fichier exemple, on a suffisamment essayé les yeux fermés
Comme Pierrot la précisé dans son denier message, si les plages Plage1 et ensemble ne sont pas sur la feuille active, ça ne fonctionnera pas

Pierrot93 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Re,

Ah oui effectivement, les plages ne sont pas sur la même feuille de calcul.

dans ce cas "union" ne peut pas fonctionner....

Pierrot93 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Re,

une autre méthode :

Code:

Dim c(1) As Range, i As Byte
Set c(0) = Sheets("Feuil1").Range("A1:A10") 'range("maplage1")
Set c(1) = Sheets("Feuil2").Range("A1:A10") 'range("maplage2")
For i = 0 To 1
    With c(i)
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Rows(1).WrapText = True
    End With
Next i

si plages nommées, adapter l'initialisation des variables...

nadir**** · 5 Juillet 2011

Re : Mise en forme de 2 plages

Oui tu as raison.

Voici un exemple simplifié de mon problème.

Pierrot93 · 5 Juillet 2011

Re : Mise en forme de 2 plages

Re,

pas 2007 sous le coude, mais as tu vu mon code de 14h03..;

Mise en forme de 2 plages

nadir****

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

nadir****

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

nadir****

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

nadir****

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

nadir****

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Discussions similaires