Créer un message d'erreur

bbb38

XLDnaute Accro

• 8 Février 2011

• #2

Re : Créer un message d'erreur

Bonjour ipotez, le forum,

A tester. Je pense qu'il y a plus simple.
Sub Clicmail()
If Range("K3:M3").Value ="" Then
MsgBox "La cellule n'est pas renseignée"
Exit Sub
Else
Range("K3:M3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
End Sub

Cordialement,
Bernard

 

Vote positif 0 Vote négatif

I

ipotez

XLDnaute Occasionnel

• 8 Février 2011

• #3

Re : Créer un message d'erreur

Bonjour Bernard et merci pour ton aide.

Quelque chose ne lui plaît pas. La macro bugue à la 1ère ligne

Code:

If Range("K3:M3").Value = "" Then

😕😕😕

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Février 2011

• #4

Re : Créer un message d'erreur

bonjour,

essaye peut être ceci, si j'ai bien compris, pas sûr :

Code:

If Application.CountA(Range("K3:M3")) = 0 Then MsgBox "aucune valeur dans la plage"

bon après midi
@+

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 8 Février 2011

• #5

Re : Créer un message d'erreur

Bonjour,
Gestion d'erreur à adapter :

Code:

Range("K3:M3").Select
Err.Clear
On Error Resume Next
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
If Err = 9 Then MsgBox "Liens non renseignés"

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 8 Février 2011

• #6

Re : Créer un message d'erreur

Bonsoir,

pour éviter le "on error resume next" :

Code:

If Range("K3:M3").Hyperlinks.Count > 0 Then

mais vois mal la résolution d'un lien qui serait sur plage multiple...

bonne soirée
@+

 

Vote positif 0 Vote négatif

Hippolite

XLDnaute Accro

• 8 Février 2011

• #7

Re : Créer un message d'erreur

Bonsoir,

mais vois mal la résolution d'un lien qui serait sur plage multiple...

Cliquez pour agrandir...

Si tu fais quelques essais, tu verras qu'il n'y a pas un lien sur plage multiple mais plage multiple de liens.
Hyperlinks(1) appelle le lien de K3
Hyperlinks(2) appelle le lien de L3
Hyperlinks(3) appelle le lien de M3

D'où la suggestion d'adapter le code pour désigner la cellule défaillante.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 9 Février 2011

• #8

Re : Créer un message d'erreur

Bonjour,

Heu, perso pas pu tester, pas de fichier avec modèle de donnée....

Bonne journée
@+

 

Vote positif 0 Vote négatif