Macro

Fermé
didsyl Messages postés 36 Date d'inscription lundi 4 juin 2012 Statut Membre Dernière intervention 29 avril 2021 - Modifié le 29 avril 2021 à 17:02
JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 - 29 avril 2021 à 18:21
Bonjour à tous.

Je vous expose mon problème.

J'ai la macro suivante:

ActiveSheet.Unprotect
Sheets("Feuil1").Select
Rows("46:46").Select
Selection.Copy
Sheets("Offre-facture ").Select
Selection.Insert Shift:=xlDown
Range("AJ19:AL19").Select
Selection.Copy
Range("AJ19:$AJ" & Range("AJ" & Rows.Count).End(xlUp).Offset(-6).Row).Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


je voudrais qu'après son exécution, la cellule activée soit celle dans laquelle j'ai effectué cette macro. Or, à chaque fois je me retrouve en C20. Si je suis dans le haut de mon tableau, ce n'est pas trop grave mais quand je suis dans les lignes 200 ou même 300, il faut chaque fois rechercher la ligne sur laquelle j'étais. J'espère être plus ou moins clair...

Je précise qu'il ne s'agit pas de la dernière cellule active, là j'ai bien trouvé le code VBA en faisant des recherches, il s'agit bien de la dernière cellule utilisée au moment de l'exécution de la macro.

D'avance merci à ceux qui se pencherons sur mon problème.

Didier


Configuration: Macintosh / Safari 14.0.3
A voir également:

1 réponse

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 461
29 avril 2021 à 18:21
Bonjour,
Un exemple de votre fichier avec explications serait le bienvenu.
Pour transmettre un fichier,
Veillez à ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Cordialement

0