Hyperlink

[Neophale]

Bonjour je voudrais qu'avant d'enregistrer il y est une vérification dans la colonne G pour voir que toutes les valeurs soit des liens vers un site internet(hyperlink)

Exemple Google

J'ai testé ce code sans succès

l = 1
test2 = 1
Do
l = l + 1
If Cells(l, 7).Value = "" Then test2 = 2
Loop While Not test2 = 2

For i = 2 To l - 1
If Cells(i, 7).Value Is Not Hyperlink Then
msg = "Erreur adresse internet."
StyleBoîteDialogue = vbOKOnly + vbCritical And Title = "Erreur."
réponse = MsgBox(msg, StyleBoîteDialogue, Title)
Cells(i, 7).Select
GoTo fin
End If
Next i

La zone en gras affiche une erreur d'objet

 

[Softmama]

Re : Hyperlink

Bonsoir,

Tu peux entrer ce code à la place :

Sub hl()
Set c = Range("G1")
Do While c <> ""
If c.Hyperlinks.Count = 0 Then MsgBox "Pas d'adresse internet en " & c.Address
Set c = c(2, 1)
Loop
End Sub

 

[dionys0s]

Re : Hyperlink

Bonsoir tout le monde ^^

Je poste ma question à la suite puisqu'elle est reliée (un peu) :

J'ai la macro suivante pour envoyer un mail.

Le corps du message est ma variable Msg, et est le chemin d'accès d'un fichier excel.
La variable est correctement définie, mais dans le corps du message, elle se met en texte. Est-il possible de la mettre en lien Hypertext, pour que le destinataire du mail n'ait plus qu'à cliquer sur le lien ?

Sub EnvoiUnMail()

Dim MailAddress As String
Dim Msg As String
Dim Subj As String
Dim URLto As String

CheminValidation = Range("A5").Value & Nom & ".xls"
Msg = CheminValidation

Feuil9.Visible = False
Feuil1.Select

Subj = "Un nouveau bon de commande a été saisi et a besoin d'être vérifié. (" & Nom & ")"

URLto = "mailto:" & MailAddress & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub