Initialisation plusieurs textbox

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:

---

1 2 3 4 5 6

Dim t as texbox   For each t in activesheet t.text= 0 next t

---

Puis

Code:

---

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:

---

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.

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

Code:

---

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

---

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

pourrais tu expliciter?

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

Avec typeof

Code:

---

1 2 3 4 5

For Each obj In Me.OLEObjects If TypeOf obj.Object Is msforms.TextBox Then MsgBox obj.Name End If

---

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:

---

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

bonjour,

essaye ceci

testé avec un textbox


dans l objet feuil1

Code:

---

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

---

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:

---

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:

---

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

euh :?
je ne vois pas la différence entre les 2 codes, si ce n'est le nom de la sub qui lance la boucle.

benh c'est aussi ce que je pense c'est bien ça le probleme...
Surtout que j'ai bien fait le bon gros ctrl+C ctrl+V

la boucle qui pose problème est dans quel evenement?

la boucle qui pose probleme est dans l'evenement worksheet.activate

mais dans cette evenement , l'initialisation des combobox se fait par le mm code que les textbox et l'initialisation se passe correctement.

Si tu pouvais nous faire un fichier exemple pour que l'on regarde

Bon je viens de me rendre compte d'une chose.
Je ne peux pas mettre les initialisation des combobox , textbox dans l'evenement worksheet.activate
Je vais tout simplement mettre un bouton initialiser et mon utilisateur devra clicker dessus , ce qui initialisera les combo et texbox.
Ma combobox ne marche pas correctement quand je la met dans l'evenement worksheet.activate elle a en fait gardé la valeur de la listindex qui avait été initialisé quand j'ai testé le code avec l'evenement commande1.click. je viens de m'en appercevoir.

Conclusion:
l'evenement worksheet.activate n'est pas un bon evenement pourr initialiser les différents objet de la feuille excel.

Avez vous des idées afin de pouvoir initialiser ces objets sans pour autant devoir clicker sur un bouton?

Citation:

---

Conclusion:
l'evenement worksheet.activate n'est pas un bon evenement pourr initialiser les différents objet de la feuille excel.

---

tu peux verifier que l evenement est bien déclenché avec un msgbox
(je ne vois pas comment il pourrait en etre autrement :roll:)

cet evenement ce produira a l ouverture du classeur (si c la 1ere feuil) ou a l activation de cette derniere.
donc pour initialiser tes oleobject c la bonne solution (avec workbook_open)

Oki donc je vais test avec l'evenement worbook open on va voir ce que cela donne. Mais je vais l'aisser tomber les textbox je pense en fait.

Jen profite pour vous poser d'autres question ^^.

Dc mon document Excel en gros j'ai un tableau de X colonne.
Une ligne est dc composer de Xcolonne ET d'une combobox.
EX: la ligne 21 comprendra A,B,C,D colonne et sur la colonne E j'ai mis les combobox.
Donc la ligne 21 correspondra a la combobox qui est sur sa ligne et la ligne 22 correspondra a la combobox qui est sur sa ligne oki?
Cependant en fonction de l'index de la combobox je dois faire tel ou tel calcul.
Donc ma question est comment je fais comprendre a mon programme que quand il parcour la ligne 21 la combobox qui lui est attribué est sur la ligne 21? En gros comment je fais correspondre correctement les combobox a la ligne qui lui est attribué? Je dois fusionner les combobox avec la cellule?