Aller chercher dans la feuille précédante
ThomC
-
ThomC -
ThomC -
Bonjour,
dans un classeur excel j'ai une macro qui va chercher une formule dans la feuille précédente et la colle dans la feuille actuelle.
Je suis sur la feuille 51 et je vais chercher les info sur la feuille 50
----------------------------------------
Sheets("50").Select
Range("A1:A5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("51").Select
Range("A1:A5").Select
ActiveSheet.Paste
------------------------------------------
Seulement j'ai fait cette macro avec le mode enregistrement et donc je ne peux pas l'appliquer à d'autres feuille que la feuille "51" ! Je voudrais que cette macro puisse prendre la feuille "actuelle" et copie les formules de la feuille "50".
Quelqu'un saurait il si c'est faisable et comment faire ? merci d'avance.
dans un classeur excel j'ai une macro qui va chercher une formule dans la feuille précédente et la colle dans la feuille actuelle.
Je suis sur la feuille 51 et je vais chercher les info sur la feuille 50
----------------------------------------
Sheets("50").Select
Range("A1:A5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("51").Select
Range("A1:A5").Select
ActiveSheet.Paste
------------------------------------------
Seulement j'ai fait cette macro avec le mode enregistrement et donc je ne peux pas l'appliquer à d'autres feuille que la feuille "51" ! Je voudrais que cette macro puisse prendre la feuille "actuelle" et copie les formules de la feuille "50".
Quelqu'un saurait il si c'est faisable et comment faire ? merci d'avance.
A voir également:
- Aller chercher dans la feuille précédante
- Feuille de pointage excel - Télécharger - Tableur
- Verrouiller cellule excel sans verrouiller la feuille - Guide
- Feuille a5 - Guide
- Bruler feuille de laurier - Guide
- Feuille d'aluminium - Guide
2 réponses
--
Pourquoi se compliquer la vie à faire simple, quand c'est si simple de faire compliqué?
Dim NomFeuilleActuelle as String
NomFeuilleActuelle = ActiveSheet.Name
Sheets("50").Select
Range("A1:A5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(NomFeuilleActuelle).Select
Range("A1:A5").Select
ActiveSheet.Paste
Pourquoi se compliquer la vie à faire simple, quand c'est si simple de faire compliqué?
Dim NomFeuilleActuelle as String
NomFeuilleActuelle = ActiveSheet.Name
Sheets("50").Select
Range("A1:A5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets(NomFeuilleActuelle).Select
Range("A1:A5").Select
ActiveSheet.Paste
