XL 2016 VBA contenu TextBox dans tableau

Shark_03 · 7 Août 2021

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.

VB:

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.

Shark_03 · 7 Août 2021

job75 à dit:
Bonjour Shark_03, bienvenue sur XLD,

VB:

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+

job75 · 7 Août 2021

Bonjour Shark_03, bienvenue sur XLD,

VB:

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 · 7 Août 2021

job75 à dit:
Bonjour Shark_03, bienvenue sur XLD,

VB:

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 · 7 Août 2021

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 · 7 Août 2021

Shark_03 à dit:
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 · 7 Août 2021

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 · 8 Août 2021

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

XL 2016 VBA contenu TextBox dans tableau

Shark_03

XLDnaute Nouveau

Shark_03

job75

XLDnaute Barbatruc

Shark_03

XLDnaute Nouveau

Shark_03

XLDnaute Nouveau

job75

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Shark_03

XLDnaute Nouveau

Discussions similaires