Changer la valeur de plusieurs CheckBox et TextBox en 1 clic
Bonjour,
Il y a seulement une semaine que j'ai commencé le langage VBA c'est pourquoi j'ai besoin d'un peu d'aide.
J'ai réalisé un outil sur Excel 2007 et j'ai inséré plusieurs CheckBox et de TextBox. Sur ma Feuil3 il y a une soixantaine de TextBox et une quinzaine de CheckBox. J'aimerai passer de ma Feuil2 à ma Feuil1 en cliquant sur mon bouton "Précédent", et que les CheckBox de la Feuil3 passe à "False" et que les TextBox deviennent "Vide".
J'arrive à le faire mais en écrivant 60 fois:
Sheets("Feuil3").TextBox1.Text = Empty
Sheets("Feuil3_Critere").TextBox2.Text = Empty
Sheets("Feuil3").TextBox3.Text = Empty
Sheets("Feuil3").TextBox4.Text = Empty
Sheets("Feuil3").TextBox57.Text = Empty
Sheets("Feuil3").TextBox58.Text = Empty
Sheets("Feuil3").TextBox59.Text = Empty
Sheets("Feuil3").TextBox60.Text = Empty
J'aimerais connaître une technique pour éviter toutes ces lignes?
Merci d'avance
bonjour
tu pourrais passer par une boucle.
il s'agit bien de controle activeX et non de controles de la barre d'outil formulaire ?
si oui, je te donne deux exemples de boucle pour les checkbox et les textbox :
For i = 1 To 2
Sheets("feuil1").OLEObjects("CheckBox" & i).Object.Value = False
Next i
For i = 1 To 2
Sheets("feuil1").OLEObjects("textbox" & i).Object.Value = ""
Next ia plus
Oui c'est bien des CheckBox et Textbox dans le contrôle ActiveX
Merci pour ton aide, ça marche du tonnerre!