Discussion :

[Gautheron]

Bonjour,

voilà mon problème.
J'utilise des macros pour créer des shapes et y intégrer un texte.
Seulement, il est possible que un shape contenant déjà le même texte existe et il ne serait pas utile alors d'en créer un nouveau.

Juqu'à maintenant, j'utilisais un code en boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
                   For Each img In ActiveSheet.Shapes
                        If img.Type = 1 Then
                             If img.TextFrame.Characters.Text = c.Value then exit sub
                        End If
                    Next

Mais je trouve ce code un peu ridicule car il peut faire mouliner beaucoup la machine selon le nombre de shapes.

J'essais donc de trouver une forme avec find

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
                     With ActiveSheet.Shapes.TextFrame.Characters 'ca plante là
                        Set f = .Find("toto")   '(là, quels argument faut il mettre ?
                        If Not f Is Nothing Then
                           MsgBox "cool"
                        End If
                        End With

, mais je n'y arrive pas.

Merci de votre aide
.

[SilkyRoad]

bonsoir

à mon avis ce n'est pas possible. Il faut boucler sur les formes, comme tu le fais actuellement.

bonne soirée
michel

[fred65200]

bonsoir,

pourquoi ne pas nommer les Shapes à la création et vérifier ensuite si le Shapes existe. Ou vérifier s'il existe et le créer à la demande.

[Gautheron]

Certes les nommer accélère le processus, et en effet je l'ai fait pour distinguer les origines des infos.

Donc si j'en crois SilkyRoad, y a pas de code plus fin que la boucle...

[EddiGordo]

Bonjour,

Si tu les as nommés il y a une possibilité d'accès direct, un peu barbare mais peut-être intéressante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim myShapeText As String
 
Err.Clear
On Error Resume Next
myShapeText = ActiveSheet.Shapes("NomShape").TextFrame.Characters.Caption
On Error Goto 0
If Err <> 0 Then
    ' Code à exécuter si la Shape n'existe pas
Else
   ' La Shape existe bien et myShapeText contient son texte
Endif

Remplacer évidemment "NomShape" par une variable..

[Gautheron]

Yep, interessant.

Je les ai certes nommés mais par catégorie et incréments; c'est a dire une info relatif à un client, le nom commence par "client_" mais y a un increment ensuite que je ne domine pas vis à vis de l'information contenu dans la shape...
donc je cherchais vraiment à trouver un contenu exacte d'une shape et pas son à travers son nom.