Mise en forme de 2 plages

[nadir****]

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.

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

with each plage in (plage1,ensemble)
end

Merci pour votre aide.
Nadir

 

[tototiti2008]

Re : Mise en forme de 2 plages

Bonjour nadir,

Peut-être

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

ou peut-être

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

 

[Pierrot93]

Re : Mise en forme de 2 plages

Bonjour,

regarde ceci :

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****]

Re : Mise en forme de 2 plages

Merci pour vos réponses.
Le 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]

Re : Mise en forme de 2 plages

Re,

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

 

[Pierrot93]

Re : Mise en forme de 2 plages

Re,

A notre si ce sont des plages nommées :

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

 

[nadir****]

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é

With Union(Plage1,ensemble)

Mais sans succès.

 

[tototiti2008]

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]

Re : Mise en forme de 2 plages

Re,

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****]

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]

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]

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]

Re : Mise en forme de 2 plages

Re,

une autre méthode :

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****]

Re : Mise en forme de 2 plages

Oui tu as raison.

Voici un exemple simplifié de mon problème.

 

[Pierrot93]

Re : Mise en forme de 2 plages

Re,

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