Macro : Transformer certaines lettres en majuscules

Question

Bonjour, 

Dans mon tableau Excel, j'ai une colonne qui contient dans chaque cellule la couleur d'un objet en français et en anglais comme ceci :

Gris Foncé / Dark Grey 
Bleu Ciel / Sky Blue

J'ai utilisé ce code pour mettre des majuscules en début de mot : 
Sheets("Feuil3").Range("T5").SelectActiveCell.Value = StrConv(ActiveCell.Value, vbProperCase)For I = 1 To 400ActiveCell.Offset(1, 0).SelectActiveCell.Value = StrConv(ActiveCell.Value, vbProperCase)Next I

Mais ça ne convient pas car je voudrais que mes cellules aient cette forme (des majuscules sur la première lettre de la cellule et sur la lettre après le /)  : 

Gris foncé / Dark Grey 
Bleu ciel / Sky blue 

Je ne sais vraiment comment m'y prendre... Si vous avez une idée n'hésitez pas!

Merci d'avance 
Configuration: Windows 7 / Chrome 43.0.2357.124

ThauTheme · Answer

Bonjour Lenovo, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim I As Integer 'déclare la variable I (Incrément)
Dim P As Byte 'déclare la variable P (Position)

Set O = Sheets("Feuil3") 'définit l'onglet O
TC = O.Range("T5:T" & O.Cells(Application.Rows.Count, 20).End(xlUp).Row) 'définit le tableau de cellules TC
For I = 1 To UBound(TC, 1) 'boucles sur toutes les lignes I du tableau de cellules TC
    TC(I, 1) = LCase(TC(I, 1)) 'met la valeur de TC(I,1) en minuscule
    Mid(TC(I, 1), 1, 1) = UCase(Mid(TC(I, 1), 1, 1)) 'Met la premiere lettre en majuscules
    P = InStr(1, TC(I, 1), Split(TC(I, 1), " / ")(1), vbTextCompare) 'calcule la position de la première lettre après Slash + Espace ( / )
    Mid(TC(I, 1), P, 1) = UCase(Mid(TC(I, 1), P, 1)) 'met cette lettre en majuscule
Next I 'prochaine ligne de la boucle
O.Range("T5").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule T5
End Sub

lenovo · Answer

Merci de prendre le temps de me répondre. 

Lorsque je compile votre code (en changeant juste I par A, ayant déjà une variable de ce nom), j'obtiens une erreur d'exécution "Argument ou appel de procédure incorrect" sur la ligne suivante : 
 Mid(TC(A, 1), 1, 1) = UCase(Mid(TC(A, 1), 1, 1)) 'Met la premiere lettre en majuscules

ThauTheme · Answer

Bonjour Lenovo, bonjour le forum,

Je ne comprends pas. Chez moi ça fonctionne :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim A As Integer 'déclare la variable A (incrément)
Dim P As Byte 'déclare la variable P (Position)

Set O = Sheets("Feuil3") 'définit l'onglet O
TC = O.Range("T5:T" & O.Cells(Application.Rows.Count, 20).End(xlUp).Row) 'définit le tableau de cellules TC
For A = 1 To UBound(TC, 1) 'boucles sur toutes les lignes I du tableau de cellules TC
    TC(A, 1) = LCase(TC(A, 1)) 'met la valeur de TC(I,1) en minuscule
    Mid(TC(A, 1), 1, 1) = UCase(Mid(TC(A, 1), 1, 1)) 'Met la premiere lettre en majuscules
    P = InStr(1, TC(A, 1), Split(TC(A, 1), " / ")(1), vbTextCompare) 'calcule la position de la première lettre après Slash + Espace ( / )
    Mid(TC(A, 1), P, 1) = UCase(Mid(TC(A, 1), P, 1)) 'met cette lettre en majuscule
Next A 'prochaine ligne de la boucle
O.Range("T5").Resize(UBound(TC, 1), 1).Value = TC 'renvoie le tableau TC dans la cellule T5
End Sub 

Regarde la pièce jointe :
 http://www.cjoint.com/c/EFwn1MDHngI

cs_Le Pivert · Answer

Bonjour,

Une autre méthode avec split:

Dim chaine, chaine1, chaine2 As String
 Dim x As Integer
  Dim Tableau() As String
    Dim I As Integer
     For x = 1 To 10 ' a adapter a la plage de cellule
       chaine = Cells(x, 1).Value 'valeur cellule
       chaine = LCase(chaine) 'tout en minuscule
          'découpe la chaine en fonction des  " / "
    'le résultat de la fonction Split est stocké dans un tableau
    Tableau = Split(chaine, " / ")
     'boucle sur le tableau pour visualiser le résultat
    For I = 0 To UBound(Tableau)
        'Le résultat s'affiche dans la fenêtre d'execution de l'éditeur de macros
        'Debug.Print Tableau(I)
     chaine1 = Tableau(0)
    chaine1 = UCase(Left(chaine1, 1)) & Mid(chaine1, 2) '1ère lettre majuscule
    chaine2 = Tableau(1)
     chaine2 = UCase(Left(chaine2, 1)) & Mid(chaine2, 2) '1ère lettre majuscule
      Next I
   chaine = chaine1 & " / " & chaine2 'reforme la chaine
             Cells(x, 1).Value = chaine 'modifie la cellule
               Next x

Macro : Transformer certaines lettres en majuscules

4 réponses

Discussions similaires

Newsletters