VBA - Fonction With

[inviteaea0875d]

Bonjour,

Le code suivant utilisant la fonction With de manière répétitive peut surement etre simplifié, mais il me manque le connecteur logique qui pourrait "additionner" les Range sur un seul With.

Quelqu'un le connait il ?

With Sheets("Base").Range("i2:i8000")
    .NumberFormat = "# ##0.00 €"
    .HorizontalAlignment = xlRight
End With

With Sheets("En cours").Range("h2:h8000")
    .NumberFormat = "# ##0.00 €"
    .HorizontalAlignment = xlRight
End With

With Sheets("Soldé").Range("h2:h8000")
    .NumberFormat = "# ##0.00 €"
    .HorizontalAlignment = xlRight
End With

With Sheets("Annulé").Range("h2:h8000")
    .NumberFormat = "# ##0.00 €"
    .HorizontalAlignment = xlRight
End With

-----

[invitef625d7cf]

Bonjour,

Si tu mettais le nom de tes feuilles dans une matrice et que tu fasses une boucle explorant tous les éléments de cette matrice. Ça éviterait la répétition de la mise en forme.

[invited8344905]

Bonjour,

Attention à ton premier With qui n'a pas le même Range() que les 3 autres...

Un "And" ne fonctionnerait pas?

[invite0bbe92c0]

Bonjour,

Attention à ton premier With qui n'a pas le même Range() que les 3 autres...

Il n'est pas valide de toute manière.

Un "And" ne fonctionnerait pas?

With en VBA est un "syntax sugar"; And un opérateur logique; donc, non.

[A voir en vidéo sur Futura]

[Stan_94]

Bonjour,

n'est-il pas plus simple (si possible) de faire d'abord la selection de toutes les plages voulue pour ensuite juste travailler sur la sélection ?
Il me semble qu'un truc du genre Set Plage = Union(range1, range2, ... ) marche. Reste à vérifier que les ranges peuvent appartenir à plusieurs feuiles...

[inviteaea0875d]

Bonne idée Pauldair
Mais comment tu fais une matrice ?

[inviteaea0875d]

Bonjour,

n'est-il pas plus simple (si possible) de faire d'abord la selection de toutes les plages voulue pour ensuite juste travailler sur la sélection ?
Il me semble qu'un truc du genre Set Plage = Union(range1, range2, ... ) marche. Reste à vérifier que les ranges peuvent appartenir à plusieurs feuiles...

Bonne idée Stan,
Cela donne :

Sub format()
With Union(Sheets(Feuil1).Range("H2:H8000"), Sheets(Feuil2).Range("H2:H8000"), Sheets(Feuil3).Range("H2:H8000"))
    .NumberFormat = "# ##0.00 €"
    .HorizontalAlignment = xlRight
End With

End Sub

Mais malheureusement, le message d'erreur suivant s'affiche : "incompatibilité de type" sur la ligne Union

[inviteaea0875d]

Bonjour,

Si tu mettais le nom de tes feuilles dans une matrice et que tu fasses une boucle explorant tous les éléments de cette matrice. Ça éviterait la répétition de la mise en forme.

Bonne idée Pauldair
Mais comment tu fais une matrice ?

[inviteaea0875d]

Bonjour,

Si tu mettais le nom de tes feuilles dans une matrice et que tu fasses une boucle explorant tous les éléments de cette matrice. Ça éviterait la répétition de la mise en forme.

J'ai essayé ça :

Sub format()
Dim Tableau(2) As Range

    Tableau(0) = Sheets(Feuil1).Range("H2:H8000")
    Tableau(1) = Sheets(Feuil2).Range("H2:H8000")
    Tableau(2) = Sheets(Feuil3).Range("H2:H8000")

With Tableau(2)
    .NumberFormat = "# ##0.00 €"
    .HorizontalAlignment = xlRight
End With

End Sub

Mais sans succès : erreur Incompatibilité de type 13 !

Je me suis inspiré des pages suivantes :
http://silkyroad.developpez.com/vba/tableaux/
http://www.excel-pratique.com/fr/vba/tableaux_vba.php

[Stan_94]

Laisse tomber le "Union", à priori ça ne peux marcher que sur la même feuille ! Dommage...

Pour le tableau, c'est presque ça, mais le With avec un tableau, je ne connais pas. En tout cas j'aurais pas mis With Tableau(2) mais With Tableau.
(J'aurais bêtement fais un bouche For i = 0 to 2 et utilisation de Tableau(i)...

[invitef625d7cf]

Sub format()
Dim Tableau(2) As Range

    Tableau(0) = Sheets(Feuil1).Range("H2:H8000")
    Tableau(1) = Sheets(Feuil2).Range("H2:H8000")
    Tableau(2) = Sheets(Feuil3).Range("H2:H8000")

Ensuite tu fais, sans utiliser "with", une boucle:

Pour i valant de 0 à 2

Tableau(i).monFormatNombre.mon AlignementHorizontal

fin de la boucle for.