Création macro

toph54 Messages postés 56 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Suite à un problème concernant la protection des cellules, je me retrouve avec une solution (macro) qui fonctionne.
Sauf que je suis bloqué sur ma macro.
Ci joint l'ébauche que j'ai faite mais malheureusement elle ne correspond pas à mes attentes.

Maintenant j'aimerai pouvoir faire la même avec une zone à copier non défini ainsi que la cellule définissant la zone de collage
Merci par avance pour vos conseils précieux


Sub copier()
'
' copier Macro
'
' Touche de raccourci du clavier : Option+Cmd+y
'
ActiveSheet.Unprotect
ActiveWindow.SmallScroll Down:=68
ActiveWindow.SmallScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=25
ActiveCell.Offset(43, 0).Range("A1:I58").Select
ActiveCell.Offset(100, 8).Range("A1").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=-1
ActiveCell.Offset(1, -8).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
A voir également:

1 réponse

Réponse 1 / 1
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Cette macro est issue de l'enregistreur de macro, les lignes :
ActiveWindow.SmallScroll Down:=68
ActiveWindow.SmallScroll ToRight:=-1
ActiveWindow.SmallScroll Down:=25
et
ActiveWindow.SmallScroll Down:=-1
sont inutiles et peuvent être supprimées.

« Maintenant j'aimerai pouvoir faire la même avec une zone à copier non défini ainsi que la cellule définissant la zone de collage »
Ça c'est absolument impossible !!!
Pour copier une plage de cellules il est impératif de définir cette plage et pour la coller il faut obligatoirement définir à quel endroit.

Je pense que tu exposes très mal ton problème. Expliques en détail comment tu voudrais procéder et ce que tu voudrais comme résultat.
0