Aide pour codification en Vba

Bonjour à tous,

Je rencontre 2 problèmes que je vous soumets :

1 - Dans un formulaire, j'ai une Combo (C1) dans laquelle s'affiche un certain nombre de nom d'école. Je souhaiterai qu'à l'ouverture de mon formulaire, le nom dans la Combo soit identique à celui de l'onglet de la feuille.
Est-ce possible et comment ?

2 - Dans un TextBox l'utilisateur doit taper une heure au format hh:mm.
Je souhaiterai qu'il n'est à taper que les chiffres sur le clavier. Après avoir tapé l'heure, les : soient automatiques, et ensuite frappe les minutes.
Un peu sur ce principe de date :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim valeur As Byte Me.T3.MaxLength = 10 valeur = Len(Me.T3) If valeur = 2 And Mid(Me.T3, 1, 2) > 31 Then Me.T3.MaxLength = 2 MsgBox "Jour invalide" Exit Sub End If If valeur = 5 And Mid(Me.T3, 4, 5) > 12 Then Me.T3.MaxLength = 5 MsgBox "Mois invalide" Exit Sub End If If valeur = 2 Or valeur = 5 Then Me.T3 = Me.T3 & "-" If valeur = 10 And Not IsDate(Me.T3) Then Me.T3 = "-"

---

Merci par avance pour l'aide que vous pourrez m'apporter.

Salut NEC14 et le forum
Les questions me semblant donner des réponses simples, je ne les testent pas :

Citation:

---

Dans un formulaire, j'ai une Combo (C1) dans laquelle s'affiche un certain nombre de nom d'école. Je souhaiterai qu'à l'ouverture de mon formulaire, le nom dans la Combo soit identique à celui de l'onglet de la feuille.
Est-ce possible et comment ?

---

Dans la macro d'initialisation tu mets

Code:

---

me.c1=activesheet.name

---

ça suppose que ta liste est crée avec le nom des feuilles

Citation:

---

Dans un TextBox l'utilisateur doit taper une heure au format hh:mm

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub T3_Change() If Me.T3.TextLength = 2 Then If 0 <= CInt(Me.T3) And CInt(Me.T3) <= 24 Then Me.T3 = Me.T3 & ":" Else MsgBox "les heures sont limitées à 24 ", , "Erreur de saisie" Me.T3 = "" End If End If End Sub

---

A+

Merci Gorfael tes codes marchent super bien.

Je me permet d'abuser un peu, il a fallu que je mette en place 9 TextBox où s'appliquent ton code. (Celui des heures)
Comment mettre dans un module ton code afin qu'il s'applique à chaque TextBox ?
Cela m'éviterai de le recopier 9 fois.
Merci par avance

bonjour nec Gorfael le forum il faut passer par un module de classe
question tes textbox sont renommées de T1 a T9 ??

Bonjour laetitia

Elles sont nommées de T6 à T14

re nec,Gorfael un module de classe a tester!!

code user

Code:

---

1 2 3 4 5

Option Explicit Dim txt(6 To 14) As New classe1, i As Byte Private Sub UserForm_Initialize() For i = 6 To 14: Set txt(i).txt = Controls("T" & i): Next i End Sub

---

code module de classe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit Public WithEvents txt As MSForms.TextBox, c As Control Private Sub txt_Change() For Each c In UserForm1.Controls If TypeOf c Is MSForms.TextBox Then If Val(c) > 24 Then MsgBox "Erreur de saisie": c = "": Exit Sub If c.TextLength = 2 Then: c = c & ":" End If: Next c End Sub Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0 End Sub

---

Bonjour laetitia et le forum,

Super laetitia ça fonctionne très bien. Sans ton aide je ne crois pas que j'y serais arrivé.
J'espère qu'un jour je pourrai t'apporter mon aide.
A bientôt :king: