Impossible de changer Majuscule ou minuscule

Excel
1

Bonjour à toutes et à tous,

le code ci-dessous me sert à modifier des données déjà enregistrées.

Le soucis c’est qu’il n’accepte pas les modifications de minuscules en majuscules ou l’inverse

Exemple:

si le textbox1 affiche par exemple :
Stylo Bille Noir Boite De 100 Pièces
et que je voudrai modifier le Boite en BOITE, alors il ne le fait pas !
.
La première lettre du textbox1 doit toujours rester en majuscule.

Private Sub CommandButton2_Click() 'Bouton MODIFIER

     With [Tab_1]
        Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues)
            position = Result.Row - .Row + 1
            .Item(position, 2) = UCase(ComboBox10)
            .Item(position, 3) = Application.Proper(TextBox1)
           .Item(position, 4) = Application.Proper(ComboBox2)
           .Item(position, 4) = Application.Proper(ComboBox12)
           .Item(position, 5) = (TextBox3)
           .Item(position, 6) = (TextBox4)
            If TextBox5 <> "" Then .Item(position, 7) = CDbl(Application.WorksheetFunction.Substitute(TextBox5.Value, ".", ","))
            If TextBox6 <> "" Then .Item(position, 9) = CDate(TextBox6)
            .Item(position, 10) = CDate(TextBox10)
            
        End With
        MsgBox "Modification(s) effectuée(s)."

    
End Sub

Auriez vous s’il vous plaît une aide pour remédier à cela.

Merci d’avance à vous.
Rubis

2

Bonjour Rubis,

Un fichier nous aidera bien.
Ca fait un moment qu’on t’as pas vu …

3

Bonjour Will,
Merci pour ton retour.
Oui j’étais un peu occupé, mais depuis le 1er mai je suis en retraite donc j’aurai un peu plus de temps.

C’est compliqué de faire un fichier. Je vais voir.
En attendant si quelqu’un à une petite idée je suis preneur.
A+

1 « J'aime »
4

Waouh, vous allez pouvoir faire des vacances, Malheureusement je suis qu’au début (3 ans) :smile:

ps: Le problème c’est qu’on n’as pas de tableau et l’Userform (avec les ComboBox)

5

Je pensais à ce genre d’idée

Set Result = [Tab_1[ID]].Find(ListBox10, LookIn:=xlValues)
ComboBox10 = Ucase(Result.value)
6

Re,

oui les vacances sont pour fin de l’année en premier temps je dois aller me faire opérer pour une nouvelle hanche !
Après je cours comme un lapin m’a dit le chirurgien ! Lol

Je suis en trai de préparer un fichier modèle

7

Voici un modèle, j’espère que cela ira.

Alors pour me répéter;

si par exemple je clique dans la listbox sur la ligne R1206 et que je voudrai modifier le mot Gros en GROS et que je clique sur modifier, il ne change rien. C’est à dire il laisse le mot Gros en Gros.

Merci à toi Will
A+
Rubis vba Majuscules miuscules.xlsm (22,7 Ko)

1 « J'aime »
8

c’est quoi cet « Application.Proper » ???
GROS devient Gros, donc supprimez ce « Proper »
.Item(position, 4) = TextBox3.text

1 « J'aime »
9

@Cow18 à raison,

changer votre code au niveau de :

Private Sub CommandButton2_Click() 
..........................................

  .Item(position, 4) = TextBox1
........................................

End sub

Application.Proper( ) forcait la valeur à avoir le premier mot en Majuscule.

1 « J'aime »
10

Bonsoir Cow18,
Re Will,

Oui mais la première lettre du textbox devrait rester en majuscule.

Par exemple si dans le textbox s’affiche un produit comme " Couleur jaune clair " donc j’aimerai que le mot Couleur garde sa première lettre majuscule

11

Re Cow18,

Oui mais la première lettre du textbox devrait rester en majuscule.

Par exemple si dans le textbox s’affiche un produit comme " Couleur jaune clair " donc j’aimerai que le mot Couleur garde sa première lettre majuscule

12

.Item(position, 4) = ucase(left(TextBox3.text,1)) & lcase(mid(textbox3.text,2))

13

Re,

en attendant votre retour j’ai essayé plusieurs fois avec ce que vous m’aviez donné tout à l’heure et cela fonctionne. Il laisse bien la première lettre du textbox en majuscule et le reste je peux le changer comme voulu, donc cela est parfait.

Je garderai votre dernier code bien sous le coude.

Merci beaucoup et à une prochaine fois.

Rubis

14

Merci beaucoup Will, j’ai placé le code de Cow18 est tout fonctionne également.

Ce sera sûrement pour une prochaine fois OK.

A très bientôt.

Rubis

1 « J'aime »
15

Re,
Il n’y a pas de quoi,
à très bientôt :blush:

16

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.