Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Optimisation de code

Optimisation de code

3 réponses
Avatar
Michel.Girard
Bonjour
j'ai cette procédure qui permet de scinder en 2 les majuscules et les
minuscules
afin de les mettre dans 2 textbox différents, mais voilà, elle ne fonctionne
pas tout le temps correctement.
Comment faire afin d'optimiser le code afin que celui-ci fonctionne mieux ?
Merci beaucoup
Michel

initial = ComboBox1.Value
For i = 1 To Len(initial)
If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then
TextBox4 = Right(initial, Len(initial) - i + 2)
TextBox3 = Left(initial, i - 3)
Exit For
End If
Next i
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Michel.Girard
C'est bon !!!
désolé, je viens de trouver
il me suffit de spécifier en amont
Maj ou min Ucase ou Lcase
Michel

"Michel.Girard" a écrit dans le message de
news:
Bonjour
j'ai cette procédure qui permet de scinder en 2 les majuscules et les
minuscules
afin de les mettre dans 2 textbox différents, mais voilà, elle ne
fonctionne pas tout le temps correctement.
Comment faire afin d'optimiser le code afin que celui-ci fonctionne mieux
?
Merci beaucoup
Michel

initial = ComboBox1.Value
For i = 1 To Len(initial)
If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then
TextBox4 = Right(initial, Len(initial) - i + 2)
TextBox3 = Left(initial, i - 3)
Exit For
End If
Next i




Avatar
MichDenis
Bonjour Michel,

Tu peux toujours essayer ceci :

'---------------------------
Private Sub CommandButton1_Click()

Dim Nb As Integer, T As String, Tminus As String
Dim A As Integer, Tmaj As String, S As String

T = Me.TextBox1
Nb = Len(T)

For A = 1 To Nb
S = Mid(T, A, 1)
If UCase(S) = S Then
Tmaj = Tmaj + S
Else
Tminus = Tminus + S
End If
Next
Me.TextBox2 = Tminus
Me.TextBox3 = Tmaj

End Sub
'---------------------------


Salutations!



"Michel.Girard" a écrit dans le message de news:

Bonjour
j'ai cette procédure qui permet de scinder en 2 les majuscules et les
minuscules
afin de les mettre dans 2 textbox différents, mais voilà, elle ne fonctionne
pas tout le temps correctement.
Comment faire afin d'optimiser le code afin que celui-ci fonctionne mieux ?
Merci beaucoup
Michel

initial = ComboBox1.Value
For i = 1 To Len(initial)
If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then
TextBox4 = Right(initial, Len(initial) - i + 2)
TextBox3 = Left(initial, i - 3)
Exit For
End If
Next i
Avatar
Michel.Girard
Comme cela provient de Denis Michon himself, je remplace ma procédure par la
tienne derechef ;-)
Merci beaucoup et bonne soirée.
Michel

"MichDenis" a écrit dans le message de news:
%
Bonjour Michel,

Tu peux toujours essayer ceci :

'---------------------------
Private Sub CommandButton1_Click()

Dim Nb As Integer, T As String, Tminus As String
Dim A As Integer, Tmaj As String, S As String

T = Me.TextBox1
Nb = Len(T)

For A = 1 To Nb
S = Mid(T, A, 1)
If UCase(S) = S Then
Tmaj = Tmaj + S
Else
Tminus = Tminus + S
End If
Next
Me.TextBox2 = Tminus
Me.TextBox3 = Tmaj

End Sub
'---------------------------


Salutations!



"Michel.Girard" a écrit dans le message
de news:

Bonjour
j'ai cette procédure qui permet de scinder en 2 les majuscules et les
minuscules
afin de les mettre dans 2 textbox différents, mais voilà, elle ne
fonctionne
pas tout le temps correctement.
Comment faire afin d'optimiser le code afin que celui-ci fonctionne mieux
?
Merci beaucoup
Michel

initial = ComboBox1.Value
For i = 1 To Len(initial)
If Mid(initial, i, 1) <> UCase(Mid(initial, i, 1)) Then
TextBox4 = Right(initial, Len(initial) - i + 2)
TextBox3 = Left(initial, i - 3)
Exit For
End If
Next i