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,
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
Unload Me
ActiveSheet.Protect
End Sub
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,
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
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
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
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 -
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" <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 -
- Afficher le texte des messages précédents -
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 -
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,
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
Unload Me
ActiveSheet.Protect
End Sub
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,
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
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
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