Discussion :

[Rhubarb]

Bonjour,
Je souhaite trouver une macro qui permette de :
1) Rechercher dans toutes les cellules d’une feuille excel le terme « mv2.jpg »
2) Puis à chaque fois qu’une cellule avec ce contenu est trouvée la macro insère en préfixe du contenu de la cellule le terme: « https://static.wixstatic.com/media/ »

Je ne sais pas comment imbriquer find et l’ajout du préfixe.
Est-ce possible?
Merci!

[Invité]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Test()
 
Dim I As Long
Dim AireATester As Range
 
    Application.ScreenUpdating = False
    Set AireATester = ActiveSheet.UsedRange
    For I = 1 To AireATester.Count
        With AireATester(I)
             If .Hyperlinks.Count = 0 Then
                If InStr(1, .Value, "mv2.jpg", vbTextCompare) > 0 Then
                   ActiveSheet.Hyperlinks.Add Anchor:=AireATester(I), Address:="https://static.wixstatic.com/media/" & .Value, _
                                              TextToDisplay:="https://static.wixstatic.com/media/" & .Value
                End If
             End If
        End With
    Next I
    Set AireATester = Nothing
    Application.ScreenUpdating = True
 
End Sub

[Rhubarb]

Merci c'est exactement ce que je recherchais! je n'aurais pas pu le faire.

Question: et si je souhaite que la macro positionne le terme: " https://static.wixstatic.com/media/ " juste avant mv2.jpg pour que cela fasse: "https://static.wixstatic.com/media/mv2.jpg"?

[ChristianBosch]

Salut, pour la manipulation de chaine de caracteres en VBA je te conseille d'aller voir sur le site :

https://silkyroad.developpez.com/VBA...nesCaracteres/

Tu as un tas de fonctions et des exemples

A+

CB

[Rhubarb]

Oui merci j'ai trouvé avec ces informations!