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 ?
Mise en page souhaitée du tableau de l'onglet "SYNTHESE VBA" (que je n'arrive pas à coder)
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
Onglet Modele qui sert à coder la mise en page du tableau de l'onglet "SYNTHESE VBA"
Partager