XL 2019 Recopier vers le bas

Danyk01

XLDnaute Occasionnel
Bonjour

1) Question
j'ai besoin d'aide sur la fonction recopier vers le bas
je voudrais recopier vers le bas la cellule contenant le résultat : ='1'!$F$62
='2'!$F$62
='3'!$F$62
etc....
Quelqu’un t-il une solution?

2) Question
J'ai un classeur avec 75 feuilles, pour chercher la dernière ça prends chaque fois bcp de temps car elles sont cachées et il faut les chercher avec la flèche,
Peut-on empiler des plages de feuilles pour que toutes soient toutes visible sur l'écran?
ou y a t-il une astuce pour accéder plus facilement aux dernières feuilles?

Merci pour votre aide
Danyk01
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
La formule ne peut être :
VB:
=INDIRECT("'"&E4&"'!F62")
puisque E4 est la cellule où se trouve la formule.
Dans votre tableau la formule doit être :
Code:
=INDIRECT("'"&Tableau6[[#Cette ligne];[N°]]&"'!F62")

En PJ un essai avec 4 macros permettant de masquer ou démasquer les feuilles de "1" à "75"
et deux macros permettant la même chose mais sur une feuille spécifique.
Avec :
Code:
Sub MasqueTout() '          Masque les feuilles de 1 à 75
Dim N%: Application.ScreenUpdating = False
For N = 1 To 75: Sheets(CStr(N)).Visible = False: Next N
End Sub
Sub ToutVoir()  '           Feuilles de 1 à 75 visibles
Dim N%: Application.ScreenUpdating = False
For N = 1 To 75: Sheets(CStr(N)).Visible = True: Next N
End Sub
Sub VoirFeuilleX() '        Voir la feuille dont le nom est en H8
Dim N%: Application.ScreenUpdating = False
Sheets(CStr([H8])).Visible = True
End Sub
Sub MasquerFeuilleX() '     Masque la feuille dont le nom est en H8
Dim N%: Application.ScreenUpdating = False
Sheets(CStr([H8])).Visible = False
End Sub
 

Pièces jointes

  • ESSAI.xlsm
    409 KB · Affichages: 2

Danyk01

XLDnaute Occasionnel
Bonjour Sylvanu
Merci pour ta réponse
Le code "INDIRECT" Fonctionne
Pour l'autre, je ne comprends pas comment faire la liste de la source 1;2;3; etc
j'ai créé un bouton que j'ai nommé N° de feuille mais comment le faire communiquer avec la macro
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Déjà, est ce que les macros de ma PJ vous satisfont ? C'est un minimum pour savoir dans quelle direction aller.
Pour l'autre, je ne comprends pas comment faire la liste de la source 1;2;3; etc
Recopiez simplement la liste qui est dans ma PJ, c'est plus simple. Sinon recopiez :
VB:
1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31;32;33;34;35;36;37;38;39;40;41;42;43;44;45;46;47;48;49;50;51;52;53;54;55;56;57;58;59;60;61;62;63;64;65;66;67;68;69;70;71;72;73;74;75
je l'ai construite via des formules pour être plus rapide.
mais comment le faire communiquer avec la macro
Sur le bouton, faites clic droit et affecter macro. C'est la macro qui va chercher la bonne valeur au bon endroit, comme par ex avec :
Code:
Sheets(CStr([H8])).Visible = True
On prend la valeur en H8, on la transforme en texte, et la feuille qui porte se nom devient visible.
 

Danyk01

XLDnaute Occasionnel
J'ai compris, moi j'ai fait le bouton à partir du développeur - insérer - bouton contrôle de formulaire
et toi tu le fais à partir de l'onglet insertion
j'ai essayé et oui ça marche, maintenant les onglets sont bien visibles
Tout OK
Tu es un AS
Mille merci
Danyk01
 

Discussions similaires

Statistiques des forums

Discussions
313 265
Messages
2 096 663
Membres
106 703
dernier inscrit
cbl