Discussion :

[onyirimba]

Bonjour,

J'ai 2 demandes : j'ai créé un codage qui met à jour un tableau de l'onglet "SYNTHESE VBA" en fonction de la colonne A B et C de l'onglet STC B2M

1- Je souhaiterai que cette mise à jour se réalise en fonction de la couleur bleue de l'onglet et non en fonction de la dénomination STC B2M de l'onglet. J'ai essayé avec le codage ci-après mais cela ne fonctionne pas.
2- Ensuite je souhaiterai que le tableau de l'onglet "SYNTHESE VBA" aie la mise en page ci-après donc j'ai crée un onglet Modele mais je n'ai pas trouvé le codage adéquat

J'ai joint un fichier explicatif
Stock VBA.xlsm[
Est-ce que vous pouvez m'aider ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Violet_masquer()
 
    For Each O In Worksheets
        If O.Tab.ColorIndex = 33 Then
 
                For Each cel In .range("A7:A" & .range("A" & rows.Count).End(xlUp).Row)
''''''''''''''''''''''''''             RISK      '''''''''''''
 
                 dt = ws.Cells(rows.Count, 2).End(xlUp).Row + 1
 
                 ws.range("B" & dt) = cel.Offset(, 0)
                 ws.range("C" & dt) = cel.Offset(, 1)
                 ws.range("D" & dt) = cel.Offset(, 2)
                 ws.range("E" & dt).Formula = ws.range("X" & dt).Formula
                 ws.range("F" & dt).Formula = ws.range("Y" & dt).Formula
                 ws.range("G" & dt).Formula = ws.range("Z" & dt).Formula
                 ws.range("H" & dt).Formula = ws.range("AA" & dt).Formula
                 ws.range("I" & dt).Formula = ws.range("AB" & dt).Formula
                 ws.range("J" & dt).Formula = ws.range("AC" & dt).Formula
                 ws.range("K" & dt).Formula = ws.range("AD" & dt).Formula
                 ws.range("L" & dt).Formula = ws.range("AE" & dt).Formula
                 ws.range("M" & dt).Formula = ws.range("AF" & dt).Formula
                 ws.range("N" & dt).Formula = ws.range("AG" & dt).Formula
 
        Next cel
 
    Next
End Sub

Mise en page souhaitée du tableau de l'onglet "SYNTHESE VBA" (que je n'arrive pas à coder)




Onglet Modele qui sert à coder la mise en page du tableau de l'onglet "SYNTHESE VBA"

[Belga16]

Je n'ai pas ouvert votre fichier, mais déjà une correction à apporter :

Code :

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

For Each cel In Sheets("sheet1").Range("A7:A" & Cells(Rows.Count, "A").End(xlUp).Row)

Pour agir en fonction de la couleur bleu du nom de la feuille :

Code :

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

If Sheets("STC B2M").Tab.ColorIndex = 33 Then ....

[onyirimba]

en fait, c'est que le nom de l'onglet STC B2M peut être modifié (et devenir SAA ERT par exemple...) mais la couleur restera toujours bleue
donc je souhaiterai que le codage VBA intègre la couleur bleue de l'onglet du fichier et non l'intitulé de l'onglet

Merci

[onyirimba]

j'ai trouvé la réponse :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub test()
 
Dim Titre, dt As Integer, ws As Worksheet, cel As Range, n As Integer
Dim nbLignes As Long
 
 
 
 
 
', dest As Range
Dim Deb As Long
    Set ws = ThisWorkbook.Worksheets("SYNTHESE VBA")
Dim Sh As Worksheet, C As Range
 
 
  For Each Sh In Sheets
    If Sh.Tab.ColorIndex = 33 Then
 
'''''''''''''''''''''''''' RISK '''''''''''''
 
 
        For Each cel In Sh.Range("A7:A" & Sh.Range("A" & rows.Count).End(xlUp).Row)
 
            dt = ws.Cells(rows.Count, 2).End(xlUp).Row + 1
 
            ws.Range("B" & dt) = cel.Offset(, 0)
            ws.Range("C" & dt) = cel.Offset(, 1)
            ws.Range("D" & dt) = cel.Offset(, 2)
            ws.Range("E" & dt).Formula = ws.Range("X" & dt).Formula
            ws.Range("F" & dt).Formula = ws.Range("Y" & dt).Formula
            ws.Range("G" & dt).Formula = ws.Range("Z" & dt).Formula
            ws.Range("H" & dt).Formula = ws.Range("AA" & dt).Formula
            ws.Range("I" & dt).Formula = ws.Range("AB" & dt).Formula
            ws.Range("J" & dt).Formula = ws.Range("AC" & dt).Formula
            ws.Range("K" & dt).Formula = ws.Range("AD" & dt).Formula
            ws.Range("L" & dt).Formula = ws.Range("AE" & dt).Formula
            ws.Range("M" & dt).Formula = ws.Range("AF" & dt).Formula
            ws.Range("N" & dt).Formula = ws.Range("AG" & dt).Formula
 
         Next cel
 
 
'''''''''''''''''''''''''' RISK '''''''''''''
 
 
    End If
  Next Sh
End Sub

[Pierre Fauconnier]

Salut

[...]
Pour agir en fonction de la couleur bleu du nom de la feuille :

Code :

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

If Sheets("STC B2M").Tab.ColorIndex = 33 Then ....

N'importe quoi! La demande spécifie justement que l'on souhaite se passer du nom de la feuille...



@onyirimba

Si tu as plusieurs onglets bleus, comment fais-tu?

Perso, je travaillerais avec des tableaux structurés et des modèles.