Visual basic

bonjour
nous sommes tous débutants ... ;-)

as tu pensé à passer par l'enregistreur de macros ?

sinon essaye d'explorer cette instruction
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:="http://www.xxx.zz", TextToDisplay:="texte à afficher"

et n'oublie pas la touche magique ... F1

bruno -- bdf

Débutant en visual basic
Voilà j’ai un petit problème que je voudrais vous soumettre. J’ai créé un
lien HYPERTEXTE et je voudrais créer une macro qui puisse le faire seul.
Merci par avance

Bonjour

Avec ceci à mettre dans le code de la feuille

et ensuite cliquer dans la colonne B

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim jojo As Hyperlink
Dim LienEstIl As Boolean
Dim pass, adresse, titre_du_document
LienEstIl = True
If ActiveCell.Column <> 2 Then Exit Sub
On Error GoTo PasDeLien
Set jojo = ActiveCell.Hyperlinks(1)
On Error GoTo 0
If LienEstIl Then
Exit Sub
Else
On Error Resume Next
pass = MsgBox("Voulez-vous que cette cellule est un lien Hypertexte
O/N", vbInformation + vbYesNo, "Question")
If pass = vbYes Then
adresse = InputBox("Adresse", "Mettre l' adresse du lien",
"document_word")
titre_du_document = ActiveCell.Value
If titre_du_document = "" Then
titre_du_document = InputBox("Titre", "Mettre un Titre",
"Mon titre")
End If
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:­resse, _
TextToDisplay:=titre_du_document
Else
Exit Sub
End If
End If
Exit Sub
PasDeLien:
LienEstIl = False
Resume Next
End Sub

Débutant en visual basic
Voilà j’ai un petit problème que je voudrais vous soumettre. J’ai créé un
lien HYPERTEXTE et je voudrais créer une macro qui puisse le faire seul.
Merci par avance