Discussion :

[Master_x_99]

Bonjour à vous,


J'ai un macro trouvé sur internet qui me permet de trouver le nom de la shape présente dans une cellule.

Je fonctionne avec un Offset.

Sur la même ligne, à la gauche du bouton principale (Rectangle bleu) , se trouve 3 boutons aligner sur les trois cellules qui suivent vers la gauche.



J'ai une macro qui me permet de savoir si la shape comportant le nom Image est présente.

Tout fonctionne bien si il n'y a pas de shape avant
Exemple:

Shape présente seulement en Offset(0, -3) (Tout fonctionne bien)

Shape présente en Offset(0, -2) et Offset(0, -3) (Il valide la shape présente en Offset(0, -2) même si la macro est pour valider la shape présente en Offset(0, -3)

Je ne sais pas si je suis assez clair, mais voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub CommandButton6_Click()
   Dim xRg As Range
    Dim xShape As Shape
    Dim xFlag As Boolean
    On Error Resume Next
    Set xRg = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, -3)
    If xRg Is Nothing Then Exit Sub
    xFlag = False
    For Each xShape In ActiveSheet.Shapes
       If xShape.Name Like "*Image*" Then
            xFlag = True
        End If
    Next
    If xFlag Then
        MsgBox "Image exists!"
    Else
        MsgBox "Image does not exist"
    End If
End Sub

J'espère qu vous allez pouvoir m'aider!

Merci