Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
bonjour,
J'ai transformé une procédure écrite originalement par J.E.McGimpsey,Office/Mac MVP .
'--------------------------------------- Sub SearchAllSheets() 'J.E.McGimpsey,Office/Mac MVP
Dim strSearchString As String Dim ws As Worksheet Dim foundCell As Range Dim loopAddr As String Dim counter As Long
strSearchString = InputBox(Prompt:= _ "Entrez la chaîne recherchée.", _ Title:="Recherche") counter = 0 For Each ws In Worksheets With ws Set foundCell = .Cells.Find( _ What:=strSearchString, _ LookIn:=xlValues, _ LookAt:=xlPart) If foundCell Is Nothing Then loopAddr = loopAddr & ws.Name & vbCrLf counter = counter + 1 End If End With Next ws
"Help Me" a écrit dans le message de news: 425aa867$0$28390$ Bonjour à tous.
j'aimerai faire une recherche dans un classeur pour savoir quelle feuille ne contient pas les mots suivants :"arbre dynamique".
est-ce que vous auriez une idée pour aider un modeste petit scarabee comme moi qui ne connait pas trop le vba ?
En vous remerciant d'avance de votre aide à tous
Michel
bonjour,
J'ai transformé une procédure écrite originalement par J.E.McGimpsey,Office/Mac MVP .
'---------------------------------------
Sub SearchAllSheets()
'J.E.McGimpsey,Office/Mac MVP
Dim strSearchString As String
Dim ws As Worksheet
Dim foundCell As Range
Dim loopAddr As String
Dim counter As Long
strSearchString = InputBox(Prompt:= _
"Entrez la chaîne recherchée.", _
Title:="Recherche")
counter = 0
For Each ws In Worksheets
With ws
Set foundCell = .Cells.Find( _
What:=strSearchString, _
LookIn:=xlValues, _
LookAt:=xlPart)
If foundCell Is Nothing Then
loopAddr = loopAddr & ws.Name & vbCrLf
counter = counter + 1
End If
End With
Next ws
J'ai transformé une procédure écrite originalement par J.E.McGimpsey,Office/Mac MVP .
'--------------------------------------- Sub SearchAllSheets() 'J.E.McGimpsey,Office/Mac MVP
Dim strSearchString As String Dim ws As Worksheet Dim foundCell As Range Dim loopAddr As String Dim counter As Long
strSearchString = InputBox(Prompt:= _ "Entrez la chaîne recherchée.", _ Title:="Recherche") counter = 0 For Each ws In Worksheets With ws Set foundCell = .Cells.Find( _ What:=strSearchString, _ LookIn:=xlValues, _ LookAt:=xlPart) If foundCell Is Nothing Then loopAddr = loopAddr & ws.Name & vbCrLf counter = counter + 1 End If End With Next ws
"Help Me" a écrit dans le message de news: 425aa867$0$28390$ Bonjour à tous.
j'aimerai faire une recherche dans un classeur pour savoir quelle feuille ne contient pas les mots suivants :"arbre dynamique".
est-ce que vous auriez une idée pour aider un modeste petit scarabee comme moi qui ne connait pas trop le vba ?
En vous remerciant d'avance de votre aide à tous
Michel
anonymousA
bonjour
For Each f In Worksheets With f.Cells Set c = .Find(What:="arbre dynamique") 'attention, si on 'veut que la 'recherche ne 'porte que sur l'élément exact ,il faut écrire What:=tampon,lookat:=xlwhole If c Is Nothing Then texte = texte & "/" & f.Name End With Next MsgBox "le texte recherché n'apparait pas dans les feuilles " & texte
A+
Bonjour à tous.
j'aimerai faire une recherche dans un classeur pour savoir quelle feuille ne contient pas les mots suivants :"arbre dynamique".
est-ce que vous auriez une idée pour aider un modeste petit scarabee comme moi qui ne connait pas trop le vba ?
En vous remerciant d'avance de votre aide à tous
Michel
bonjour
For Each f In Worksheets
With f.Cells
Set c = .Find(What:="arbre dynamique") 'attention, si on
'veut que la 'recherche ne
'porte que sur l'élément exact ,il faut écrire
What:=tampon,lookat:=xlwhole
If c Is Nothing Then texte = texte & "/" & f.Name
End With
Next
MsgBox "le texte recherché n'apparait pas dans les feuilles " & texte
A+
Bonjour à tous.
j'aimerai faire une recherche dans un classeur pour savoir quelle feuille ne
contient pas les mots suivants :"arbre dynamique".
est-ce que vous auriez une idée pour aider un modeste petit scarabee comme
moi qui ne connait pas trop le vba ?
For Each f In Worksheets With f.Cells Set c = .Find(What:="arbre dynamique") 'attention, si on 'veut que la 'recherche ne 'porte que sur l'élément exact ,il faut écrire What:=tampon,lookat:=xlwhole If c Is Nothing Then texte = texte & "/" & f.Name End With Next MsgBox "le texte recherché n'apparait pas dans les feuilles " & texte
A+
Bonjour à tous.
j'aimerai faire une recherche dans un classeur pour savoir quelle feuille ne contient pas les mots suivants :"arbre dynamique".
est-ce que vous auriez une idée pour aider un modeste petit scarabee comme moi qui ne connait pas trop le vba ?
En vous remerciant d'avance de votre aide à tous
Michel
Help me
c'est super Merci à vous
Michel
"MichDenis" a écrit dans le message de news: %
bonjour,
J'ai transformé une procédure écrite originalement par J.E.McGimpsey,Office/Mac MVP .
'--------------------------------------- Sub SearchAllSheets() 'J.E.McGimpsey,Office/Mac MVP
Dim strSearchString As String Dim ws As Worksheet Dim foundCell As Range Dim loopAddr As String Dim counter As Long
strSearchString = InputBox(Prompt:= _ "Entrez la chaîne recherchée.", _ Title:="Recherche") counter = 0 For Each ws In Worksheets With ws Set foundCell = .Cells.Find( _ What:=strSearchString, _ LookIn:=xlValues, _ LookAt:=xlPart) If foundCell Is Nothing Then loopAddr = loopAddr & ws.Name & vbCrLf counter = counter + 1 End If End With Next ws
"Help Me" a écrit dans le message de news: 425aa867$0$28390$ Bonjour à tous.
j'aimerai faire une recherche dans un classeur pour savoir quelle feuille ne contient pas les mots suivants :"arbre dynamique".
est-ce que vous auriez une idée pour aider un modeste petit scarabee comme moi qui ne connait pas trop le vba ?
En vous remerciant d'avance de votre aide à tous
Michel
c'est super
Merci à vous
Michel
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23P4ESKsPFHA.2824@TK2MSFTNGP10.phx.gbl...
bonjour,
J'ai transformé une procédure écrite originalement par
J.E.McGimpsey,Office/Mac MVP .
'---------------------------------------
Sub SearchAllSheets()
'J.E.McGimpsey,Office/Mac MVP
Dim strSearchString As String
Dim ws As Worksheet
Dim foundCell As Range
Dim loopAddr As String
Dim counter As Long
strSearchString = InputBox(Prompt:= _
"Entrez la chaîne recherchée.", _
Title:="Recherche")
counter = 0
For Each ws In Worksheets
With ws
Set foundCell = .Cells.Find( _
What:=strSearchString, _
LookIn:=xlValues, _
LookAt:=xlPart)
If foundCell Is Nothing Then
loopAddr = loopAddr & ws.Name & vbCrLf
counter = counter + 1
End If
End With
Next ws
J'ai transformé une procédure écrite originalement par J.E.McGimpsey,Office/Mac MVP .
'--------------------------------------- Sub SearchAllSheets() 'J.E.McGimpsey,Office/Mac MVP
Dim strSearchString As String Dim ws As Worksheet Dim foundCell As Range Dim loopAddr As String Dim counter As Long
strSearchString = InputBox(Prompt:= _ "Entrez la chaîne recherchée.", _ Title:="Recherche") counter = 0 For Each ws In Worksheets With ws Set foundCell = .Cells.Find( _ What:=strSearchString, _ LookIn:=xlValues, _ LookAt:=xlPart) If foundCell Is Nothing Then loopAddr = loopAddr & ws.Name & vbCrLf counter = counter + 1 End If End With Next ws
