bjr Michel, le forum
ActiveCell.Offset(0, 11).Value = Client.TextBox8.Value = Pas de lien
J'ai essayé d'adapter le code de thierry sans succès.
With Feuil1
ActiveCell.Offset(0, 11).Value = Client.TextBox8.Value
.Hyperlinks.Add .Range('A10'), Address:=('toto@free.fr')
End With
si je remplace a10 par activecell.Offset(0, 11) et l'adresse par TextBox8.Value ou text
2 erreurs se produisent
1 incompatibilite de type
2 objet ?? ai oublié la suite
si tu as une idée
Bon WE à tous