Microsoft 365 condition sur texte d'une bulle

Usine à gaz

XLDnaute Barbatruc

• 1 Mai 2022

• #2

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

VB:

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 ... ?

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Mai 2022

• #3

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*"

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 1 Mai 2022

• #4

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Mai 2022

• #5

Usine à gaz à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 1 Mai 2022

• #6

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Mai 2022

• #7

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 1 Mai 2022

• #8

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

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 1 Mai 2022

• #9

Ça aussi, ça fonctionne :

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Mai 2022

• #10

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 :

VB:

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

A+

 

Pièces jointes

• z bulle1.xlsm

  24.3 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

fanch55

XLDnaute Barbatruc

• 1 Mai 2022

• #11

job75 à dit:

Bonjour Lionel, fanch55,

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

A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 1 Mai 2022

• #12

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

 

Vote positif 0 Vote négatif