XL 2016 Ouvrir des lien hypertexte avec conditions en boucle

Acher12 · 9 Décembre 2023

Bonjour à vus tous,
Je soulicite votre aide pour créer une macro qui ouvre des fichiers (hyperlien) si la cellule en B contient "OUI"

je vous joins un fichier type.

D'avance merci pour votre aide

fanch55 · 9 Décembre 2023

Bonsoir,
Je pense que c'est la cellule en "D" et non "B"
A mettre dans un module du classeur et à exécuter :

VB:

Option Compare Text
Sub Suivre_Lien()
    Dim Ligne As Range, Lr As Range
    Set Lr = Cells(Rows.Count, "E").End(xlUp)
    For Each Ligne In Range("D5", Lr).Rows
        Select Case True
            Case Ligne.Cells(1) <> "Oui":       'rien
            Case Ligne.Hyperlinks.Count = 0:    ' rien
            Case Else: Ligne.Hyperlinks(1).Follow
        End Select
    Next
End Sub

XL 2016 Ouvrir des lien hypertexte avec conditions en boucle

Acher12

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

Discussions similaires

XL 2016 Ouvrir des lien hypertexte avec conditions en boucle

Acher12

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency