Manipulation de textbox

Bonsoir

Une petite question qui m'embarrasse , je dispose d'un formulaire comprenant 5 textbox et je me triture l'esprit pour arriver à ecrire l'instruction suivante : "Pour toutes les texbox du formulaire , si une textbox est vide alors la remplir en y inscrivant la valeur 0" comment ecrire cela en vba ? est ce faisable ?

Merci pour vos réponses ou conseils

Bonjour

Il peut y avoir plusieurs réponses

Faire une boucle

Sub Test1()
Dim I As Integer

  For I = 1 To 5
    If Me.Controls("TextBox" & I) = "" Then Me.Controls("TextBox" & I) = 0
  Next I
End Sub

Passer en revue tous les contrôles et modifier (si besoin) les TextBox

SubTest2()
Dim CTRL As Control 'Variable pour la collection des contrôles

  For Each CTRL In Me.Controls
       If TypeOf CTRL Is MSForms.TextBox  Then
              CTRL = 0
       End If
  Next CTRL
End Sub

Merci infiniment Banzai ! en plus j'ai le choix des solutions.. que dire ?

Une bonne journée à toi

Rechercher des sujets similaires à "manipulation textbox"