Mettre les caractères entre paranthèse en minuscules

Chris57 · 13 Octobre 2009

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 · 13 Octobre 2009

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

Salut Chris57,

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

Code:

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 · 13 Octobre 2009

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...

Code:

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 · 13 Octobre 2009

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 · 13 Octobre 2009

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

Code:

=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 · 13 Octobre 2009

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 · 13 Octobre 2009

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 :

Code:

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...

Code:

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 · 13 Octobre 2009

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 :

Code:

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 · 13 Octobre 2009

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 · 13 Octobre 2009

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

J'y suis arrivé comme ça :

Code:

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 · 13 Octobre 2009

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 :

Code:

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 · 13 Octobre 2009

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 !!!!!!!!!!

Mettre les caractères entre paranthèse en minuscules

Chris57

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Pierrot93

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Dull

XLDnaute Barbatruc

Ubot303

XLDnaute Occasionnel

Chris57

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Chris57

XLDnaute Occasionnel

Chris57

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Chris57

XLDnaute Occasionnel

Discussions similaires

Mettre les caractères entre paranthèse en minuscules

XLDnaute Occasionnel

Compte Supprimé 979

Guest

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency