Discussion :

[motivator]

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:





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?

[ARTURO83]

Bonjour,

Essayez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

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.).