Re : "chercher-remplacer" 1 chaine de caractère pr modifier l'adresses de liens hyper
Bonsoir kjin
Merci beaucoup pour ton code.
Ca fonctionne.
Cependant j'ai voulu enjoliver le tout en créant un userforme qui à priori fonctionne (c'est mon tout premier userform) afin d'ouvrir une commande pour pouvoir demander la chaine de recherche (txt1) et la chaine de remplacement (txt2).
Ensuite, je voulais qu'il face la recherche et m'indique combien de lien il a trouvé contenant (txt1), et me demande de confirmer le remplacement par (txt2).
Puis enfin, un dernier message confirmant l'action de remplacement.
J'ai donc le code suivant :
Sub essai_chgt_lien()
txt1 = Range("B1").Value
txt2 = Range("C1").Value
compteur = 0
For Each lnk In ActiveSheet.Hyperlinks
If lnk.Type = 1 And InStr(lnk.Address, txt1) Then
lnk.Address = Replace(lnk.Address, txt1, txt1)
compteur = compteur + 1
End If
Next
Reponse = MsgBox(Prompt:="Il y a [ " & compteur & " ] liens hypertextes dans lesquels la chaine [ " & _
txt1 & " ] a été trouvé. Voulez-vous la remplacer par [ " & txt2 & " ]? ", Title:="Résultat de la recherche des liens hypertextes :", Buttons:=vbYesNo)
compteur = 0
If Reponse = Yes Then
For Each lnk In ActiveSheet.Hyperlinks
If lnk.Type = 1 And InStr(lnk.Address, txt1) Then
lnk.Address = Replace(lnk.Address, txt1, txt2)
compteur = compteur + 1
End If
Next
Reponse = MsgBox(Prompt:="Il y a [ " & compteur & " ] liens hypertextee dans lesquels la chaine [ " & _
txt1 & " ] a été trouvés puis remplacé par [ " & txt2 & " ].", Title:="Résultat du remplaçement des liens hypertextes :")
End If
Range("B1").Value = ""
Range("C1").Value = ""
End Sub
'code de mon bouton actionnant mon userform
Private Sub CommandButton1_Click()
UserForm1.Show
If Range("B1").Value <> "" Then
essai_chgt_lien
End If
End Sub
'code dans les bouton du userforme :
Private Sub CommandButton1_Click()
With Feuil5
.Range("B1").Value = TextBox1
.Range("C1").Value = TextBox2
End With
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Voila, après tout ça , et bien ça ne fonctionne plus
Enfin le code se déroule mais il ne trouve plus de liens comportant txt1 (alors qu'il y en a ) ....
Si tu pouvais me dire ce qui cloche dans mon code ... s'il te plait ...
En te remerciant,
Fox