Array - est-il possible de copier le format ?

Bonjour,
je travaille sur un fichier important et j'ai écrit une procédure qui recrée les formats de bordures, à partir d'un bouton. Il se trouve que cette procédure est très longue a s'exécuter.
Je me suis dit que si je passai par un Array, ça irait beaucoup plus vite, sauf que je n'ai trouvé aucun exemple sur la toile.
J'ai vu comment copier un Array dans un Autre, mais cela copie les données, or moi je voudrais copier les formats d'une plage d'un tableau (Modèle) dans celui qu'utilise les gens.

Merci pour votre aide.

Si par Array tu veux parler de variables et qu'en plus elles sont déclarées comme valeurs (Integer, Long, Double, etc.), c'est sûr que les formats ne passent pas.

Pour copier un format entre cellules, il faut simplement passer par une copie de cellules comme on pourrait le faire à la main.

Code:

---

1 2	Worksheets("MonModele").Range("A1:B2").Copy Worksheets("MaDestination").Range("C3:D4").PasteSpecial (xlPasteFormats)

---

Bonjour,

pour tout ce qui est question de présentation, il est souvent bien plus rentable de partir d'un modèle …

Bonjour,

En soit, les formats de cellules ou de tableaux ne sont que des données, des chiffres ou des string, du style xlContinuous.
Tu peux donc aisément les stocker dans une variable Array, et réaffecter les formats en parcourant ton tableau.

Bonjour,

Si tu avais mis ton code ça éviterait des propositions inutiles car déjà présentes.
Essaie déjà en mettant

Code:

---

application.screenuptating=false

---

en début de procédure.
Pour copier tous les formats d'un coup et que les formats :

Code:

---

1 2	Range("B2:E4").Copy Range("J2").PasteSpecial Paste:=xlPasteFormats

---

eric

Citation:

---

Envoyé par eriiic

Essaie déjà en mettant

Code:

---

application.screenuptating=false

---

en début de procédure.

---

Je ne vois pas trop en quoi cette instruction apporte quelque chose à son problème. :koi:

Bonjour à tous et merci de vos réponses,
Eriiic, Marc et Menhir :
Oui j'utilise jusqu'à présent, la méthode du modèle copy / .PasteSpecial Paste:=xlPasteFormats.

Ma question était généraliste au départ, et motivée, parce dans un autre poste, Issoram m'a écrit un code pour effacer les données qui tombent sur les jours de WE ou fériés.
Aussi, je me demandais s'il était possible d'insérer une largeur de colonne en même temps.
le code d'Issoram est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Test_With_Array() Dim tabTemp As Variant Dim c As Integer Dim plg As Range, plage As Range Set plg = [C5:AG120] tabTemp = [C3:AG3].Value For c = LBound(tabTemp, 2) To UBound(tabTemp, 2) If WorksheetFunction.Weekday(tabTemp(1, c), vbMonday) > 5 Or Application.CountIf([FERIES], tabTemp(1, c)) > 0 Then If plage Is Nothing Then Set plage = plg.Columns(c) Else Set plage = Union(plage, plg.Columns(c)) End If End If Next c If Not plage Is Nothing Then plage.ClearContents Set plage = Nothing: Set plg = Nothing Erase tabTemp End Sub

---

La réponse de Nico Chg m'a fait essayer

Code:

---

1 2	If Not plage Is Nothing Then plage.ClearContents plage.ColumnWidth = 1

---

et cela fonctionne très bien.
je n'avais jamais vu (encore) un code, sous forme d'Array, avec un format... Je vous remercie tous pour vos réponses.

Citation:

---

Envoyé par Menhir

Je ne vois pas trop en quoi cette instruction apporte quelque chose à son problème. :koi:

---

Je n'ai pas vu son code, il ne l'a pas mis.
Vu que le temps est annoncé comme considérable une possibilité est qu'il y ait du scrolling.
La différence avec screenupdating=false sera dans ce cas également considérable.
Non ?

eric

Bonjour,

un exemple d'Array contenant des format de cellule (ici une couleur)

Code:

---

1 2 3 4

For J_ColorTab = 5 To NbCol ColorTab(Index_ColorTab) = FeuilleDeux.Cells(Max, J_ColorTab).Interior.Color Index_ColorTab = Index_ColorTab + 1 Next J_ColorTab

---

Je récupère la couleur d'une cellule, et je la met dans une variable tableau, afin de la traiter plus tard.