Créer un tableau par VBA avec des données d'un autre tableau

Version imprimable

6 pièce(s) jointe(s)

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
Pièce jointe 618571[
Est-ce que vous pouvez m'aider ?
Pièce jointe 618566
Code:

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)
Pièce jointe 618567
Pièce jointe 618568
Pièce jointe 618569

Onglet Modele qui sert à coder la mise en page du tableau de l'onglet "SYNTHESE VBA"
Pièce jointe 618570

05/05/2022, 14h21
Belga16

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

Code:

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:

If Sheets("STC B2M").Tab.ColorIndex = 33 Then ....
05/05/2022, 15h27
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

j'ai trouvé la réponse :

Code:

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

05/05/2022, 16h59
Pierre Fauconnier

Salut

Citation:

Envoyé par Belga16

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

Code:

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.