XL 2016 VBA contenu TextBox dans tableau

[Shark_03]

Bonjour, j'ai deux TextBox pour lesquels je souhaite récupérer leurs contenu lorsqu'elles ne sont pas vides et les renseigner dans un tableau.
Je ne veux pas avoir à renseigner à chaque fois le nom de la Textbox.

Dim tableau() As Variant, i As Integer
    
    For i = 1 To 2
        If Not IsEmpty(Controls("TextBox" & i).Value) Then
            tableau(i) = TextBox(i).Value
        End If
    Next i

Merci pour votre aide.

 

[job75]

Bonjour Shark_03, bienvenue sur XLD,

Dim tableau(1 To 2), i As Byte
For i = 1 To 2
    If Me("TextBox" & i) <> "" Then tableau(i) = Me("TextBox" & i)
Next

Vous êtes sûr qu'il faut ne rien faire quand la TextBox est vide ?

A+

 

[Shark_03]

Bonjour Shark_03, bienvenue sur XLD,

Dim tableau(1 To 2), i As Byte
For i = 1 To 2
    If Me("TextBox" & i) <> "" Then tableau(i) = Me("TextBox" & i)
Next

Vous êtes sûr qu'il faut ne rien faire quand la TextBox est vide ?

A+

 

[Shark_03]

Bonjour job75, merci pour votre retour.
J'ai inséré votre code dans une procédure Sub du Module1 qui me retourne une erreur sur l'utilisation du mot clé Me.
Si je comprends Me doit être placé dans la UserForm TextBox_Change et remplace son nom.

 

[job75]

J'ai inséré votre code dans une procédure Sub du Module1 qui me retourne une erreur sur l'utilisation du mot clé Me.

Le code doit être dans une macro se trouvant dans le code de l'UserForm.

 

[patricktoulon]

re
Bonsoir @Shark_03 , @job75
sinon si tu veux garder ta sub dans un module tu remplace "Me" par le nom du userform
mais je rejoins Job75 en general le transfert du userform vers une feuille se fait dans le userform soit par les event eux mêmes des textboxs soit par l'event d'un bouton valider par exemple

pas la peine de disperser les actions/events

 

[Shark_03]

Bonjour, merci pour vos réponses, ça répond à mes attentes.