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
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 767
 
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