Microsoft 365 Coloration de ma bulle

Usine à gaz · 20 Février 2023

Bonsoir à toutes et à tous

Je butte sur la coloration de ma bulle et je n'arrive pas à trouver comment coder comme il faut.
Dans le fichier test joint, mon code :

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Range("e9")) Is Nothing Then
With Shapes("bulle1_affectez")
    .TextFrame2.TextRange.Characters.Text = "OK - Métropole vérifié !" & Chr(13) & ">>>>>>  Affecter  =    clic  EN COL K    >>>>>>>>>"
    .Height = 45
        With Selection.Interior
        .Color = RGB(55, 86, 35)
        End With
End With
End If
End Sub

C'est la cellule cliquée qui est colorée en vert et pas ma bulle Grrr !

Pour que ce soit ma bulle qui soit colorée...
Pourriez me donner un p'tit coup de code ?

Un grand merci,

mapomme · 20 Février 2023

Bonsoir @Usine à gaz ,

Peut-être :

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
   If Not Intersect(R, Range("e9")) Is Nothing Then
      With Shapes("bulle1_affectez")
          .TextFrame2.TextRange = "OK - Métropole vérifié !" & Chr(13) & ">>>>>>  Affecter  =    clic  EN COL K    >>>>>>>>>"
          .Height = 45
          .Fill.ForeColor.RGB = RGB(55, 86, 350)
      End With
   End If
End Sub

mapomme · 20 Février 2023

Bonsoir @Usine à gaz ,

Peut-être :

VB:

Private Sub Worksheet_SelectionChange(ByVal R As Range)
   If Not Intersect(R, Range("e9")) Is Nothing Then
      With Shapes("bulle1_affectez")
          .TextFrame2.TextRange = "OK - Métropole vérifié !" & Chr(13) & ">>>>>>  Affecter  =    clic  EN COL K    >>>>>>>>>"
          .Height = 45
          .Fill.ForeColor.RGB = RGB(55, 86, 350)
      End With
   End If
End Sub

Usine à gaz · 21 Février 2023

Bsr mapomme

Merci pour ce retour gagnant lol
Peut-être...Peut-être...
C'est exactement ça
Je te remercie,

Microsoft 365 Coloration de ma bulle

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

mapomme

mapomme

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires