Mettre les caractères entre paranthèse en minuscules

[Chris57]

Bonjour à tous,

je fait actuellement un fichier excel pour renommer des mp3

J'ai grâce au forum trouvé le moyen de les récupérer et les lister dans excel, puis de modifier la casse selon mes goûts, mais il me reste un point :
comment en vba mettre en minuscules des caractères entre parenthèse, dans un cellule .

Exemple de texte dans une cellule :
17- TONY GARCIA (FREESTYLE) - Take Me In Your Arms - 1998.mp3

je voudrais que le mot FREESTYLE soit en minuscule.

Quelqu'un a une idée ?

 

[Compte Supprimé 979]

Re : Mettre les caractères entre paranthèse en minuscules

Salut Chris57,

Si tu décompose, ça donne ça :

MP3 = "17- TONY GARCIA (FREESTYLE) - Take Me In Your Arms - 1998.mp3"
Pos1 = InStr(1, MP3, "(")
Pos2 = InStr(1, MP3, ")")
Tmp(1) = Left(MP3, Pos1)
Tmp(2) = LCase(Mid(MP3, Pos1 + 1, Pos2 - Pos1 - 1))
Tmp(3) = Mid(MP3, Pos2, Len(MP3) - Pos2 + 1)
MP3 = Tmp(1) & Tmp(2) & Tmp(3)

A toi ensuite de raccourcir éventuelement le code 😉

A+

 

[Pierrot93]

Re : Mettre les caractères entre paranthèse en minuscules

Bonjour Chris, Bruno🙂

une autre solution, uniquement pour le fun, à condition qu'il n'y ait pas plus de 2 parenthèses...

Range("A1").Value = Replace(Range("A1").Value, Split(Split(Range("A1").Value, "(")(1), ")")(0), _
    LCase(Split(Split(Range("A1").Value, "(")(1), ")")(0)), , , vbBinaryCompare)

bonne journée
@+

 

[job75]

Re : Mettre les caractères entre paranthèse en minuscules

Bonjour Chris57, Bruno, Pierrot,

Maintenant une solution par formule, en B2 du fichier joint.

A+

 

[Dull]

Re : Mettre les caractères entre paranthèse en minuscules

Salut Chris, Bruno🙂, Pierrot🙂, Job🙂, le Forum

Une autre Formule
Si texte en A1 mettre cette formule en A2

=STXT(A1;1;CHERCHE("(";A1;1))&MINUSCULE(STXT(A1;CHERCHE("(";A1;1)+1;-(CHERCHE("(";A1;1)-CHERCHE(")";A1;1))))&STXT(A1;CHERCHE(")";A1;1)+1;500)

Etrigolezpaslesgars...ellefonctionne 😀

Bonne Journée

 

[Ubot303]

Re : Mettre les caractères entre paranthèse en minuscules

Bonjour à tous,

J'aurai fait comme Bruno :
Décomposition et Lcase 🙂

Bonne journée à tous

 

[Chris57]

Re : Mettre les caractères entre paranthèse en minuscules

Merci à tous les trois pour votre aide, même si je préfère avoir un code VBA et non des formules !! Les 2 codes vba fonctionnent parfaitement pour 1 titre, mais si j'intègre ça dans une boucle ça plante :

Sub CORRECTION_majuscules()
' Met les mots entre paranthèses en minuscules
        For Each X In [D2:D500]
            If X <> "" Then
            MP3 = X
                    Pos1 = InStr(1, MP3, "(")
                    Pos2 = InStr(1, MP3, ")")
                    T1 = Left(MP3, Pos1)
                    T2 = LCase(Mid(MP3, Pos1 + 1, Pos2 - Pos1 - 1))
                    T3 = Mid(MP3, Pos2, Len(MP3) - Pos2 + 1)
                    MP3 = T1 & T2 & T3
            X = MP3
            End If
        Next X

End Sub

Là j'ai le message "Argument ou appel de procédure incorrecte". J'ai également remplacé les Tmp(1), Tmp(2).... par T1 et T2 car ça générait également une erreur...

Sub CORRECTION_majuscules()
' Met les mots entre paranthèses en minuscules
For Each X In [D2:D500]
            If X <> "" Then 
               Y = Replace(X.Value, Split(Split(X.Value, "(")(1), ")")(0), _
                     LCase(Split(Split(X.Value, "(")(1), ")")(0)), , , vbBinaryCompare)
                   X = Y    
            End If
        Next X

End Sub

là j'ai le message : "indice n'appartient pas à la sélection

Bref les 2 possibilités plantent et mes connaissances en VBA sont insuffisantes pour trouver la solution...

 

[Pierrot93]

Re : Mettre les caractères entre paranthèse en minuscules

Re

le code ci-dessous fonctionne chez moi, à condition bien sur qu'il y ait des parenthèses dans les cellules non vides :

Option Explicit
Sub test()
Dim x As Range
For Each x In Range("D2:D" & Range("D65536").End(xlUp).Row)
    If x.Value <> "" Then
        x.Value = Replace(x.Value, Split(Split(x.Value, "(")(1), ")")(0), _
            LCase(Split(Split(x.Value, "(")(1), ")")(0)), , , vbBinaryCompare)
    End If
Next x
End Sub

bon après midi
@+

 

[Chris57]

Re : Mettre les caractères entre paranthèse en minuscules

hello,

maintenant je comprend d'où peuvent provenir ces messages d'erreur : j'ia des titres avec et d'autres sans parenthèses !!

 

[Chris57]

Re : Mettre les caractères entre paranthèse en minuscules

J'y suis arrivé comme ça :

Dim x As Range
    For Each x In Range("D2:D500")
        If x.Value <> "" Then
            For i = 1 To Len(x)
                If Mid(x, i, 1) = "(" Then
        
                    x.Value = Replace(x.Value, Split(Split(x.Value, "(")(1), ")")(0), _
                    LCase(Split(Split(x.Value, "(")(1), ")")(0)), , , vbBinaryCompare)
                End If
            Next
    End If
Next x

vous en pensez quoi ?

 

[Pierrot93]

Re : Mettre les caractères entre paranthèse en minuscules

Re

pour tester s'il y a bien des parenthèses, j'aurais peut être codé ainsi, doit être plus rapide à l'exécution :

Dim x As Range
For Each x In Range("D2:D" & Range("D65536").End(xlUp).Row)
    If x.Value <> "" And InStr(x.Value, "(") > 0 And InStr(x.Value, ")") > 0 Then
        x.Value = Replace(x.Value, Split(Split(x.Value, "(")(1), ")")(0), _
            LCase(Split(Split(x.Value, "(")(1), ")")(0)), , , vbBinaryCompare)
    End If
Next x

@+

 

[Chris57]

Re : Mettre les caractères entre paranthèse en minuscules

ah oui, c'est nettement mieux !! Au moins ça teste la présence des 2 parenthèses !!

Merci !!!!!!!!!!