Bug sur Ubound aprés Array

Bonjour à tous,

Je comprends pas pourquoi il bute ici alors que c'est dans la procédure.

le fichier qui me sert de modéle :

Merci de votre aide

Bonjour fronck,

Une idée est que la variable Adr devrait être déclarée en Variant et non en Range.

Bonjour Antoine,

Merci pour ra réponse.

Cà n'a pas foctionné avec mon exemple, mais j'ai trouvé une autre solution.

Par contre çà a bien fonctionné avec le cours ici sur les array :

Dim tableau As Variant, n As Integer
tableau = Array("www", "excel-pratique", "com")

    'Affichage des éléments individuellement
    MsgBox tableau(0) 'Renvoie : www
    MsgBox tableau(1) 'Renvoie : excel-pratique
    MsgBox tableau(2) 'Renvoie : com

    For n = 0 To UBound(tableau)
    Next

Cdt

Bonsoir Fronck,

Faire plutôt lorsque les valeurs dans l'Array sont des chiffres ou nombres et non du texte ("A1","A2", etc...)

For n = 0 To UBound(Adr)
ws.Cells(adr(n), 1) = Adr(n)
    Next

Cells implique des valeurs numériques pour ligne , colonne.