Retourner l'adresse de cellules

Bonjour,

Je débute en VBA et travaille sur une macro dont une partie devra me retourner un msgbox avec l'adresse de cellules si celle-ci ne sont pas dans un fichier source.

Pour cela, j'ai pensé stocker les adresses des celulles "eronnée" dans un tableau seulement, je dois mal m'y prendre puisque cela ne fonctionne pas.

Voici une partie du code:

   For Each Cel In .Range(Colonne & Lignedebut & ":" & Colonne & Lignefin)

                 If Application.CountIf(col_ref, Cel) = 0 And Cel <> "" Then
                 For i = Lignedebut To Lignefin
                    Cel.Interior.Color = RGB(174, 0, 0) 
                    count = count + 1
                    tabl(i) = Cel.Address
                    Next
                 End If

             Next Cel

        If count <> "0" Then

        MsgBox  count & " celulles eronées" & "  Localisée en" & tabl(0) 

Merci à vous pour votre aide

Bonjour,

proposition de correction (non testée)

   For Each Cel In .Range(Colonne & Lignedebut & ":" & Colonne & Lignefin)

                 If Application.CountIf(col_ref, Cel) = 0 And Cel <> "" Then
                 For i = Lignedebut To Lignefin
                    Cel.Interior.Color = RGB(174, 0, 0) 
                    count = count + 1
                    tabl(count) = Cel.Address
                    msg=msg & vbcrlf & cel.address
                    Next
                 End If

             Next Cel

        If count> 0 Then

        MsgBox  count & " cellules erronées" & "  Localisées en" & msg

Parfait, Merci !

A noter pour les suivants: la boucle For i = Lignedebut To Lignefin n'est donc plus utile