Re : pb pour arreter la macro
bonjour,
merci pour vos reponses
j'ai un fichier excel qui me permet d'afficher une image à l'aide d'une liste deroulante. une fois le choix effecté on la valide "définitivement" en cliquant sur un bouton. l'image s'applique dc ds les autres feuille du classeur. lorsque lon clic sur le bouton il est par la suite "impossible" (mais pas français) de faire demie tour si l'on souhaite, c'est à dire revenir à l'etat original ou l'on choisie le nom ds la liste deroulante.
jespere avoir replacé l'origine de mon probleme
voici le petit plus qui je l'espere va permettre de resoudre mon petit probleme
voici le code VBA (que jespere complé)
Sub delete_logo()
On Error GoTo GèreErreur
Err.Clear
ActiveWorkbook.Names("ChoixLogo").Delete
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
Exit Sub
GèreErreur: ' Routine de gestion d'erreur.
MsgBox "Le logo a déja été appliqué !", vbExclamation, "Utilisation du dossier de travail Excel"
Exit Sub
End Sub
' Macro créée par HERT
'__________________________________________
Sub Insert_logo()
Dim Cell As Range
Dim Msg
Dim StyleBoiteDialogue
Dim Réponse
Msg = "Voulez-vous insérer les logos dans les pages séléctionnées en colonne H ?"
StyleBoiteDialogue = vbYesNo + vbQuestion + vbDefaultButton2
Réponse = MsgBox(Msg, StyleBoiteDialogue, "Insert Logo")
If Réponse = vbYes Then
Worksheets("000_Index").Select
ActiveSheet.Shapes("image1").Select
Selection.Copy
For Each Cell In Range("H19:H300")
If Cell <> "" Then GoSub Insert
Debug.Print Cell
Next Cell
Else
MsgBox "Aucun Logo ne sera inséré !", vbExclamation, "Attention !"
End If
Worksheets("000_Index").Select
Exit Sub
Insert:
Sheets(CStr(Cell.Offset(0, -3))).Select
Range("A1").Select
ActiveSheet.Paste
Worksheets("000_Index").Select
Return
End Sub