Comment exécuter une macro sur une sélection

Bonjour à tous,

J'ai un petit soucis embêtant.

J'aimerais créer une procédure qui permet de mettre une sélection en majuscule ...
Bref ... une bétise.

Mais voilà, si vous sélectionnez un texte dans une cellule, vous ne savez rien faire.
Vous êtes obligé de quitter la cellule (vous perdez votre sélection)...

Raison: Je ne veux pas changer tout le contenu de la cellule mais juste une partie (ma sélection).

Toutes les idées sont les bienvenues

De plus, lorsque j'utilise l'instruction VBA "Selection", je reçois le contenu complet de la cellule. Pas mon texte.

Exemple:

Dans la cellule A1 j'ai la valeur : "Qu'il est beau ce lac dans la vallée. C'est superbe! Surtout avec ce couché de Soleil."

Maintenant, j'aimerais mettre (par macro) le mot 'superbe' en majuscule.

Je sélectionne le mot et que la macro mette ce mot en majuscule.

Code:

---

UCase(Selection)

---

Voilà ...
Merci à tous pour votre aide
André

Bonjour,

Etant donné le comportement d'Excel lors de l'édition d'une cellule, il ne me semble pas que cela soit possible.
Mais pourquoi ne pas utiliser le raccourci clavier Ctrl+G ?

Si votre problème est que ce raccourci ne met pas le texte en gras, mais bascule la valeur de la propriété Bold (ou dit autrement, avec Ctrl+G, vous pouvez aussi mettre du texte en non gras), alors il ne vous reste plus qu'une UserForm :

• L'utilisateur sélectionne une cellule et lance une macro.
• Ladite macro affiche une UserForm et y rempli une TextBox avec le texte de la cellule sélectionnée.
• L'utilisateur sélectionne la partie de texte qui l'intéresse puis valide la UserForm.
• Les propriétés SelStart et SelLength peuvent alors être utilisées pour déterminer quelle partie du texte est sélectionné et puis appliquer la mise forme souhaitée à la cellule Excel.

Cdt

bonjour
je sais pas si ça va aider:
en colonne A j'ai une chaîne de caractère et sur la même ligne et colonne B j'écris un mot que je veux mettre en gras en couleur rouge dans la chaine de caractère en colonne A
j'utilise ce bout de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub colorer() Dim i As Long With Sheets("feuil1") i = .Range("A" & Rows.Count).End(xlUp).Row For L = 2 To i Chaine = .Cells(L, 1) Position = InStr(Chaine, .Cells(L, 2)) Longueur = Len(.Cells(L, 2)) .Cells(L, 1).Characters(Start:=Position, Length:=Longueur).Font.Color = RGB(224, 0, 0) .Cells(L, 1).Characters(Start:=Position, Length:=Longueur).Font.Bold = True Next L End With End Sub

---

Bonjour
la réponse de BEN_L m'a particulièrement intéressé (merci !!!)
du coup j'ai voulu tester et la chose et ai réussi donc autant en faire profiter !

principe d'utilisation :

• on se met sur la cellule contenant le texte et on utilise le bouton sur la feuille
• cela lance un userform en récupérant le texte de la cellule
• sélectionner une portion de texte dans la textbox et appuyer sur CONV MAJ
• éventuellement recommencer l'opération sur d'autres parties du texte
• pour valider appuyer sur VALIDER sinon pour annuler, on peut utiliser la croix

Bonjour,

On peut tout à fait travailler dans certains cas sur une partie du texte de la cellule uniquement.

Exemple:

Mettre une partie du texte en gras

Code:

---

Range("A1").Characters(1, 3).Font.Bold = True

---

Characters(X, Y); X est l'index du premier caractère à traiter et Y est la longueur de la chaîne à traiter

Mais pour mettre uniquement un mot en majuscule dans une cellule sans toucher au reste de son contenu je ne vois pas non plus comment faire directement à partir d'une sélection de texte.
Par défaut

Code:

---

1 2 3 4 5 6 7 8 9

Sub test()   Dim mot_recherche As String   mot_recherche = "superbe"   Range("A1") = Replace(Range("A1"), mot_recherche, UCase(mot_recherche))   End Sub

---

Contournement mais ce n'est pas réellement la réponse précise sur une sélection
- Créer un tableau dans une feuille paramètre de 2 colonnes (Cellule | mot à majusculer)
- Créer une requête événementiel "onchange" sur la feuille qui va parcourir le tableau paramètre et remplacer le mot voulu

Code:

---

Range("A1") = Replace(Range("A1"), mot_recherche, UCase(mot_recherche))

---

Ce n'est pas réellement une macro qui met en forme sur une sélection comme tu le souhaites mais bon. Tu auras le même résultat.

Bonsoir à tous,

J'ai mis vos idées en pratique et cela fonctionne

J'ai ajouté un UserForm avec un champ texte et 2 boutons:
- un bouton qui va mettre le texte sélectionné en majuscule
- un bouton qui remet à jour la cellule.

Voici le code qui met la sélection en majuscule

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub Bt_Maj_Click()   Dim NouveauTexte As String, TexteOriginal As String, TmpStr As String Dim position As Long   TmpStr = ""   ' La variable 'Contenu' est en réalité le champ texte   If Contenu <> "" Then If Contenu.SelStart >= 0 And Contenu.SelLength > 0 Then TexteOriginal = Mid(Contenu, Contenu.SelStart + 1, Contenu.SelLength) NouveauTexte = UCase(TexteOriginal)   TmpStr = Contenu position = InStr(Contenu.SelStart + 1, Contenu, TexteOriginal)   TmpStr = Left(Contenu, position - 1) TmpStr = TmpStr & Mid(Contenu, position + Len(TexteOriginal)) TmpStr = Left(TmpStr, position - 1) & NouveauTexte & Right(TmpStr, Len(TmpStr) - position + 1)   Contenu = TmpStr End If End If End Sub

---

C'est une usine à gaz pour pas grand chose.
Mais bon ... Cela fonctionne. C'est le principal.

Merci à tous pour votre aide.
André

Bonjour

Je vous soumets une idée que je trouve plus simple

Vous mettez en gras tous les mots de vos cellules que vous voulez ensuite mettre en majuscule (avec CTRL+G pour aller plus vite, ou italique avec CTRL+I ou souligné avec CTRL+U, au choix)
puis vous exécutez une macro qui va remplacer les caractères en gras par les mêmes caractères mais en majuscule et vous retirez le gras

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each Cellule In Selection For i = 1 To Len(Cellule) With Cellule.Characters(i, 1) If .Font.Bold Then .Text = UCase(.Text) .Font.Bold = False End If End With Next i Next Cellule

---

Stéphane

bonjour Raccourcix
+1 de ma part :bravo:

Ah Ouais .... 8O

Nettement mieux et plus simple .... Merci Raccourcix pour ce truc & astuce!
Géniallisime de simplicité.

:ccool: :chin:

André