Microsoft 365 condition sur texte d'une bulle

[Usine à gaz]

Bonjour à toutes et à tous

Je n'arrive pas à coder ma condition !
En espérant que nos ténors pourront m'aider
Le contexte :
Quand clic dans la cellule M6, si le texte de la bulle est : "OK - OM vérifié - Affecter = clic EN COL M >", il m'écrit "ok" dans la cellule active
Si ce n'est pas le cas = MsgBox ("on vérifie l'indicatif ?")
le code :

If Not Intersect(R, Range("m6")) Is Nothing Then
    Application.EnableEvents = False
    If Shapes("bulle1_affectez").TextFrame2.TextRange.Characters.Text = "OK - OM vérifié - Affecter = clic  EN COL M >" Then
    ActiveCell = "ok"
    [a1].Select
    Application.EnableEvents = True
    Else
    MsgBox ("on vérifie l'indicatif ?")
    [a1].Select
    Application.EnableEvents = True
    End If
End If

Voyez-vous mon ou mes erreurs ?
Je joins le p'tit fichier test.
Un grand merci ...
Je continue mes recherches,
lionel

 

[Usine à gaz]

Re-Bonjour
J'ai trouvé d'où ça vient :
le texte à la création :

With Shapes("bulle1_affectez")
        .TextFrame2.TextRange.Characters.Text = "OK - OM vérifié - " & Chr(13) & "Affecter = clic  EN COL M >"
        .Top = ActiveCell.Top + 15
        .Height = 45
    End With

C'est le & Chr(13) & qui me pose un souci car renvoi à la ligne
Pourtant, je tiens à ce retour à la ligne lol
Je cherche comment le contourner dans ma vérification ... ?

 

[fanch55]

Salut Lionel,
J'en étais arrivé également au chr(13) .
Soit tu fais un replace du vbcr par vbnullstring
soit tu utilises une comparaison du genre like un mot générique ... par exemple like "*Affecter*"

 

[Usine à gaz]

Bonjour fanch55
Merci pour ce retour.
"replace du vbcr par vbnullstring" ... ça se mange ?
"comparaison du genre like" ... ça me parle plus ... je vais voir
Merci à toi,
lionel

 

[fanch55]

"replace du vbcr par vbnullstring" ... ça se mange ?

Replace => fonction replace
VbCr = chr(13)
VbNullString = chaine vide

 

[Usine à gaz]

Re
Merci
Mais je préfère le "like" bien que je n'arrive pas à le coder lol

 

[fanch55]

Le mieux c'est de construire ta chaine dans une variable et de l'assigner à ton shape
et de faire la comparaison de la variable au caption de ton shape .

Pour que le like fonctionne correctement, il te faut en début de module :
Option Compare Text ' comparaison indifférente aux minus/majus-cules

 

[Usine à gaz]

C'est bon, j'ai trouvé : "If Shapes("bulle1_affectez").TextFrame2.TextRange.Characters.Text Like ("*OK - OM vérifié*") Then"
Merci à toi

 

[fanch55]

Ça aussi, ça fonctionne :

ShapeText = "OK - OM vérifié - " & vbLf & "Affecter = clic  EN COL M >"
If Not Intersect(R, Range("i6")) Is Nothing Then
    Application.EnableEvents = False
        With Shapes("bulle1_affectez")
            .Visible = True
            .OLEFormat.Object.Caption = ShapeText
            .Top = R.Top + 15
            .Height = 45
        End With
        [a1].Select
    Application.EnableEvents = True
End If

If Not Intersect(R, Range("m6")) Is Nothing Then
    Application.EnableEvents = False
    If Shapes("bulle1_affectez").OLEFormat.Object.Caption = ShapeText Then
        R = "ok"
    Else
        MsgBox ("on vérifie l'indicatif ?")
    End If
    [a1].Select
End If
Application.EnableEvents = True

 

[job75]

Bonjour Lionel, fanch55,

Ce n'est pas Chr(13) qu'il faut utiliser mais Chr(10) ou vbLf.

Et bien sûr introduire cette constante dans le test :

If Shapes("bulle1_affectez").TextFrame2.TextRange.Characters.Text = "OK - OM vérifié - " & vbLf & "Affecter = clic  EN COL M >" Then

A+

 

[fanch55]

Bonjour Lionel, fanch55,

Ce n'est pas Chr(13) qu'il faut utiliser mais Chr(10) ou vbLf.

A+

Salut @job75 , c'est effectivement ce que j'ai proposé dans le code,
le Vbcr est souvent converti en VbLf dans une cellule .

 

[Usine à gaz]

Bonjour Gérard
Merci une fois de plus : c'est mieux comme ça,
lionel