Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Chercher puis trouver un mot et avoir la liste des feuilles...

Chercher puis trouver un mot et avoir la liste des feuilles...

10 réponses
Avatar
Didier NOVARIN
Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j'ai la liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
Avatar
JB
Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JB
http://boisgontierjacques.free.fr


On 28 sep, 18:16, "Didier NOVARIN"
wrote:
Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j'ai la liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier


Avatar
Didier NOVARIN
Merci beaucoup
C'est parfait !
Didier

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JB
http://boisgontierjacques.free.fr


On 28 sep, 18:16, "Didier NOVARIN"
wrote:
Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j'ai la
liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier


Avatar
MichDenis
J'espère que tu n'a pas de feuilles graphiques dans ton application,
sinon ta procédure va se planter tu devrais alors modifier ceci :

For Each s In ActiveWorkbook.Sheets

Pour
For Each s In ActiveWorkbook.workSheets

On peut remplacer ceci :
With Sheets(s.Name).Cells
Par
With S.Cells
Avatar
Didier NOVARIN
OK Merci beaucoup DEnis
Didier

"MichDenis" a écrit dans le message de news:

J'espère que tu n'a pas de feuilles graphiques dans ton application,
sinon ta procédure va se planter tu devrais alors modifier ceci :

For Each s In ActiveWorkbook.Sheets

Pour
For Each s In ActiveWorkbook.workSheets

On peut remplacer ceci :
With Sheets(s.Name).Cells
Par
With S.Cells





Avatar
chalo
Bonjour à tous
je rebondis sur ce fil pour demander une petite modification:
est il possible au lieu d'obtenir la liste des feuilles où se trouve
le mot d'obtenir des liens hypertextes pointant vers ces feuilles,
et , cerise sur le gâteau une fois que l'on clique sur ces liens
hypertextes d'avoir la cellule active où se trouve le mot en question
en focus?

Cela viendrait parfaitement compléter mon classeur qui crée des
onglets pour chaque jour d'un mois;
ce classeur sert à consigner des réservations de voyages et l'on peut
être amener à rechercher des items par cellules sur l'ensemble des
onglets(je ne sais pas si ctrl F fait l'affaire ici?)
Merci d'avance
Chalo

On 28 sep, 22:13, "Didier NOVARIN"
wrote:
Merci beaucoup
C'est parfait !
Didier

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 28 sep, 18:16, "Didier NOVARIN"
wrote:



Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j'ai la
liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
Bonjoue,

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Hyperlinks.Add Anchor:Îlls(ligne, 1),
Address:="", SubAddress:="'" & s.Name & "'" & "!A1",
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JB
http://boisgontierjacques.free.fr

On 2 oct, 15:26, chalo wrote:
Bonjour à tous
je rebondis sur ce fil pour demander une petite modification:
est il possible au lieu d'obtenir la liste des feuilles où se trouve
le mot d'obtenir des liens hypertextes pointant vers ces feuilles,
et , cerise sur le gâteau une fois que l'on clique sur ces liens
hypertextes d'avoir la cellule active où se trouve le mot en question
en focus?

Cela viendrait parfaitement compléter mon classeur qui crée des
onglets pour chaque jour d'un mois;
ce classeur sert à consigner des réservations de voyages et l'on peut
être amener à rechercher des items par cellules sur l'ensemble des
onglets(je ne sais pas si ctrl F fait l'affaire ici?)
Merci d'avance
Chalo

On 28 sep, 22:13, "Didier NOVARIN"
wrote:



Merci beaucoup
C'est parfait !
Didier

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhol e)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 28 sep, 18:16, "Didier NOVARIN"
wrote:

Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j'a i la
liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Didier NOVARIN
Bonsoir JB,
c'est parfait !
Mais une petite modif ;-)
En fait parfois le mot cherché n'est pas complet.
Ex : je souhaite avoir tous les SARL...
A la place de Textbox1, j'ai mis Mavar avec pour valeur
Mavar = "*" & Textbox1 & "*" mais cela ne fonctionne pas correctement
Merci beaucoup
Didier


"JB" a écrit dans le message de news:

Bonjoue,

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Hyperlinks.Add Anchor:Îlls(ligne, 1),
Address:="", SubAddress:="'" & s.Name & "'" & "!A1",
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JB
http://boisgontierjacques.free.fr

On 2 oct, 15:26, chalo wrote:
Bonjour à tous
je rebondis sur ce fil pour demander une petite modification:
est il possible au lieu d'obtenir la liste des feuilles où se trouve
le mot d'obtenir des liens hypertextes pointant vers ces feuilles,
et , cerise sur le gâteau une fois que l'on clique sur ces liens
hypertextes d'avoir la cellule active où se trouve le mot en question
en focus?

Cela viendrait parfaitement compléter mon classeur qui crée des
onglets pour chaque jour d'un mois;
ce classeur sert à consigner des réservations de voyages et l'on peut
être amener à rechercher des items par cellules sur l'ensemble des
onglets(je ne sais pas si ctrl F fait l'affaire ici?)
Merci d'avance
Chalo

On 28 sep, 22:13, "Didier NOVARIN"
wrote:



Merci beaucoup
C'est parfait !
Didier

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 28 sep, 18:16, "Didier NOVARIN"
wrote:

Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j'ai la
liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




Avatar
JB
Dans Find remplacer xlWhole par XlPart

Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)

JB


On 2 oct, 18:38, "Didier NOVARIN"
wrote:
Bonsoir JB,
c'est parfait !
Mais une petite modif ;-)
En fait parfois le mot cherché n'est pas complet.
Ex : je souhaite avoir tous les SARL...
A la place de Textbox1, j'ai mis Mavar avec pour valeur
Mavar = "*" & Textbox1 & "*" mais cela ne fonctionne pas correctement
Merci beaucoup
Didier

"JB" a écrit dans le message de news:

Bonjoue,

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Hyperlinks.Add Anchor:Îlls(ligne, 1),
Address:="", SubAddress:="'" & s.Name & "'" & "!A1",
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 2 oct, 15:26, chalo wrote:



Bonjour à tous
je rebondis sur ce fil pour demander une petite modification:
est il possible au lieu d'obtenir la liste des feuilles où se trouve
le mot d'obtenir des liens hypertextes pointant vers ces feuilles,
et , cerise sur le gâteau une fois que l'on clique sur ces liens
hypertextes d'avoir la cellule active où se trouve le mot en question
en focus?

Cela viendrait parfaitement compléter mon classeur qui crée des
onglets pour chaque jour d'un mois;
ce classeur sert à consigner des réservations de voyages et l'on pe ut
être amener à rechercher des items par cellules sur l'ensemble des
onglets(je ne sais pas si ctrl F fait l'affaire ici?)
Merci d'avance
Chalo

On 28 sep, 22:13, "Didier NOVARIN"
wrote:

Merci beaucoup
C'est parfait !
Didier

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWh ole)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 28 sep, 18:16, "Didier NOVARIN"
wrote:

Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j 'ai la
liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -





Avatar
Didier NOVARIN
C'est parfait !!!!
Absolument parfait
Un très grand merci
Très bonne soirée
Didier

"Didier NOVARIN" a écrit dans le message
de news:
Bonsoir JB,
c'est parfait !
Mais une petite modif ;-)
En fait parfois le mot cherché n'est pas complet.
Ex : je souhaite avoir tous les SARL...
A la place de Textbox1, j'ai mis Mavar avec pour valeur
Mavar = "*" & Textbox1 & "*" mais cela ne fonctionne pas correctement
Merci beaucoup
Didier


"JB" a écrit dans le message de news:

Bonjoue,

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Hyperlinks.Add Anchor:Îlls(ligne, 1),
Address:="", SubAddress:="'" & s.Name & "'" & "!A1",
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JB
http://boisgontierjacques.free.fr

On 2 oct, 15:26, chalo wrote:
Bonjour à tous
je rebondis sur ce fil pour demander une petite modification:
est il possible au lieu d'obtenir la liste des feuilles où se trouve
le mot d'obtenir des liens hypertextes pointant vers ces feuilles,
et , cerise sur le gâteau une fois que l'on clique sur ces liens
hypertextes d'avoir la cellule active où se trouve le mot en question
en focus?

Cela viendrait parfaitement compléter mon classeur qui crée des
onglets pour chaque jour d'un mois;
ce classeur sert à consigner des réservations de voyages et l'on peut
être amener à rechercher des items par cellules sur l'ensemble des
onglets(je ne sais pas si ctrl F fait l'affaire ici?)
Merci d'avance
Chalo

On 28 sep, 22:13, "Didier NOVARIN"
wrote:



Merci beaucoup
C'est parfait !
Didier

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 28 sep, 18:16, "Didier NOVARIN"
wrote:

Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j'ai la
liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -









Avatar
chalo
Superbe!merci encore une fois!
Chalo

On 2 oct, 16:18, JB wrote:
Bonjoue,

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Sheets("temp").Hyperlinks.Add Anchor:Îlls(ligne, 1),
Address:="", SubAddress:="'" & s.Name & "'" & "!A1",
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 2 oct, 15:26, chalo wrote:



Bonjour à tous
je rebondis sur ce fil pour demander une petite modification:
est il possible au lieu d'obtenir la liste des feuilles où se trouve
le mot d'obtenir des liens hypertextes pointant vers ces feuilles,
et , cerise sur le gâteau une fois que l'on clique sur ces liens
hypertextes d'avoir la cellule active où se trouve le mot en question
en focus?

Cela viendrait parfaitement compléter mon classeur qui crée des
onglets pour chaque jour d'un mois;
ce classeur sert à consigner des réservations de voyages et l'on pe ut
être amener à rechercher des items par cellules sur l'ensemble des
onglets(je ne sais pas si ctrl F fait l'affaire ici?)
Merci d'avance
Chalo

On 28 sep, 22:13, "Didier NOVARIN"
wrote:

Merci beaucoup
C'est parfait !
Didier

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?jCtLNDG6lA

Private Sub B_ok_Click()
If Me.TextBox1 = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Temp").Delete
On Error GoTo 0
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Temp"
'--
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlWh ole)
If Not c Is Nothing Then
Sheets("temp").Cells(ligne, 1) = s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JBhttp://boisgontierjacques.free.fr

On 28 sep, 18:16, "Didier NOVARIN"
wrote:

Bonsoir,
Je remercie JB pour sa procédure qui fonctionne très bien.
Je souhaite avoir une procédure avec un textbox sur un userform
Après saisi du mot recherché dans le textbox puis validation, j 'ai la
liste
des feuilles dans laquelle se trouve le mot recherché.
Je vous remercie
Didier- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -