Changement de format texte entre crochet

Bonjour,

J'ai un fichier excel qui permet d'effectuer des débriefings d'activités. Dans ce fichier j'ai besoin de mettre en couleur le texte qui est saisi entre des crochets.

A l'heure actuelle, j'ai la macro, faite par l'enregistrement de macro, mais qui change de couleurs toutes les phrases, même sans crochet puisque dans une même cellule il peut se trouver des phrases avec et sans crochets.

Auriez-vous une solution ?

Je vous remercie par avance,

Dietyl

Bonjour

Pourquoi joindre un fichier :

Sur la charte du Forum

https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html

Point 6 : • Pensez à joindre un fichier pour faciliter la compréhension du problème et augmenter les chances de vous faire aider (taille limite : 300ko, n'hésitez pas à compresser vos fichiers).

Cordialement

Bonjour Dietyl, Amadéus,

Je te propose ce fichier Excel :

Ctrl e ➯ travail effectué

Alt F11 pour voir la macro, puis revenir sur Excel

Si besoin, tu peux demander une adaptation.

Merci de me dire si ça te convient.

dhany

Bonjour,

Merci beaucoup dhany pour ta solution ! Effectivement ça marche bien. Autre petite question, comment modifier cette macro pour la faire travailler sur une plage de cellule ? Étant donné que j'ai tenté de mettre à la suite la même macro en changeant la cellule visée mais excel me sort une erreur....(De mon côté ce sont les cellules A21, A23, A25 et A27 qui peuvent contenir des crochets)

Si il y a besoin de ma feuille excel, je tenterai de la joindre demain étant donné que celle-ci est sur le réseau de mon entreprise et aujourd'hui je n'ai pas eu le temps de le faire.

Merci d'avance !

Bonjour Dietyl,

Voici la nouvelle version du fichier Excel :

Ctrl e ➯ travail effectué

Alt F11 pour voir le code VBA, puis revenir sur Excel

Tu verras que c'est très facile d'adapter pour ton propre fichier, avec A21, A23, A25, A27 (changer l'appel seulement) :

Sub Essai()
  Application.ScreenUpdating = False
  Crochets [A21]: Crochets [A23]: Crochets [A25]: Crochets [A27]
End Sub

OU

Sub Essai
  Dim celX As Range: Application.ScreenUpdating = False
  For Each celX In [A21, A23, A25, A27]: Crochets celX: Next celX
End Sub

OU

Sub Essai
  Dim lig As Byte: Application.ScreenUpdating = False
  For lig = 21 To 27 Step 2: Crochets Cells(lig, 1): Next lig
End Sub

C'était pour ton exemple de 4 cellules non contigües.

Pour une plage contigüe, par exemple C5:F20 :

Sub Essai
  Dim celX As Range: Application.ScreenUpdating = False
  For Each celX In [C5:F20]: Crochets celX: Next celX
End Sub

Si tu as toujours besoin de transmettre ton fichier Excel, n'hésite pas !

mais je crois qu'avec toutes ces infos, ce sera pas nécessaire.

dhany

Merci beaucoup ! C'est parfait.

Merci pour ton retour, et pour avoir passé le sujet en résolu !

dhany