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

Le
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
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 #5232011
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


Philippe.R
Le #5231991
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" 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


JB
Le #5231931
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
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 -



Didier NOVARIN
Le #5231791
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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



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


"Didier NOVARIN" de news:
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier

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







JB
Le #5184961
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" 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"
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
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 -





Didier NOVARIN
Le #5184851
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"
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" 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"
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
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 -





JB
Le #5183561
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"
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" 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"
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
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 -






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

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






Didier NOVARIN
Le #5230371
Mille merci
Cela fonctionne parfaitement avec Excel 97 !
Bravo et merci
Didier

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

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










Publicité
Poster une réponse
Anonyme