Bonjour a tous,
J'ai une feuille excel sur laquelle j'ai énormément de textbox.
Mes soucis sont :
-les initialiser toutes a 0, et de leur laisser prendre uniquement des valeurs numérique entière et positive.
Cependant j'ai 3 types de textbox.
Une contenant des heures , l'autres des minutes et pour finir la derniere de simple entiers.
Je ne penses pas que les types des textbox gènes dans leur initialisation merci de me contredire si j'ai tord svp.
Afin de les initialiser j'ai esssayé
Puis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim t as texbox For each t in activesheet t.text= 0 next t
Evidement si je post c'est que cela ne marche pas pourtant j'ai initialiser plusieurs combobox ayant toutes la mm valeur ainsi (grace a votre aide sur le fofo d'ailleurs)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 dim Obj as OLEObject For each Obj in Activesheet.OLEObjects Obj.Object.text=0 next Obj
Je pensais donc mettre l'initialisation Textbox dans la boucle précedente en utilisant un else if. Mais faudrait déja que l'initialisation des texbox marche correctement. Ensuite je pourrais lui dire d'accepter que des valeur entieres positive.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Dim Obj as OLEObject Dim tableau as variant (benh oui c une combo ya pas qu'une valeur) tableau= array("MC","LC") (j'initialise le tableau) For each Obj in Activesheet.OLEObjects If typeOf Obj.Object is MSForms.Combobox then Obj.Object.List= tableau Obj.Object.listIndex=0 End If next obj
Merci de m'avoir lu et merci d'avance aux personnes qui repondront.
Partager