Discussion :

[Invité]

Bonjour à tous!

J'aurais aimé savoir, étant novice en VBA, si il était possible de mettre en gras ce qu'il y a à gauche de la flèche -> si celle-ci est présente dans la cellule (donc automatiquement).

Par exemple on aura plusieurs cellule dans l'onglet de la forme : X -> Y.

- Soit il est possible dès l'écriture du -> de mettre en gras directement la partie X.

-Soit à l'aide d'un bouton ou de l'exécution de la macro à un temps donné, mettre en gras la partie X lorsque -> est détecté dans une cellule, sachant que si je l'exécute plusieurs fois, il ne faut pas que cela face l'effet inverse et donc retirer ce qui a déjà été mis en gras!

Merci beaucoup pour votre aide et bonne journée!

[Invité]

Bonjour,

Une solution possible avec la macro ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub RerchercheFleche(Cellule As Range)
 
Dim CtrI As Integer
Dim ContenuAvantFleche As String
 
    ContenuAvantFleche = ""
    For CtrI = 1 To Len(Cellule)
            ContenuAvantFleche = ContenuAvantFleche & Mid(Cellule, CtrI, 1)
            Select Case Mid(Cellule, CtrI, 2)
                   Case "->"
                   Exit For
            End Select
    Next CtrI
 
    Cellule.Characters(Start:=1, Length:=Len(ContenuAvantFleche)).Font.Bold = True
 
End Sub

La macro événementielle ci-dessous, à mettre dans le module de feuille, lance la macro automatiquement si la saisie est réalisée dans la colonne C :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal ZZ As Range)
 
   If ZZ.Count > 1 Then Exit Sub
 
   On Error Resume Next
   If Not Application.Intersect(ZZ, Columns(3)) Is Nothing Then
 
        RerchercheFleche ZZ
 
   End If
 
End Sub

Cordialement.