Bonsoir,
J'ai un classeur avec de nombreuses feuilles environ 50
Je souhaite créer une procédure qui recherche un mot et m'indique les
feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox"
Je vous remercie
Didier
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
Patrick BASTARD
Bonjour, *Didier NOVARIN*
Edition, Rechercher, Toto Options, cocher dans Classeur, agrandir la boite de dialogue en hauteur Rechercher tout. Te convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
Bonjour, *Didier NOVARIN*
Edition, Rechercher,
Toto
Options,
cocher dans Classeur,
agrandir la boite de dialogue en hauteur
Rechercher tout.
Te convient-il ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'ai un classeur avec de nombreuses feuilles environ 50
Je souhaite créer une procédure qui recherche un mot et m'indique les
feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox"
Je vous remercie
Didier
Edition, Rechercher, Toto Options, cocher dans Classeur, agrandir la boite de dialogue en hauteur Rechercher tout. Te convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
Didier NOVARIN
Bonjour Patrick En fait, je souhaite avoir un message qui m'indique dans quelle feuille se trouve le mot recherché, J'ai seulement excel 97 Merci Didier
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Didier NOVARIN*
Edition, Rechercher, Toto Options, cocher dans Classeur, agrandir la boite de dialogue en hauteur Rechercher tout. Te convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
Bonjour Patrick
En fait, je souhaite avoir un message qui m'indique dans quelle feuille se
trouve le mot recherché, J'ai seulement excel 97
Merci
Didier
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message de news: eQT9bZTAIHA.4956@TK2MSFTNGP06.phx.gbl...
Bonjour, *Didier NOVARIN*
Edition, Rechercher,
Toto
Options,
cocher dans Classeur,
agrandir la boite de dialogue en hauteur
Rechercher tout.
Te convient-il ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'ai un classeur avec de nombreuses feuilles environ 50
Je souhaite créer une procédure qui recherche un mot et m'indique les
feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox"
Je vous remercie
Didier
Bonjour Patrick En fait, je souhaite avoir un message qui m'indique dans quelle feuille se trouve le mot recherché, J'ai seulement excel 97 Merci Didier
"Patrick BASTARD" a écrit dans le message de news:
Bonjour, *Didier NOVARIN*
Edition, Rechercher, Toto Options, cocher dans Classeur, agrandir la boite de dialogue en hauteur Rechercher tout. Te convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
JB
Bonsoir,
Sub chercheFindMultiFeuillesValeur() x = "ALPHA" For Each s In ActiveWorkbook.Sheets témoin = False With Sheets(s.Name).Cells Set c = .Find(x, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then témoin = True premier = c.Address Do c.Interior.ColorIndex = 4 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If End With If témoin Then MsgBox s.Name Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 sep, 19:28, "Didier NOVARIN" wrote:
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
Bonsoir,
Sub chercheFindMultiFeuillesValeur()
x = "ALPHA"
For Each s In ActiveWorkbook.Sheets
témoin = False
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
témoin = True
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
If témoin Then MsgBox s.Name
Next s
End Sub
JB
http://boisgontierjacques.free.fr
On 27 sep, 19:28, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonsoir,
J'ai un classeur avec de nombreuses feuilles environ 50
Je souhaite créer une procédure qui recherche un mot et m'indique les
feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox"
Je vous remercie
Didier
Sub chercheFindMultiFeuillesValeur() x = "ALPHA" For Each s In ActiveWorkbook.Sheets témoin = False With Sheets(s.Name).Cells Set c = .Find(x, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then témoin = True premier = c.Address Do c.Interior.ColorIndex = 4 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If End With If témoin Then MsgBox s.Name Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 sep, 19:28, "Didier NOVARIN" wrote:
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
JB
http://cjoint.com/?jBvIDyyudM
JB
On 27 sep, 20:58, "Didier NOVARIN" wrote:
Bonjour Patrick En fait, je souhaite avoir un message qui m'indique dans quelle feuille se trouve le mot recherché, J'ai seulement excel 97 Merci Didier
"Patrick BASTARD" a écrit dans le message denews: eQT9bZTAIHA.4__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$
Bonjour, *Didier NOVARIN*
Edition, Rechercher, Toto Options, cocher dans Classeur, agrandir la boite de dialogue en hauteur Rechercher tout. Te convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
http://cjoint.com/?jBvIDyyudM
JB
On 27 sep, 20:58, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonjour Patrick
En fait, je souhaite avoir un message qui m'indique dans quelle feuille se
trouve le mot recherché, J'ai seulement excel 97
Merci
Didier
"Patrick BASTARD" <pasdespambasta...@freepasdespam.fr> a écrit dans le
message denews: eQT9bZTAIHA.4__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$z__@TK2MSFTNGP06.phx.gbl...
Bonjour, *Didier NOVARIN*
Edition, Rechercher,
Toto
Options,
cocher dans Classeur,
agrandir la boite de dialogue en hauteur
Rechercher tout.
Te convient-il ?
--
Bien amicordialement,
P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir,
J'ai un classeur avec de nombreuses feuilles environ 50
Je souhaite créer une procédure qui recherche un mot et m'indique les
feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox"
Je vous remercie
Didier- Masquer le texte des messages précédents -
Bonjour Patrick En fait, je souhaite avoir un message qui m'indique dans quelle feuille se trouve le mot recherché, J'ai seulement excel 97 Merci Didier
"Patrick BASTARD" a écrit dans le message denews: eQT9bZTAIHA.4__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$
Bonjour, *Didier NOVARIN*
Edition, Rechercher, Toto Options, cocher dans Classeur, agrandir la boite de dialogue en hauteur Rechercher tout. Te convient-il ?
-- Bien amicordialement, P. Bastard
Avant d'imprimer ce mail, ayez une pensée pour les arbres.
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Didier NOVARIN
OK, Merci beaucoup Bonne soirée Didier
"JB" a écrit dans le message de news:
Bonsoir,
Sub chercheFindMultiFeuillesValeur() x = "ALPHA" For Each s In ActiveWorkbook.Sheets témoin = False With Sheets(s.Name).Cells Set c = .Find(x, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then témoin = True premier = c.Address Do c.Interior.ColorIndex = 4 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If End With If témoin Then MsgBox s.Name Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 sep, 19:28, "Didier NOVARIN" wrote:
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
OK,
Merci beaucoup
Bonne soirée
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1190920011.026447.235300@g4g2000hsf.googlegroups.com...
Bonsoir,
Sub chercheFindMultiFeuillesValeur()
x = "ALPHA"
For Each s In ActiveWorkbook.Sheets
témoin = False
With Sheets(s.Name).Cells
Set c = .Find(x, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
témoin = True
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End With
If témoin Then MsgBox s.Name
Next s
End Sub
JB
http://boisgontierjacques.free.fr
On 27 sep, 19:28, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonsoir,
J'ai un classeur avec de nombreuses feuilles environ 50
Je souhaite créer une procédure qui recherche un mot et m'indique les
feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox"
Je vous remercie
Didier
Sub chercheFindMultiFeuillesValeur() x = "ALPHA" For Each s In ActiveWorkbook.Sheets témoin = False With Sheets(s.Name).Cells Set c = .Find(x, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then témoin = True premier = c.Address Do c.Interior.ColorIndex = 4 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> premier End If End With If témoin Then MsgBox s.Name Next s End Sub
JB http://boisgontierjacques.free.fr
On 27 sep, 19:28, "Didier NOVARIN" wrote:
Bonsoir, J'ai un classeur avec de nombreuses feuilles environ 50 Je souhaite créer une procédure qui recherche un mot et m'indique les feuilles dans lesquelles le mot se trouve ex :toto
Résultat : toto se trouve dans la feuille "Alpha", "Bêta", "Fox" Je vous remercie Didier
