Discussion :

[fibule38]

Bonjour,

J'ai utilisé pendant pas mal de temps la macro ci-dessous, mais je voudrai la modifier pour qu'elle prenne en compte tous les onglets quelque soit le nom et non pas que les onglets qui commence par depot.
Merci d'avance de votre aide, svp

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
Sub nbreliste()
Application.CutCopyMode = True
    Dim i As Byte
    For i = 2 To Sheets.Count
        If InStr(1, Sheets(i).Name, "depot", 1) > 0 Then
            Sheets(i).Range("D3").Copy
            Sheets("nbreliste").Range("a65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
            Sheets(i).Range("G3").Copy
            Sheets("nbreliste").Range("c65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
            Sheets(i).Range("E7").Copy
            Sheets("nbreliste").Range("b65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=True
            Sheets(i).Range("I3").Copy
            Sheets("nbreliste").Range("d65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues, Transpose:=True
        End If
 
    Next
    Application.CutCopyMode = False
 
End Sub

[Mr Ananas]

Salut,

Enlèves juste ton IF non ?

[Menhir]

Bin... Il suffit de retirer le ligne "If" qui filtre sur "depot" (un indice : elle contient le mot "depot" ) et le End If qui va avec.

[fibule38]

Bin... Il suffit de retirer le ligne "If" qui filtre sur "depot" (un indice : elle contient le mot "depot" ) et le End If qui va avec.

Bonjour et merci.

C'était pourtant tellement simple.