[XL-2003] afficher une liste de code dans une msgbox

Voilà la solution que j'ai réalisé, je redis encore merci au forum en général (bien que je préfère celui là)
J'ai fais une boucle en comptant le nombre de valeur et si c'était à 0 alors je renseigner un tableau virtuel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
Dim MonTableau(1000, 1) As String
 
Dim strMessage As String, Boucle As Integer
 
 
'vérification des OF qui ne sont pas dans la RAP
i = 5
n = 1
derniereligne = RESULTAT.Range("A65536").End(xlUp).Row
derniereligne2 = RAP.Range("A65536").End(xlUp).Row
derniereligne3 = RRET.Range("A65536").End(xlUp).Row
 
    For i = 5 To derniereligne Step 1
 
            If WorksheetFunction.CountIf(RAP.Range("A3:A" & derniereligne2), RESULTAT.Cells(i, 7)) = 0 Then
                If derniereligne3 > 5 Then
                    If WorksheetFunction.CountIf(RRET.Range("A6:A" & derniereligne3), RESULTAT.Cells(i, 7)) = 0 Then
 
                        MonTableau(n, 1) = RESULTAT.Cells(i, 7)
                        n = n + 1
 
                    End If
                Else
                        MonTableau(n, 1) = RESULTAT.Cells(i, 7)
                        n = n + 1
                End If
            End If
 
    Next i
    strMessage = "La liste des OF ci-dessous ne font pas partie de la RAP :"
 
    For Boucle = 1 To n
        strMessage = strMessage & vbCrLf & MonTableau(Boucle, 1)
    Next Boucle
 
    MsgBox strMessage

J'espère que ça vous aidera.
Bon courage,
Will