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:=Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
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
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" <didier.nova...@club-internet.fr>
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:=Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
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
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
Parfait !!!!!!!!!!!!
Mille merci
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
443e9609-19fc-42ec-97d2-2cee0c1b9866@j28g2000hsj.googlegroups.com...
Bonjour,
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" <didier.nova...@club-internet.fr>
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
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
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 -
http://cjoint.com/?cAsAjvcVra
JB
On 26 fév, 18:11, JB <boisgont...@hotmail.com> wrote:
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" <didier.nova...@club-internet.fr>
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:=Cells(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 -
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
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
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" <didier.nova...@club-internet.fr>
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:=Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
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
Merci beaucoup à toi ! Très bonne soirée Didier
"billy bob" a écrit dans le message de news:
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
Merci beaucoup à toi !
Très bonne soirée
Didier
"billy bob" <tremendousmoney@gmail.com> a écrit dans le message de news:
4222dbaa-4336-4eb9-a0a0-9e984a838417@n75g2000hsh.googlegroups.com...
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" <didier.nova...@club-internet.fr>
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
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
