Récuperer position X,Y d'un Find et donner le resultat

Question

Bonjour à tous

J'ai un petit programme qui fait la recherche d'un texte dans une feuille : "Consommation *".
Il fonctionne très bien sauf que la cellule que je voudrais qu'il m'affiche contient une formule qui n'est pas forcément "activer" : peut me donner ceci : #VALEUR!

Donc lorsque je lui demande de m'afficher le résultat, il me fait une erreur 13
Mis à part le "On Error resume next" (je ne suis pas du tout un adepte de cette déviation) .

Auriez vous une autre solution ?

Dans ma source il m'affiche volontairement le résultat de la colonne suivante (c = x.Column + 1)

Bonjour à tous

Sub Principale()
Dim x As Range, a As String, l As Integer, c As Integer

Set x = Cells.Find("Consommation *", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
    a = x.Address(0, 0)
    l = x.Row
    c = x.Column + 1
Lettre_col = Split(Cells(l, c).Address, "$")(1)
empl = Lettre_col & l
MsgBox Range(empl).Value
End If
End Sub

Merci pour votre aide

78chris · Accepted Answer

Les formules doivent anticiper les erreurs avec SIERREUR ou autre Toute erreur bloque les calculs suivants et comme tu le constates pose problème en VBA...