Bonjour toutes et tous
une idée avec un double clic gauche de la souris sur la cellule C40 de ta feuil1
mettre le code dans la feuil1 (worksheet)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'déclaration d'une variable en tant que chaine de caractères
Dim resultat As String
If Not Application.Intersect(Target, Range("c40")) Is Nothing Then
With Sheets("feuil1")
resultat = InputBox("Saisissez votre lien hypertexte ?", "Exemple: https://www.google.fr") 'Affichage d' l'inputbox pour écrire dans la variable
If resultat <> "" Then 'Si la valeur est différente de rien, on affiche le résultat
Range("c40") = resultat
Else
MsgBox "Annulé par l'utilisateur"
End If
End With
End If
End Sub
@ tester
crdlt,
André