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

[Qwazerty]

Salut

Pourrais tu expliquer ce que tu cherches à faire plutôt. Quel est le but? Tu cliques sur quoi et tu souhaiterais obtenir quoi?

++
Qwaz

[Master_x_99]

La raison de mon utilisation du Offset est parce que j'ai plusieurs boutons sur la feuille.

Le offsett me permet de localiser la bonne shape.

Cette situation est sans reproches.

Ce que je cherche à faire.

J'ai un userform avec 3 boutons qui me permet de ciblé les boutons présents dans ma feuille active de 1 à 3 .

Ma problématique est lorsque je clique sur le bouton 1, qui est associé au offset (0, -3), il ne vérifie pas seulement la cellule du offset. Il débute par valider le nom du offset (0, -1) ensuite, le offset (0, -2) pour terminer avec le offset (0, -3). Dans l'éventualité que le nom du bouton du offset (-0, -1) est le même que la recherche, il m'indique "Image exist", alors que dans le offset (0, -3) le nom n'est pas le même et je devrais avoir la réponse du msgbox "Image does not exist"

Je sais pas si je suis assez clair une fois de plus.

Merci de vous pencher sur mon problème

[Qwazerty]

Hum, quelque chose comme ça?

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Function IsBoutonOK(CellBouton As Range, NomBouton As String) As Byte
'IsBoutonOK renvoit
    '0 si la cellule ne comporte pas de bouton
    '1 si un bouton est présent mais n'a pas le bon nom
    '2 si le bouton porte le bon nom
Dim aShp As Shape
 
    'On boucle sur les shape de la feuille
    For Each aShp In CellBouton.Worksheet.Shapes
        'On regarde si le shape est bien dans la cellule pointée
        If aShp.TopLeftCell Is CellBouton Then
            'Le bouton est dans la cellule CellBouton, on vérifie son nom
            IsBoutonOK = IIf(aShp.Name <> NomBouton, 1, 2)
            Exit For
        End If
    Next
 
End Function
 
 
Sub test()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Byte
 
    On Error Resume Next
    'Il vaudrait mieux nomer la feuille plutôt que d'utiliser ActiveSheet
    Set xRg = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(0, -3)
    On Error GoTo fin
 
    If Not xRg Is Nothing Then
        xFlag = IsBoutonOK(xRg, "Image")
        If xFlag > 1 Then
            'Le bouton est bien dans la cellule est porte le bon nom
        ElseIf xflg > 0 Then
            'Le bouton porte un nom différent mais est présent dans la cellule
        Else
            'Pas de bouton dans cette cellule
        End If
    End If
 
 
End Sub

Non testé

++
Qwaz