Procédure de recherche et de listage

Le
Didier NOVARIN
Bonjour,
J'ai un fichier de plusieurs pages, et je souhaite créé un userform avec un
textbox dessus et un bouton_click
Une procédure qui me trouve les mots recherchés dans les feuilles, puis les
liste sur la feuille qui se nomme "Temp",
Je ne comprends pas pourquoi cette procédure ne fonctionne pas
Je vous remercie
Didier

Private Sub B_ok_Click()
If Trim(TextBox1) = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Mavar = Application.Trim(TextBox1)
ActiveSheet.Unprotect
Sheets("Temp").[A2:A200].ClearContents
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
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

Unload Me

ActiveSheet.Protect
End Sub
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 #5167591
Bonjour,

Sheets("Temp").Hyperlinks.Add
Anchor:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name


Il ne trouve que le premier mot. Pour tous les mots, il faut ajouter
une boucle.

Private Sub B_ok_Click()
If Trim(TextBox1) = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Mavar = Application.Trim(TextBox1)
ActiveSheet.Unprotect
Sheets("Temp").[A2:A200].ClearContents
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues,
LookAt:=xlPart)
If Not c Is Nothing Then
Sheets("Temp").Hyperlinks.Add
Anchor:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JB



On 26 fév, 17:56, "Didier NOVARIN" wrote:
Bonjour,
J'ai un fichier de plusieurs pages, et je souhaite créé un userform av ec un
textbox dessus et un bouton_click
Une procédure qui me trouve les mots recherchés dans les feuilles, pui s les
liste sur la feuille qui se nomme "Temp",
Je ne comprends pas pourquoi cette procédure ne fonctionne pas
Je vous remercie
Didier

Private Sub B_ok_Click()
   If Trim(TextBox1) = "" Then Exit Sub
   Application.DisplayAlerts = False
   On Error Resume Next
   Mavar = Application.Trim(TextBox1)
   ActiveSheet.Unprotect
   Sheets("Temp").[A2:A200].ClearContents
 ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
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

Unload Me

ActiveSheet.Protect
End Sub


Didier NOVARIN
Le #5167571
Parfait !!!!!!!!!!!!
Mille merci
Didier

"JB"
Bonjour,

Sheets("Temp").Hyperlinks.Add
Anchor:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name


Il ne trouve que le premier mot. Pour tous les mots, il faut ajouter
une boucle.

Private Sub B_ok_Click()
If Trim(TextBox1) = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Mavar = Application.Trim(TextBox1)
ActiveSheet.Unprotect
Sheets("Temp").[A2:A200].ClearContents
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues,
LookAt:=xlPart)
If Not c Is Nothing Then
Sheets("Temp").Hyperlinks.Add
Anchor:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub

JB



On 26 fév, 17:56, "Didier NOVARIN" wrote:
Bonjour,
J'ai un fichier de plusieurs pages, et je souhaite créé un userform avec
un
textbox dessus et un bouton_click
Une procédure qui me trouve les mots recherchés dans les feuilles, puis
les
liste sur la feuille qui se nomme "Temp",
Je ne comprends pas pourquoi cette procédure ne fonctionne pas
Je vous remercie
Didier

Private Sub B_ok_Click()
If Trim(TextBox1) = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Mavar = Application.Trim(TextBox1)
ActiveSheet.Unprotect
Sheets("Temp").[A2:A200].ClearContents
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
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

Unload Me

ActiveSheet.Protect
End Sub


JB
Le #5167541
http://cjoint.com/?cAsAjvcVra

JB

On 26 fév, 18:11, JB
Bonjour,

                Sheets("Temp").Hyperlinks.Add
Anchor:=Sheets("Temp").Cells(ligne, 1), _
                Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
                TextToDisplay:=s.Name

Il ne trouve que le premier mot. Pour tous les mots, il faut ajouter
une boucle.

Private Sub B_ok_Click()
   If Trim(TextBox1) = "" Then Exit Sub
   Application.DisplayAlerts = False
   On Error Resume Next
   Mavar = Application.Trim(TextBox1)
   ActiveSheet.Unprotect
   Sheets("Temp").[A2:A200].ClearContents
   ligne = 2
    For Each s In ActiveWorkbook.Sheets
        With Sheets(s.Name).Cells
            Set c = .Find(Me.TextBox1, LookIn:=xlValues,
LookAt:=xlPart)
            If Not c Is Nothing Then
                Sheets("Temp").Hyperlinks.Add
Anchor:=Sheets("Temp").Cells(ligne, 1), _
                Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
                TextToDisplay:=s.Name
                ligne = ligne + 1
            End If
        End With
    Next s
End Sub

JB

On 26 fév, 17:56, "Didier NOVARIN" wrote:



Bonjour,
J'ai un fichier de plusieurs pages, et je souhaite créé un userform avec un
textbox dessus et un bouton_click
Une procédure qui me trouve les mots recherchés dans les feuilles, p uis les
liste sur la feuille qui se nomme "Temp",
Je ne comprends pas pourquoi cette procédure ne fonctionne pas
Je vous remercie
Didier

Private Sub B_ok_Click()
   If Trim(TextBox1) = "" Then Exit Sub
   Application.DisplayAlerts = False
   On Error Resume Next
   Mavar = Application.Trim(TextBox1)
   ActiveSheet.Unprotect
   Sheets("Temp").[A2:A200].ClearContents
 ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
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

Unload Me

ActiveSheet.Protect
End Sub- Masquer le texte des messages précédents -


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



billy bob
Le #5239591
Bonjour,

est-ce que cela te conviendrait ?

Private Sub B_ok_Click()
If Trim(TextBox1) = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Mavar = Application.Trim(TextBox1)
ActiveSheet.Unprotect
Sheets("Temp").[A2:A200].ClearContents
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells

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

While Not c Is Nothing

If FirstAddress = "" Then FirstAddress = c.Address
Sheets("Temp").Hyperlinks.Add Anchor:=Sheets("Temp").Cells(ligne,
1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!" & c.Address, _
TextToDisplay:=s.Name & "!" & c.Address
ligne = ligne + 1
Set c = .FindNext(c)
If c.Address = FirstAddress Then Set c = Nothing

Wend
End With
Next s
Unload Me

End Sub


Billy Bob

On 26 fév, 17:56, "Didier NOVARIN" wrote:
Bonjour,
J'ai un fichier de plusieurs pages, et je souhaite créé un userform av ec un
textbox dessus et un bouton_click
Une procédure qui me trouve les mots recherchés dans les feuilles, pui s les
liste sur la feuille qui se nomme "Temp",
Je ne comprends pas pourquoi cette procédure ne fonctionne pas
Je vous remercie
Didier

Private Sub B_ok_Click()
   If Trim(TextBox1) = "" Then Exit Sub
   Application.DisplayAlerts = False
   On Error Resume Next
   Mavar = Application.Trim(TextBox1)
   ActiveSheet.Unprotect
   Sheets("Temp").[A2:A200].ClearContents
 ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
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

Unload Me

ActiveSheet.Protect
End Sub


Didier NOVARIN
Le #5239531
Merci beaucoup à toi !
Très bonne soirée
Didier



"billy bob"
Bonjour,

est-ce que cela te conviendrait ?

Private Sub B_ok_Click()
If Trim(TextBox1) = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Mavar = Application.Trim(TextBox1)
ActiveSheet.Unprotect
Sheets("Temp").[A2:A200].ClearContents
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells

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

While Not c Is Nothing

If FirstAddress = "" Then FirstAddress = c.Address
Sheets("Temp").Hyperlinks.Add Anchor:=Sheets("Temp").Cells(ligne,
1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!" & c.Address, _
TextToDisplay:=s.Name & "!" & c.Address
ligne = ligne + 1
Set c = .FindNext(c)
If c.Address = FirstAddress Then Set c = Nothing

Wend
End With
Next s
Unload Me

End Sub


Billy Bob

On 26 fév, 17:56, "Didier NOVARIN" wrote:
Bonjour,
J'ai un fichier de plusieurs pages, et je souhaite créé un userform avec
un
textbox dessus et un bouton_click
Une procédure qui me trouve les mots recherchés dans les feuilles, puis
les
liste sur la feuille qui se nomme "Temp",
Je ne comprends pas pourquoi cette procédure ne fonctionne pas
Je vous remercie
Didier

Private Sub B_ok_Click()
If Trim(TextBox1) = "" Then Exit Sub
Application.DisplayAlerts = False
On Error Resume Next
Mavar = Application.Trim(TextBox1)
ActiveSheet.Unprotect
Sheets("Temp").[A2:A200].ClearContents
ligne = 2
For Each s In ActiveWorkbook.Sheets
With Sheets(s.Name).Cells
Set c = .Find(Me.TextBox1, LookIn:=xlValues, LookAt:=xlPart)
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

Unload Me

ActiveSheet.Protect
End Sub


Publicité
Poster une réponse
Anonyme