Vérifier le contenu d'une forme avec une macro Excel

florian74 Messages postés 324 Statut Membre -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'aurai voulu savoir si il est possible de vérifier le contenu d'une forme type rectangle (et non d'une cellule) dans Excel au moyen d'une macro. Je souhaite juste vérifier si celle-ci est vide (en écriture) ou non.

Cordialement,

Florian

1 réponse

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Tu peux essayer d'adapter cette macro :
    Sub TexteDansShape()
    Dim Sh As Shape, YaTilDuTexte As String
    
    For Each Sh In ActiveSheet.Shapes
        If Sh.Name = "Rectangle 1" Then
            YaTilDuTexte = Sh.TextFrame2.TextRange.Characters.Text
        End If
    Next
    If YaTilDuTexte = "" Then
        MsgBox "Il n'y a rien d'écrit dans mon Rectangle"
    Else
        MsgBox "Dans mon Rectangle est écrit : " & YaTilDuTexte
    End If
    End Sub

    0