Discussion :

[MurielVBA]

Bonjour,

J'ai lu cette discussion.
Voila, j'ai le même code VBA a créer sur un fichier Excel avec une petite nuance:
J'ai trois types d'onglet:
- Les onglets de synthèse globale (à remplir)
- Les onglets de listing
- les onglets de "synthèse des listing" (les noms de ces onglets commencent tous par "TCD_*")

Dans ma synthèse globale, il faut donc que j'insère les données présentes dans le dernier type d'onglet. ("TCD_*")

Qu'est ce qu'il faut mettre à la place de "Dim sh As Worksheet" et de "For Each sh In ThisWorkbook.Sheets "???

(j'ai peur que le code viennent chercher des valeurs qui n'ont rien à voir dans les onglets de listing)

J'espère avoir été claire.
Merci d'avance

Muriel

[Singular]

Rien à changer du côté des variables et de la boucle For Each. Cependant, pour être certaine de ne prendre en compte que les feuilles dont le nom commence par "TCD_", il faut mettre le traitement dans un bloc If:

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
Sub rupture()
    '******************************
    Const PrefixTCD As String = "TCD_"
    '******************************
    Dim i As Long
    Dim Idest As Long
    Dim sh As Worksheet
 
    Idest = 4
 
    For Each sh In ThisWorkbook.Sheets
        '******************************
        If Left(sh, Len(PrefixTCD)) = PrefixTCD Then
        '******************************
            i = 4
 
            Do While sh.Range("K" & i).Value <> ""
 
                If UCase(sh.Range("K" & i).Value) = "RUPTURE" Then
 
                    Sheets("Cde").Range("A" & Idest).Value = sh.Range("A" & i).Value
                    Sheets("Cde").Range("B" & Idest).Value = sh.Range("B" & i).Value
                    Sheets("Cde").Range("C" & Idest).Value = sh.Range("C" & i).Value
                    Sheets("Cde").Range("D" & Idest).Value = sh.Range("I" & i).Value
                    Idest = Idest + 1
                End If
 
                i = i + 1
            Loop
        '******************************
        End If
        '******************************
    Next sh
End Sub

Ce qui est nouveau dans le code est mis entre des lignes de commentaire comme:

Code :

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

'******************************

[MurielVBA]

Merci beaucoup pour cette réponse.
ca ne marchait pas tout a fait, j'ai donc modifier legerment la formule Left, et c'est bon.
Voici ce que j'ai mis:

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
Sub Test_N()
 
    Const Prefixe = "TCD_"
 
    Dim i As Integer
    Dim Idest As Integer
    Dim sh As Worksheet
 
    Idest = 7
 
    For Each sh In ThisWorkbook.Sheets
 
        If Left(sh.Name, 4) = Prefixe Then
 
            i = 9
 
            Do While sh.Cells(i, 27).Value <> ""
 
 
                If sh.Cells(i, 27).Value = Sheets("C°<3h").Cells(4, 12).Value Then
 
                    Sheets("C°<3h").Cells(Idest, 6).Value = sh.Cells(i, 5).Value
                    Sheets("C°<3h").Cells(Idest, 11).Value = sh.Cells(i, 6).Value
                    Sheets("C°<3h").Cells(Idest, 12).Value = sh.Cells(i, 7).Value
                    Sheets("C°<3h").Cells(Idest, 13).Value = sh.Cells(i, 8).Value
                    Sheets("C°<3h").Cells(Idest, 24).Value = sh.Cells(i, 21).Value
                    Sheets("C°<3h").Cells(Idest, 26).Value = sh.Cells(i, 27).Value
                    Idest = Idest + 1
                End If
 
                i = i + 1
            Loop
 
        End If
 
    Next sh
 
End Sub