Bonjour à toutes et à tous,
Sans bruit, tout doucement, je pose un problème que je n'arrive pas à résoudre (certains me reconnaîtront 🙂)
Peut-être que la nuit apporte l'oubli ......
Voici mon soucis et je ne sais vraiment pas le résoudre. Je planche depuis des jours la-dessus, je consulte, je recherche et je n'y arrive pas.
Votre aide bienveillante me sera précieuse bien évidemment.
Voici ce que je recherche :
J'aimerais aussi comprendre la solution en espérant ne pas trop vous importuner,
Merci encore une fois pour votre gentillesse,
Amicalement,
Caliméro,
Sans bruit, tout doucement, je pose un problème que je n'arrive pas à résoudre (certains me reconnaîtront 🙂)
Peut-être que la nuit apporte l'oubli ......
Voici mon soucis et je ne sais vraiment pas le résoudre. Je planche depuis des jours la-dessus, je consulte, je recherche et je n'y arrive pas.
Votre aide bienveillante me sera précieuse bien évidemment.
Voici ce que je recherche :
Code:
Sub Copie()
'
' Copie Macro
'
'
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="mdp"
feuille sur laquelle je souhaite faire la copie
Sheets("Copie").Select
ActiveSheet.Unprotect Password:="mdp"
feuille sur laquelle je sélectionne la cellule à copier
Range("A2:C37").Select
Selection.Copy
Sheets ( Il faudrait que la macro me propose la liste de mes feuilles pour sélection de la
feuille et que je clique sur la cellule concernée ) Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Copie").Select
ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
Sheets ( retour sur ma feuille ou a été copié la valeur ).Select
ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
J'aimerais aussi comprendre la solution en espérant ne pas trop vous importuner,
Merci encore une fois pour votre gentillesse,
Amicalement,
Caliméro,
Pièces jointes
Dernière édition: