Bonjour,

Je souhaiterais pouvoir afficher dans une fenetre msgbox le contenu d'un tableau. Ce que j'ai fait ci dessous ne semble pas fonctionner...


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub TestVide()
Dim TB
Dim TB2
Dim i As Integer
Dim r As Integer
    TB = Array("G8", "G9", "G11", "G12", "G18", "G19", "G20", "G29", "G30", "G35", "G36", "G37", "H42", "H43", "H44", "K35", "L18", "L19", "L20", "L29", "O11", "O12", "P18", "P19", "P20", "P22", "P30", "Q42", "Q43", "R42")
 
    r = 0
 
    For i = 0 To UBound(TB)
 
            If Range(TB(i)) = "" Then
            TB2(r) = TB(i)
            End If
 
            r = r + 1
 
    Next i
 
    MsgBox TB2
 
    Exit Sub
End Sub
merci pour votre aide