Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel verifier si shapes existe

verifier si shapes existe

3 réponses
Avatar
ThierryK
Bonjour à toutes & à tous

dans le code ci dessous si le Shape n'existe pas j'ai une erreur dans la
ligne
Sheets("Parametres").Shapes(Signature).Copy (normal)


comment vérifier que le shapes existe

If Target = "" or Sheets("Parametres").Shapes(Target).name "n'existe
pas" Then
end If
else
Signature = "Sign_" & Target
Sheets("Parametres").Shapes(Signature).Copy
Target.Offset(1, 0).Select
ActiveSheet.Paste
Selection.Name = "monImage"
Selection.ShapeRange.Left = ActiveCell.Left
Selection.ShapeRange.Top = ActiveCell.Top
Target.Select
End If

mais je cale

en vous remerciant d'avance pour votre aide et vos conseils

ThierryK

Windows XP Pro SP3
Office 2003
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Hervé
Bonjour Thierry,

Avecun gestionnaire d'erreur :

Dim Sh As Shape
Dim Signature As String

Signature = "Sign_" & Target

On Error Resume Next
Set Sh = Sheets("Parametres").Shapes(Signature)

If Err.Number <> 0 Then

Err.Clear
Exit Sub

Else

Sh.Copy
Target.Offset(1, 0).Select
ActiveSheet.Paste
Selection.Name = "monImage"
Selection.ShapeRange.Left = ActiveCell.Left
Selection.ShapeRange.Top = ActiveCell.Top
Target.Select

End If

Hervé.


"ThierryK" a écrit dans le message de
news:
Bonjour à toutes & à tous

dans le code ci dessous si le Shape n'existe pas j'ai une erreur dans la
ligne
Sheets("Parametres").Shapes(Signature).Copy (normal)


comment vérifier que le shapes existe

If Target = "" or Sheets("Parametres").Shapes(Target).name "n'existe
pas" Then
end If
else
Signature = "Sign_" & Target
Sheets("Parametres").Shapes(Signature).Copy
Target.Offset(1, 0).Select
ActiveSheet.Paste
Selection.Name = "monImage"
Selection.ShapeRange.Left = ActiveCell.Left
Selection.ShapeRange.Top = ActiveCell.Top
Target.Select
End If

mais je cale

en vous remerciant d'avance pour votre aide et vos conseils

ThierryK

Windows XP Pro SP3
Office 2003
Avatar
ThierryP
Salut ThierryK ;-)

Peut-être juste une gestion d'erreur : On error goto xxx

Dimanche pluvieux, Excel heureux !!!

Le 21/03/2010 09:48, ThierryK a écrit :
Bonjour à toutes & à tous

dans le code ci dessous si le Shape n'existe pas j'ai une erreur dans la
ligne
Sheets("Parametres").Shapes(Signature).Copy (normal)


comment vérifier que le shapes existe

If Target = "" or Sheets("Parametres").Shapes(Target).name "n'existe
pas" Then
end If
else
Signature = "Sign_" & Target
Sheets("Parametres").Shapes(Signature).Copy
Target.Offset(1, 0).Select
ActiveSheet.Paste
Selection.Name = "monImage"
Selection.ShapeRange.Left = ActiveCell.Left
Selection.ShapeRange.Top = ActiveCell.Top
Target.Select
End If

mais je cale

en vous remerciant d'avance pour votre aide et vos conseils

ThierryK

Windows XP Pro SP3
Office 2003



--
----
ThierryP

Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
Avatar
ThierryK
Bonjour

merci à tout les 2 pour vos conseils

on error goto
fut la solution si évidente qu'elle resta ignorée.


en vous remerciant d'avance pour votre aide et vos conseils

ThierryK

Windows XP Pro SP3
Office 2003 & 2007