Discussion :

[Mr l'Ashanti]

bjr forum.
ben voici le problème. j'ai 20 textbox et 6 combobox. je sais mettre un textbox ou combobox en majuscule lors de la saisie =>

Code :

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

textbox.text=ucase(textbox.text)

mais comme mentionné en haut je ne souhaiterais pas écrire pour chaque textbox car je vais surcharger mon module. donc la question: comment mettre tous les textbox et combobox en majuscules en utilisant une seule procédure?
merci de m'aider

[patricktoulon]

Bonjour
tu a plusieurs solutions qui s'offrent a toi
soit
a chaque evenement change des textbox ou combobox tu dirige l'evenement vers une private sub unique avec argument object
exemple

Code :

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

1
2
3
4
5
6
7
8
private textbox1_change():majuscule textbox1:end sub 
private textbox2_change():majuscule textbox2:end sub 
private textbox3_change():majuscule textbox3:end sub 
private combobox1_change():majuscule combobox1:end sub 
 
private sub majuscucle(byref controll as object)
controll.value=ucase(controll.value)
end sub

soit
tu classe tes controls ce qui te fait un module classe en plus

[patricktoulon]

re
pour la classe comme ca vite fait si on considere que tout les controls du userform doivent passer en majuscule

dans le userform

Code :

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

1
2
3
4
Dim cl As New majuscule
Private Sub UserForm_Activate()
cl.initiate Me
End Sub

dans un module classe nommé "majuscule"

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
21
22
23
Option Explicit
Public WithEvents txtB As MSForms.TextBox
Public WithEvents CmbX As MSForms.ComboBox
Public usf As Object
Dim cls() As New majuscule
Function initiate(ByRef uf As Object)
    Dim i&, ctrl As Object
    For Each ctrl In uf.Controls
        i = i + 1: ReDim Preserve cls(1 To i)
        Select Case TypeName(ctrl)
        Case "TextBox"
            Set cls(i).txtB = ctrl: Set cls(i).usf = uf
        Case "ComboBox"
            Set cls(i).CmbX = ctrl: Set cls(i).usf = uf
        End Select
    Next
End Function
Private Sub CmbX_Change()
    CmbX.Value = UCase(CmbX.Value)
End Sub
Private Sub txtB_Change()
    txtB.Value = UCase(txtB.Value)
End Sub

voila tout tes textboxs et combobox seront en majuscule quand tu tapera au clavier et /ou selectionnera un item dans tes combo


EDIT:
j'oubliais (IMPORTANT!!!!!)
il faut regler la propriété matchentry de tes comboboxs a 2 sinon des que tu tape quelque chose qui correspont a un item mais en minuscule le value sera en minuscule parcontre ca sera bien l'item en minuscule qui sera selectionné
demonstration

[sogedic]

Ca peut toujours être utile, merci

[patricktoulon]

re

bonjour sogedic

ben oui deja pour le demandeur ca l'est
regarde bien la capture animée comment on peut jouer sans respect de la casse (maj/min)
merci pour les retours

[Mr l'Ashanti]

un grand merci a mon homo Patrick Toulon
le problème est résolu

[patricktoulon]

salut Niamké 19

heu... chez nous homo ne veut sans pas dire la meme chose que chez vous

[Mr l'Ashanti]

ok. homonyme alors

[patricktoulon]

re
pas de souci Niamké 19

[Mr l'Ashanti]

salut Pat
voici j'ai un problème très dynamique.
lorsque dans la procédure userform_initialize je me mets le code

Code :

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

cl .initiate  me

pour les majuscules , l'application se plante:" la fonction "default " de la propriété "range "a échoué ", mais lorsqu'on met la procédure en commentaire nous pouvons continuer l'enregistrement des élèves mais sauf qu'il n'y a plus de majuscules.