vérifier si shapes existe

Roland_M

XLDnaute Barbatruc

• 5 Mars 2014

• #2

Re : vérifier si shapes existe

bonsoir,

voir ce code qui peut t'aider à voir et comprendre !?
mettre dans un module et taper F5 !

Code:

Private Sub AffichShapes()
Dim F As Worksheet, S As Shape
For Each F In ThisWorkbook.Worksheets
For Each S In F.Shapes
 MsgBox F.Name & " > " & S.Name & vbLf & "Type = " & S.Type
Next: Next
Set F = Nothing: Set S = Nothing
End Sub

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 5 Mars 2014

• #3

Re : vérifier si shapes existe

Bonsoir
merci beaucou de me répondre
Je suis si nul que ça ? j'y arrive pas : f5 : me lance "atteindre" et alt F5 son erreur

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 5 Mars 2014

• #4

Re : vérifier si shapes existe

re:

ben faut croire que oui

allez, soyons plus sérieux, tu colles ce code en haut dans ton Module1
tu clis dessus pour placer ton curseur dessus et tu Tapes F5
tu verras s'afficher les feuilles et les objets qu'il y a dedans !
apparemment il y en a une flopée !

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 5 Mars 2014

• #5

Re : vérifier si shapes existe

je viens de lire ta réponse, etne pansais qu'il fallait sortir , et seulement sur la feuille faire F5 ;................
en tout cas ton code marche nickel( en sub normal par bouton, entre temps)
alors dans la foulée, mon but est donc de vérifier que je n'ai pas un shape spécifique , j'ai essayé en adaptant........
et évidement je cumule .....
For Each S In ActiveSheet.Shapes
If S.Name = "plaque transfert devis" Then

MsgBox ActiveSheet.Name & " > " & S.Name & vbLf & "Type = " & S.Type
Next

encore un petit coup de pouce ? hier j'ai posté mon gros soucis sur un if , j'en nage encore, ou plutôt je coule

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 5 Mars 2014

• #6

Re : vérifier si shapes existe

re

le problème c'est qu'on ne comprends pas très bien la question !?
peut être !?

Code:

Dim S As Shape, Trouve As Boolean
Trouve = False
For Each S In ActiveSheet.Shapes
 If S.Name = "plaque transfert devis" Then Trouve = True: Exit For
Next
If Trouve Then
 'ici action de ce que tu souhaites si existe !? ou pas !?
End If

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 5 Mars 2014

• #7

Re : vérifier si shapes existe

voilà j'ai pondu ça, mais ça marche à l'envers ! je comprends pas , SI....condition OK..alors.....instruction
Sub AffichShapes3()
Dim S As sHape

For Each S In ActiveSheet.Shapes
If S.Name = "plaque validation N° facture" Then
MsgBox S.Name
Else
MsgBox "rien"
End If
Next:
Set S = Nothing
End Sub

???? merci

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 5 Mars 2014

• #8

Re : vérifier si shapes existe

je viens de lire ta réponse, tu es trop gentil de me répondre en " direct"
de ce que je comprends, ça correspond, je regarde de suite

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 5 Mars 2014

• #9

Re : vérifier si shapes existe

C'est ça !!!!
mais juste une question, juste après "exit for
j'ai mis MsgBox "enfin trouvé !"
et il m'a répété plein de fois le msgbox, pourtant , j'ai cru comprendre que ça servait à sortir de la boucle dès que l'on trouve un bonne réponse ?

 

Vote positif 0 Vote négatif

A

andrekn13

XLDnaute Occasionnel

• 5 Mars 2014

• #10

Re : vérifier si shapes existe

NICKEL
je te suis trop reconnaissant
Sub AffichShapes5()
Dim S As sHape, Trouve As Boolean
Trouve = False
For Each S In ActiveSheet.Shapes
If S.Name = "plaque facture validée" Then Trouve = True: Exit For
Range("I5") = "ZUT"
'MsgBox "enfin trouvé !"
Next
If Trouve Then
MsgBox "enfin trouvé !"
Range("I5") = "OK" 'ici action de ce que tu souhaites si existe !? ou pas !?
End If
End Sub
merci

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 5 Mars 2014

• #11

Re : vérifier si shapes existe

re

Code:

'recherche si exite
Dim S As Shape, Trouve As Boolean
Trouve = False
For Each S In ActiveSheet.Shapes
 'si trouvé sortir de For
 If S.Name = "plaque transfert devis" Then Trouve = True: Exit For
Next

'une fois sortie je test si trouvé ou pas
If Trouve Then
   'ici trouvé suite de ce que tu souhaites si existe !?
Else
   'ici non trouvé suite de ce que tu souhaites si n'existe pas !?
End If

 

Vote positif 0 Vote négatif