Option majuscules et minuscules dans une UserForm

[Atiom]

Bonjour, le forum

Bonne et heureuse année à tous, il n’est jamais trop tard !

Je souhaiterais créer une petite macro à mettre dans l’UserForm que puisse me permettre de mettre automatiquement les premières lettres de chaque colonne, en majuscules ou en minuscules en fonction des besoins.

Je mets un fichier joint pour une meilleure compréhension.


Merci de votre aide

Atiom

 

[ccpapy]

Re : Option majuscules et minuscules dans une UserForm

bonjour,
une premiere approche😱
je suis désolé , je ne trouve pas le code pour repasser en minuscule...
sinon, j'ai créé une liste de AàN pour alimenter le combobox qui determine la colonne à traiter..;
à paufiner donc
à+

 

[skoobi]

Re : Option majuscules et minuscules dans une UserForm

Bonjour,

voici un code à mettre pour l'userform1:

Private Sub OK_Click()
col = Range([A1], [A1].End(xlToRight)).Find(ComboBox1.Value, LookIn:=xlValues).Column
If OptionButton1 Then
    For Each produit In Range(Cells(2, col), Cells(2, col).End(xlDown))
        produit.Value = Replace(produit.Value, Left(produit.Value, 1), UCase(Left(produit.Value, 1)))
    Next
ElseIf OptionButton2 Then
    For Each produit In Range(Cells(2, col), Cells(2, col).End(xlDown))
        produit.Value = Replace(produit.Value, Left(produit.Value, 1), LCase(Left(produit.Value, 1)))
    Next
End If
End Sub
Private Sub UserForm_Initialize()
For Each cellule In Range([A1], [A1].End(xlToRight))
    ComboBox1.AddItem cellule.Value
Next
End Sub

Bonne journée 🙂

 

[pierrejean]

Re : Option majuscules et minuscules dans une UserForm

bonjour Atiom 🙂

il y avait un moment qu'on ne s'etait croisé !!

Vois si cela te convient

Edit:

Comme les carabiniers

Salut ccpapy
Salut skoobi

 

[Atiom]

Re : Option majuscules et minuscules dans une UserForm

Bonjour, ccpapy, skoobi et pierrejean.

Impeccable. C’est exactement ça.
Ccpapy ce n’est pas grave si tu ne trouves pas le code pour repasser en minuscule...
Les propositions de skoobi et pierrejean fonctionnent correctement toute les deux.

Merci beaucoup aux trois

Pour pierrejean

Tu as raison il y a un moment qu'on ne s'était pas croisé !
Trop occupé ces dernier temps ! Comme la plupart de jans je suppose !
Ha le temps c’est vraiment un gros problème de notre société actuel et il n’y a rien à faire. Il faut vivre avec et faire au mieux.
Bonne et heureuse année 2008 et à la prochaine.

 

[Lighter]

Re : Option majuscules et minuscules dans une UserForm

Bonsoir Atiom, Pierrejean
Juste pour comprendre totalement, comment est réalisé le lien entre le bouton "TRI" et la Combobox1. Le bouton "TRI" me semble verrouillé pour consultation de cet élément.
Merci d'avance.
🙂Cordialement

 

[ccpapy]

Re : Option majuscules et minuscules dans une UserForm

bonjour à tous,
pour lighter:
clic droit sur l'onglet feuil1/ visualiser le code
le code affecté au bouton tri est :
userform1.show

pour Atiom:
maintenant je sais faire😛... gràce à pierrejean (merci pierejean)
je connaissais UCase pour tout majuscule mais pas LCase
encore merci
à+