Un mot précis en MAJUSCULE dans une phrase en minuscule

Question

Je soushaite simplement dans une phrase en minuscule contenant une MARQUE ( IKEA, ADIDAS, .......), que toute la phrase reste en minuscule sauf la MARQUE....... Exemple : "Un plan de travail ikea 1200x1500" devient ""Un plan de travail IKEA 1200x1500" Merci à tous pour votre aide............................... tomsend...

GIBET78 · Accepted Answer

=SUBSTITUE(A2;INDEX(ref;EQUIV(1;NB.SI(A2;"*"&ref&"*");0));MAJUSCULE(INDEX(ref;EQUIV(1;NB.SI(A2;"*"&ref&"*");0)))) Valider avec maj+ctrl+entrée Ref est le champ qui contient la liste des marques JB...

thibo · Answer

Au plus simple, ça pourrait donner ceci : =SUBSTITUE(MINUSCULE(A1);"ikea";"IKEA") Cela dit, combien de marques faut-il gérer ? Y-a-t-il une liste avec toutes ces marques ? @+ -- Dim Nov 07, 2010 11:31 am -- re, Une solution avec une formule matricielle (et une liste des marques) : =SI(SOMME(ESTNUM(CHERCHE(liste_marques;A1))*1)=0;MINUSCULE(A1);SUBSTITUE(MINUSCULE(A1);INDEX(liste_marques;EQUIV(VRAI;ESTNUM(CHERCHE(liste_marques;A1));0));MAJUSCULE(INDEX(liste_marques;EQUIV(VRAI;ESTNUM(CHERCHE(liste_marques;A1));0))))) Formule matricielle à valider par CTRL + MAJ + ENTREE liste_marques : est une plage de cellules contenant la liste des différentes marques Je te laisse tester @+...

dubois · Answer

1) Tu écrit le mot à modifier (en A1 par exemple) 2) tu sélectionne la ou les plages à traiter 3) tu lance cette macro Sub Majuscule() 'nom en A1 à adapter Dim x$, y$, Cel As Range x = Range("a1") y = UCase(Range("a1")) For Each Cel In Selection Cel = WorksheetFunction.Substitute(Cel, x, y) Next Cel End Sub Amicalement Claude...

thibo · Answer

Re, Tu peux mettre la liste des marques dans un coin de ta feuille ou d'une autre feuille et la nommer. Tu peux également dans la formule proposée remplacer liste_marques par les références de cellules où tu auras renseigné les différentes marques. Je te laisse essayer @+...