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
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
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
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
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
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
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 -
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" <didier.nova...@club-internet.fr>
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 -
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 -
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 -
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" <didier.nova...@club-internet.fr>
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 -
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 -
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 -
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
4cbbe8a3-0afe-474e-9ebe-1046f3ef898f@p73g2000hsd.googlegroups.com...
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 <boisgont...@hotmail.com> 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" <didier.nova...@club-internet.fr>
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 -
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 -
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 -
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier
"Didier NOVARIN" <didier.nova...@club-internet.fr> 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" <boisgont...@hotmail.com> a écrit dans le message de news:
4cbbe8a3-0afe-474e-9ebe-1046f3ef8...@p73g2000hsd.googlegroups.com...
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 <boisgont...@hotmail.com> 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" <didier.nova...@club-internet.fr>
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 -
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 -
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 -
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier
"Didier NOVARIN" <didier.nova...@club-internet.fr> a écrit dans le message
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" <boisgont...@hotmail.com> a écrit dans le message de news:
4cbbe8a3-0afe-474e-9ebe-1046f3ef8...@p73g2000hsd.googlegroups.com...
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 <boisgont...@hotmail.com> 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" <didier.nova...@club-internet.fr>
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 -
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 -
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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
2f7860df-8cf4-4a30-9a52-485add715...@n36g2000hse.googlegroups.com...
Bonjour,
http://cjoint.com/?dmsDsYuoL1
JB
On 12 mar, 18:00, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier
"Didier NOVARIN" <didier.nova...@club-internet.fr> a écrit dans le mes sage
denews:
eW4clSegIHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSF TNGP05.phx.gbl...
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4cbbe8a3-0afe-474e-9ebe-1046f3ef8...@p73g2000hsd.googlegroups.com...
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 <boisgont...@hotmail.com> 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" <didier.nova...@club-internet.fr>
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 -
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 -
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 -
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" <boisgont...@hotmail.com> a écrit dans le message de news:
2f7860df-8cf4-4a30-9a52-485add715...@n36g2000hse.googlegroups.com...
Bonjour,
http://cjoint.com/?dmsDsYuoL1
JB
On 12 mar, 18:00, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier
"Didier NOVARIN" <didier.nova...@club-internet.fr> a écrit dans le
message
denews:
eW4clSegIHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSFTNGP05.phx.gbl...
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4cbbe8a3-0afe-474e-9ebe-1046f3ef8...@p73g2000hsd.googlegroups.com...
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 <boisgont...@hotmail.com> 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" <didier.nova...@club-internet.fr>
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 -
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 -
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 -
Ok, cela fonctionne parfaitement !
Je teste demain avec Excel 97
Encore merci
To be continued ,-)
Didier
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
63c442c7-f4f7-425f-a693-d9c5d0c67b07@e39g2000hsf.googlegroups.com...
http://cjoint.com/?dmt4LXs4ph
JB
On 12 mar, 19:35, "Didier NOVARIN" <didier.nova...@club-internet.fr>
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" <boisgont...@hotmail.com> a écrit dans le message de news:
2f7860df-8cf4-4a30-9a52-485add715...@n36g2000hse.googlegroups.com...
Bonjour,
http://cjoint.com/?dmsDsYuoL1
JB
On 12 mar, 18:00, "Didier NOVARIN" <didier.nova...@club-internet.fr>
wrote:
Bonjour JB et Philippe
Si je supprime TextToDisplay, il plante même avec Excel 2000
Didier
"Didier NOVARIN" <didier.nova...@club-internet.fr> a écrit dans le
message
denews:
eW4clSegIHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSFTNGP05.phx.gbl...
Bonjour
Je fais le test et vous tiens au courant
Encore merci
Didier
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4cbbe8a3-0afe-474e-9ebe-1046f3ef8...@p73g2000hsd.googlegroups.com...
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 <boisgont...@hotmail.com> 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" <didier.nova...@club-internet.fr>
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 -
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 -