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 JB qui fonctionne avec Excel 2000 mais pas avec Excel 97 ?

Procédure de JB qui fonctionne avec Excel 2000 mais pas avec Excel 97 ?

10 réponses
Avatar
Didier NOVARIN
Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne fonctionne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub
Signaler un problème avec ce contenu

10 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,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:
Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne fonction ne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
                Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
                TextToDisplay:=s.Name
                ligne = ligne + 1
            End If
        End With
    Next s
End Sub


Avatar
Philippe.R
Bonjour,
Pour ce qui me concerne, j'obtiens au lancement de la macro le message
suivant :
"Des erreurs se sont produites au cours du chargement" (de l'UF qui est
cependant affiché)
et la procédure bloque ensuite sur cette ligne :
Sheets("temp").Hyperlinks.Add Anchor:=Sheets("temp").Cells(ligne,
1), Address:="", SubAddress:="'" & s.Name & "'" & "!A1",
TextToDisplay:=s.Name

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"JB" a écrit dans le message de
news:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:
Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne fonctionne
pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub


Avatar
JB
Il faut supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:



Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne foncti onne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
                Address:="", SubAddress:="'" & s.Nam e & "'" & "!A1", _
                TextToDisplay:=s.Name
                ligne = ligne + 1
            End If
        End With
    Next s
End Sub- Masquer le texte des messages précédents -


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



Avatar
Didier NOVARIN
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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

Il faut supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:



Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne fonctionne
pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub- Masquer le texte des messages précédents -


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



Avatar
Didier NOVARIN
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier


"Didier NOVARIN" a écrit dans le message
de news:
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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

Il faut supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:



Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne
fonctionne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub- Masquer le texte des messages précédents -


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







Avatar
JB
Bonjour,

http://cjoint.com/?dmsDsYuoL1

JB



On 12 mar, 18:00, "Didier NOVARIN"
wrote:
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier

"Didier NOVARIN" a écrit dans le messa ge
denews: eW4clSegIHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z__@ TK2MSFTNGP05.phx.gbl...



Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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

Il faut  supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:

Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne
fonctionne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub- 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 -





Avatar
Didier NOVARIN
Bonjour,
Par rapport à la procédure de départ, cela n'a plus rien à voir... ;-)
Je souhaite garder sur la feuille temp mon bouton ainsi
Cela plante sur Excel 2000
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:=Sheets("Temp").Cells(ligne, 1),Address:="", SubAddress:="'" & s.Name
& "'" & "!A1"
ligne = ligne + 1
End If
End With
Next s
End Sub



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

Bonjour,

http://cjoint.com/?dmsDsYuoL1

JB



On 12 mar, 18:00, "Didier NOVARIN"
wrote:
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier

"Didier NOVARIN" a écrit dans le message
denews:
eW4clSegIHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$



Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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

Il faut supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:

Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne
fonctionne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub- 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 -





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

JB

On 12 mar, 19:35, "Didier NOVARIN"
wrote:
Bonjour,
Par rapport à la procédure de départ, cela n'a plus rien à voir... ;-)
Je souhaite garder sur la feuille temp mon bouton ainsi
Cela plante sur Excel 2000
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:=Sheets("Temp").Cells(ligne, 1),Address:="", SubAddress:="'" & s.Name
& "'" & "!A1"
               ligne = ligne + 1
            End If
        End With
    Next s
End Sub

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

Bonjour,

http://cjoint.com/?dmsDsYuoL1

JB

On 12 mar, 18:00, "Didier NOVARIN"
wrote:



Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier

"Didier NOVARIN" a écrit dans le mes sage
denews:
eW4clSegIHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7! TNGP05.phx.gbl...

Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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

Il faut supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:

Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne
fonctionne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub- 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 -






Avatar
Didier NOVARIN
Ok, cela fonctionne parfaitement !
Je teste demain avec Excel 97
Encore merci
To be continued ,-)
Didier

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

http://cjoint.com/?dmt4LXs4ph

JB

On 12 mar, 19:35, "Didier NOVARIN"
wrote:
Bonjour,
Par rapport à la procédure de départ, cela n'a plus rien à voir... ;-)
Je souhaite garder sur la feuille temp mon bouton ainsi
Cela plante sur Excel 2000
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:=Sheets("Temp").Cells(ligne, 1),Address:="", SubAddress:="'" &
s.Name
& "'" & "!A1"
ligne = ligne + 1
End If
End With
Next s
End Sub

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

Bonjour,

http://cjoint.com/?dmsDsYuoL1

JB

On 12 mar, 18:00, "Didier NOVARIN"
wrote:



Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier

"Didier NOVARIN" a écrit dans le
message
denews:
eW4clSegIHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!

Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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

Il faut supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:

Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne
fonctionne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub- 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 -- Masquer le texte des
messages précédents -


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






Avatar
Didier NOVARIN
Mille merci
Cela fonctionne parfaitement avec Excel 97 !
Bravo et merci
Didier

"Didier NOVARIN" a écrit dans le message
de news: 47d83504$0$21143$
Ok, cela fonctionne parfaitement !
Je teste demain avec Excel 97
Encore merci
To be continued ,-)
Didier

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

http://cjoint.com/?dmt4LXs4ph

JB

On 12 mar, 19:35, "Didier NOVARIN"
wrote:
Bonjour,
Par rapport à la procédure de départ, cela n'a plus rien à voir... ;-)
Je souhaite garder sur la feuille temp mon bouton ainsi
Cela plante sur Excel 2000
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:=Sheets("Temp").Cells(ligne, 1),Address:="", SubAddress:="'" &
s.Name
& "'" & "!A1"
ligne = ligne + 1
End If
End With
Next s
End Sub

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

Bonjour,

http://cjoint.com/?dmsDsYuoL1

JB

On 12 mar, 18:00, "Didier NOVARIN"
wrote:



Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier

"Didier NOVARIN" a écrit dans le
message
denews:
eW4clSegIHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!

Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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

Il faut supprimer TextToDisplay

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

JB

On 9 mar, 07:32, JB wrote:
Bonjour,

Je n'ai plus la version 97. Voici le fichier pour celui qui pourrait
tester en V97.

http://cjoint.com/?djhDUi8QZ7

JB

On 8 mar, 23:09, "Didier NOVARIN"
wrote:

Bonsoir,
Cette procédure fonctionne très bien avec Excel 2000, mais ne
fonctionne pas
ave Excel 97 !
Alors qu'il n'y a même pas de message d'erreur ?
Comment puis-je la faire fonctionner avec Excel 97 ?
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:=Sheets("Temp").Cells(ligne, 1), _
Address:="", SubAddress:="'" & s.Name & "'" & "!A1", _
TextToDisplay:=s.Name
ligne = ligne + 1
End If
End With
Next s
End Sub- 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 -- Masquer le texte des
messages précédents -


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