Contenu de celulle dans un tableau

Bjr, bjr

Je voudrais mettre dans un tableau le contenu de la plage D16 a D35 de ma feuille excel. Se sont des chaine de caractere. Pour l'instant j'ai que des message d'erreur ! J'ai trouvé ce code sur internet, je crois pas qu'ils soit adapté à ce que je veux! Peut être pourriez vous m'aidé a y voir plus claire. Merci

Dim c As Object 'je ne sais pas si le type convient
Dim tableau(20) As String
For Each c In Range("D16:D35")
tableau(c.Row - 1) = c.Value 'je ne comprend pas non + cette ligne
Next c

Bonjour,

pas besoin de boucle dans ton cas

Sub essai()
Dim tableau()
tableau = Range("D16:D35").Value
[F1:F20] = tableau
End Sub

J'ai oublié de préciser qu'aprés je traité se tableau, les chaines de caractere sont concaténés, séparé par des point virgule et mis dans une variable mail, de type chaine de caractère.

mail = Join(tableau, ";")

ca me dit argument ou appel de procédure incorrect

Alors que quant je détaille mon tableau case par case ca marche

Je m'explique,

tableau(0)=range("d16")

tableau(1)=range("d17")

Re-,

peut-être :

tableau = Range("D16:D35").Value
mail = Join(Application.Transpose(tableau), ";")

J'ai fait tout un micmac, mais bon ca marche, je sais pas si ca fait trés "pro" lol

    j = 16
    For i = 0 To 20
        If Range("D" & j) <> "" Then
            tableau(i) = Range("D" & j)
            j = j + 1
        End If
    Next i