nom d'objet à variable

Bonjour à tous!

Je commence le VBA et j'aimerai quelques éclaircies sur un problème que je n'arrive pas à résoudre.

Mon objectif est de synthétiser un fichier excel de chiffrage assez lourd (10 feuilles différentes) en faisant un tableau regroupant seulement les lignes qui ont été rempli et seulement les colonnes qui m'intéressent. Pour des raisons de traitements d'informations, il faut conserver la valeur mais aussi la couleur des cellules du fichier source.

J'ai la macro pour copier coller et faire un tableau avec les informations utiles d'une feuille, mais je n'arrive pas à l'appliquer sur les autres feuilles en faisant une boucle.

Mon idée était la suivante:
nommer chaque feuille f1 ,f2 ,f3,...f10 et lancer la macro dans fk for k=1 to 10. Seulement je n'arrive pas à inclure une variable dans un nom d'objet...

Y a t'il une syntaxe ou une façon particulière de faire?


Voici les lignes que j'ai écrit:

Pièce jointe 530974



Merci d'avance pour votre aide


question bonus ^^
ma ligne pour copier coller la couleur de fond de cellule ne fonctionne pas.. avez vous autre chose à me proposer?

Bonjour,

Essayez ceci

Code:

---

1 2 3 4 5 6 7 8

For i = 1 To N If Sheets(k).Cells(i, C) > 0 And Sheets(k).Cells(i, C) < 1000000 Then fd.Cells(j, d) = Sheets(k).Cells(i, C + 1) fd.Cells(j, d - 1) = Sheets(k).Cells(i, C - 3) fd.Cells(j, d).Font.Color = Sheets(k).Cells(i, C + 1).Font.Color j = j + 1 End If Next i

---

Pour le cas où vous voudriez passer toutes les feuilles en revue

Code:

---

For k = 1 To Sheets.Count

---

PS: à l'avenir, collez le code plutôt qu'une image, puis sélectionnez-le entièrement et cliquez sur la le pavé "#" (ajout d'une balise de code) .

Cdlt

Bonjour,

Code:

---

ma ligne pour copier coller la couleur de fond de cellule ne fonctionne pas.. avez vous autre chose à me proposer?

---

C'est normal
Font.Color n'est pas la couleur du fond (mieux dit l'intérieur) de cellule mais de la fonte (Une fonte est l’ensemble des caractères correspondant aux mêmes caractéristiques de corps, graisse et italique au sein d’une même police.)
Il faut utiliser Interior.Color

Exemple

Code:

---

Range("A20").Interior.Color = vbYellow

---

Citation:

---

Envoyé par ARTURO83

PS: à l'avenir, collez le code plutôt qu'une image, puis sélectionnez-le entièrement et cliquez sur la le pavé "#" (ajout d'une balise de code) .

---

+1 :ccool:

Citation:

---

Envoyé par motivator

Mon idée était la suivante:
nommer chaque feuille f1 ,f2 ,f3,...f10 et lancer la macro dans fk for k=1 to 10. Seulement je n'arrive pas à inclure une variable dans un nom d'objet...

Y a t'il une syntaxe ou une façon particulière de faire?

---

Ce qu'on appelle dans d'autres langages des macrovariables (variables dont le nom lui-même est variable) n'existe pas en VBA.
Par contre, il est possible d'avoir des variables indexées, ce qui s'applique à ton cas.
Pense aussi à déclarer et typer tes variables.

Code:

---

1 2 3 4 5 6 7 8 9

Dim WS_f(10) As Worksheet Dim k As Long   Set WS_f(1) = Worksheets("1GO MACON") Set WS_f(2) = Worksheets("2GO BOIS") ....   For k = 1 To 10 If WS_f(k).Cells(i, c) > 0 ...

---

Citation:

---

Envoyé par Philippe Tulliez

Une fonte est l’ensemble des caractères correspondant aux mêmes caractéristiques de corps, graisse et italique au sein d’une même police.)

---

Dit plus simplement, la Font, ce sont les caractères (le texte, les chiffres, etc.).