qui va me chercher si une donnée de la feuille "rech" existe dans les autres feuilles du classeur excel
dim f as worksheet for each f in worksheets if f.name <> "rech" then ' toute feuille traitée dans ce bloc if sera donc autre que la feuille "rech" end if next
Sub rechercher() i = 5 essai = Sheets("rech").Range("B" & i).Text While essai <> "" 'selection des feuilles ou il faut chercher Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "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", "49", "50", "51", "52")).Select Set c = Cells.Find(what:=essai, After:=ActiveCell, LookIn:=xlFormulas, _ lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If c Is Nothing Then Sheets("rech").Range("C" & i).Value = "pas programmée" i = i + 1 Else c.Activate nomfeuille = ActiveSheet.Name i = i + 1 End If essai = Sheets("rech").Range("B" & i).Text Wend End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub recherche2() Dim essai As String Dim Ws As Worksheet i = 5 essai = Sheets("rech").Range("B" & i).Text While essai <> "" For Each Ws In Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "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", "49", "50", "51", "52")) Set cel = Ws.Cells.Find(what:=essai, LookIn:=xlValues, lookat:=xlWhole) If cel Is Nothing Then Sheets("rech").Range("C" & i).Value = "pas programmée" Else Sheets("rech").Range("C" & i).Value = Ws.Name Exit For End If Next Ws i = i + 1 essai = Sheets("rech").Range("B" & i).Text Wend End Sub