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é

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
Puis
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
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
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
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.

Merci de m'avoir lu et merci d'avance aux personnes qui repondront.