XL 2016 Recherche Youtube

fanch55 à dit:

Bonjour
Code à mettre dans le module Thisworkbook :

VB:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Sh.Name <> "REPERTOIRE" Then
        ' ? Partie pour la colonne B (colonne 2) à partir de la ligne 3
        If Target.Column = 2 And Target.Row > 2 Then
            If Not IsEmpty(Target.Value) Then
                Dim searchTerm As String
                searchTerm = """" & Target.Value & """ """ & Target.Offset(, 1).Value & """" ' B + C
                Dim searchURL As String
                searchURL = "https://www.youtube.com/results?search_query=" & WorksheetFunction.EncodeURL(searchTerm)
                ' searchURL = "https://www.google.com/search?q=" & WorksheetFunction.EncodeURL(searchTerm)
               
                ThisWorkbook.FollowHyperlink searchURL
                Cancel = True
                Exit Sub
            End If
        End If
   
        ' ? Si double clic ailleurs, empêcher l'édition
        Cancel = True
    End If
End Sub

Cliquez pour agrandir...