requettes sur plusieurs feuilles exel

[stefgand]

bonjour,

je souhaiterais savoir comment faire une requette sur plusieurs feuilles

merci

 

[_Thierry]

Re : requettes sur plusieurs feuilles exel

Bonjour StefGang, le Forum

Un peu succinct comme demande...

On peut le faire, mais faudrait-il savoir quelle requête souhaites-tu avoir ?

Deux méthodes de bases :

Méthode "For Each" (Basée sur la Collection des WorkSheets)

Sub ScannerLesFeuilles_Methode_1()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    If WS.Range("A1") = "Toto" Then
        MyTest = MyTest & WS.Name & " Glop Glop" & vbCrLf
    Else
        MyTest = MyTest & WS.Name & " Pas Glop" & vbCrLf
    End If
Next WS
MsgBox MyTest
End Sub

Méthode "For X = 1 to y" (Basée sur les Index des WorkSheets)

Sub ScannerLesFeuilles_Methode_2()
Dim x As Byte
For x = 1 To ThisWorkbook.Worksheets.Count
    If Worksheets(x).Range("A1") = "Toto" Then
        MyTest = MyTest & Worksheets(x).Name & " Glop Glop" & vbCrLf
    Else
        MyTest = MyTest & Worksheets(x).Name & " Pas Glop" & vbCrLf
    End If
Next x
MsgBox MyTest
End Sub

Bon Appétit

@+Thierry
​