Récupérer référence cellule

[indoflo]

Bonjour,

Je cherche à savoir si une plage contient une cellule avec un problème de #ref! ou à récupérer l'adresse d'une cellule qui contient une erreur de #ref!.
Quel code VBA me permettrait d'obtenir cela?

Merci de votre aide

 

[kjin]

Re : Récupérer référence cellule

bonjour,

Dim rng As Range, c As Range, Adresse$
Set rng = Feuil1.UsedRange
With rng
    Set c = .Find("#REF")
    If Not c Is Nothing Then
        Adresse = c.Address
        Do
           x = x + 1
            msg = msg & c.Address & vbCr
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Adresse
    End If
End With
MsgBox "il y a " & x & " erreurs de référence en:" & vbCr & msg

A+
kjin