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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4855811
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


Didier NOVARIN
Le #4855621
Merci beaucoup
C'est parfait !
Didier

"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


MichDenis
Le #4855541
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
Didier NOVARIN
Le #4855431
OK Merci beaucoup DEnis
Didier

"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





chalo
Le #4965161
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"
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 -



JB
Le #4965121
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
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"
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 -




Didier NOVARIN
Le #4964971
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"
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
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"
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 -




JB
Le #4964921
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"
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


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"
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 -





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

"Didier NOVARIN" 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"
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
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"
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 -









chalo
Le #4964391
Superbe!merci encore une fois!
Chalo

On 2 oct, 16:18, 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

JBhttp://boisgontierjacques.free.fr

On 2 oct, 15:26, 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 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"
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 -





Publicité
Poster une réponse
Anonyme