msgBox + arguments d'un tableau

Version imprimable

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:

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

Salut,

Comme ca peut etre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Sub TestVide()
    Dim TB As Variant
    Dim Message As String
    Dim i 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")
 
    For i = 0 To UBound(TB)
        If Range(TB(i)) = "" Then
                Message = Message & vbCrLf & vbTab & TB(i)
        End If
    Next i
 
    MsgBox "Cellules sans valeur :" + Message
End Sub

++
Minick

19/05/2009, 10h48
magninde

Merci beaucoup!

Ca marche. Je ne connaissais pas cette fonction de msgbox!

Bonne journee.:P