Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Procédure de recherche et de listage

Procédure de recherche et de listage

5 réponses
Avatar
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:=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
Signaler un problème avec ce contenu

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


Avatar
Didier NOVARIN
Parfait !!!!!!!!!!!!
Mille merci
Didier

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

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


Avatar
JB
http://cjoint.com/?cAsAjvcVra

JB

On 26 fév, 18:11, JB wrote:
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 -



Avatar
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


Avatar
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