Discussion :

[bigs3232]

bonjour
j'ai un lien mail de google sur excel comme ceci

j'aimerais remplacer https par http mais bizarrement c'est impossible
bizarre non?
si vous avez une piste .merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For Each c In range(Selection.Address)
c.offset(0,1) = c.Value.Replace("https", "http")
Next c

[Philippe Tulliez]

Bonjour,
La syntaxe de la fonction Replace n'est pas bonne. Comme ceci c'est mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.Offset(0, 1) = Replace(c.Value, "https", "http")

Par contre, tu peux utiliser la méthode Replace de l'objet Range avec cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Replace "https", "http"

[bigs3232]

merci philippe
j'ai réussi à faire comme celà grace à ta 1er méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each c In range(Selection.Address)
i = i + 1
c.Value = Replace(c.Value, "https", "http")
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay:=text_deb & "-" & i  
Next c

mais pour la 2em methode on ferait comment avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Replace "https", "http"

[Philippe Tulliez]

Bonjour,
La première procédure utilise la fonction Replace, la seconde utilise la méthode Replace de l'objet Range qui est l'équivalent de la boîte de dialogue Chercher/Remplacer.
Donc pour l'utiliser, tu dois placer cette procédure nommée par exemple FindReplace dans un module quelconque.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub FindReplace()
 Selection.Replace "https", "http"
End Sub

Ensuite, tu sélectionnes la plage de données qui contient les adresses URL dont tu veux remplacer le mot https par http et enfin tu lances la procédure FindReplace.