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"