XL 2019 Recopier vers le bas

[Danyk01]

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]

Bonsoir Danyk,
Pour le 1er point, essayez :

=INDIRECT("'"&B5&"'!F62")

Fonction INDIRECT - Support Microsoft

Comment utiliser la fonction INDIRECT dans Excel pour modifier la référence à une cellule dans une formule sans modifier la formule elle-même.

support.microsoft.com

Pour le second point, peut on utiliser des macros VBA ?

 

[Danyk01]

Bonsoir Sylvanu
La cellule F62 contient des lettres (Un, M2, Ml etc)
Avec ta formule ça m'affiche un 0

 

[Danyk01]

Sinon ça marche

 

[Danyk01]

Pour le 2ème point, comment voyez-vous la chose?

 

[sylvanu]

Voir ma PJ, sur mon PC ça marche.

pour le 2ème point, comment voyez-vous la chose?

Tout dépend de ce que vous entendez par :

Peut-on empiler des plages de feuilles pour que toutes soient toutes visible sur l'écran?

 

[Danyk01]

Ci-joint le fichier (réduit) la plage verte correspond aux cellules des feuilles 1-2-3-4-5 cell F62
Chez moi j'ai un résultat 0

 

[sylvanu]

La formule ne peut être :

=INDIRECT("'"&E4&"'!F62")

puisque E4 est la cellule où se trouve la formule.
Dans votre tableau la formule doit être :

=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 :

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

 

[Danyk01]

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

 

[Danyk01]

Sylvanu
Quand je créé un bouton, je ne peux pas changer sa forme, car les boutons du ruban se mettent en gris dès que je clique droit sur ledit bouton, est ce que quelque chose se verrouille?

 

[sylvanu]

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 :

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 :

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]

Concernant les formules, tout fonctionne à merveille.
par contre je n'arrive pas à changer les boutons de forme, les icônes dans le ruban sont verrouillés quand j'active l'outil dessin "Format de forme"

 

[sylvanu]

par contre je n'arrive pas à changer les boutons de forme, les icônes dans le ruban sont verrouillés quand j'active l'outil dessin "Format de forme"

C'est quoi "Boutons de forme" et "Format de forme" ?

Si vous faites Insertion puis Forme, vous avez accès à toutes les formes voulues, non ?

 

[Danyk01]

Non tout le ruban devient grisé, désactivé Quant je clique Droit sur le bouton, Le bouton de forme se trouve dans styles WordArt

 

[Danyk01]

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