Discussion :

[Selune6666]

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.

[jfontaine]

ce bout de code renvoie les noms des textboxs d'une feuille
A toi d'adapter a ton besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim obj As Object
 
For Each obj In Me.OLEObjects
 If Left(obj.progID, 13) = "Forms.TextBox" Then
    MsgBox obj.Name
End If
 
Next

[Selune6666]

Left(obj.progID, 13) = "Forms.TextBox"

pourrais tu expliciter?

en particulier Left(obj.progID, 13) je ne comprend pas sa signification

[jfontaine]

Avec typeof

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For Each obj In Me.OLEObjects
 If TypeOf obj.Object Is msforms.TextBox Then
    MsgBox obj.Name
End If

[jfontaine]

ProgID renvoie le type au format texte
progID : "Forms.TextBox.1"
Dans l'exemple je récupère la 13 permiers caractères

Tu pourrais remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each obj In Me.OLEObjects
 If obj.progID = "Forms.TextBox.1" Then
    MsgBox obj.Name
End If

J'avais pas vu que le 1 ne s'incrèmentait pas

[patbou]

bonjour,

essaye ceci

testé avec un textbox


dans l objet feuil1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub TextBox1_LostFocus()
Dim t
t = TextBox1
If Not IsNumeric(t) Or Val(t) < 0 Then
TextBox1 = "0"
End If
End Sub
 
Private Sub Worksheet_Activate()
Dim Obj As OLEObject
 
 
For Each Obj In ActiveSheet.OLEObjects
    If TypeOf Obj.Object Is MSForms.TextBox Then
           Obj.Object.Text = "0"
   End If
Next Obj
 
End Sub

[Selune6666]

Rien ne marche... ça doit quand mm pas etre si dur que ça d'initialiser des textbox!!! Et normalement cela devrait marcher pour les textbox si ça marche avec la combo. Je comprend pas pourquoi il ne prend pas cette boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each Obj In ActiveSheet.OLEObjects
    If TypeOf Obj.Object Is MSForms.TextBox Then
           Obj.Object.Text = "0"
   End If
Next Obj

(jme suis bien mis sur la feuille1)

Par contre quand je fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
private sub commande1.click 
 
For Each Obj In ActiveSheet.OLEObjects
    If TypeOf Obj.Object Is MSForms.TextBox Then
           Obj.Object.Text = "0"
   End If
Next Obj
 
end sub

la ça marche correctement...