bonjour forum
j'ai un petit problem pour faire "demi tour " sur une macro
san la suprimé (ceci di meme si je souhaité la supprimé je ne serrer meme pas laquelle
voici me semble til la macro qui si refere :
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
il y a semble til cette partie de macro qui semble resoudre le proble mais je ne c pas commen faut faire
Sub Efface_logo()
Dim Cell As Range
Dim Msg
Dim StyleBoiteDialogue
Dim Réponse
Msg = "Voulez-vous supprimer les logos dans les pages séléctionnées en colonne H ?"
StyleBoiteDialogue = vbYesNo + vbQuestion + vbDefaultButton2
Réponse = MsgBox(Msg, StyleBoiteDialogue, "Efface Logo")
If Réponse = vbYes Then
Worksheets("000_Index").Select
For Each Cell In Range("H19:H300")
If Cell <> "" Then GoSub Efface
Debug.Print Cell.Address
Next Cell
Else
MsgBox "Aucun Logo ne sera supprimé !", vbExclamation, "Attention !"
End If
j'espere avoir forni un max d'info pour que lon puisse m'aider
je vais essayer de voir encore sil y a d'utre code VBA pour resoudre cette solution
merci pour votre aide
yoann