Création d'une erreurbox

Bonsoir à tous,

j'ai réalisé une petite macro,

Elle s’arrête lorsqu'elle trouve un doublon, je ne comprend pas pourquoi mais cela m'arrange bien!

Du coup je voulais faire une message box pour signaler à l'utilisateur qu'elle était le doublon.

i = 0

cpt0 = 0

ReDim tab_entete(1, cpt0)

For Each WS In ThisWorkbook.Worksheets

If WS.Visible = xlSheetVisible Then

If Left(WS.Name, 4) = "ENC_" Or Left(WS.Name, 4) = "PCE_" Then

WS.Select

FdV_Denom2 = Range("FdV_Denom2").Value

FdV_Sonde = Range("FdV_Sonde").Value

FdV_Sonde2 = Range("FdV_Sonde2").Value

If FdV_Sonde <> "" Then

tab_entete(0, cpt0) = FdV_Denom2

tab_entete(1, cpt0) = FdV_Sonde

NC_Sondes.Add FdV_Sonde, FdV_Sonde

cpt0 = cpt0 + 1

ReDim Preserve tab_entete(1, cpt0)

If FdV_Sonde2 <> "" Then

tab_entete(0, cpt0) = FdV_Denom2

tab_entete(1, cpt0) = FdV_Sonde2

NC_Sondes.Add FdV_Sonde2, FdV_Sonde2

cpt0 = cpt0 + 1

ReDim Preserve tab_entete(1, cpt0)

End If

End If

End If

End If

Next

Je voudrais récupérer dans ma message box la valeur de FdV_Sonde ou de FdV_Sonde2 selon ou est le doublon, pour remplacer le message du debogueur, afin que les utilisateurs ne se retrouvent pas dans le code vba.

Avec une petite phrase du style : vous avez au moins 1 doublon de la sonde : "Valeur Fdv_Sonde/Fdv_Sonde2"

J'ai trouvé

MsgBox ActiveCell.Formula

vbExclamation

Merci d'avance pour vos idées.

j'ai résolu finalement mon probleme

j'ai mis au debut de mon code

On Error GoTo FIN

Puis à la fin

FIN: MsgBox "il y a un doublon pour la sonde : " & ActiveCell.Formula, vbExclamation, "Attention"

Exit Sub