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]

Etes vous sur que votre feuille n'est pas protégée ?
En tout cas, c'est ce que j'observe sur mon XL.

 

[Danyk01]

Bonjour Sylvanu

Dans ta formule :
Sub ToutVoir() ' Feuilles de 1 à 88 visibles
Dim N%: Application.ScreenUpdating = False
For N = 1 To 88: Sheets(CStr(N)).Visible = True: Next N
End Sub

Peut-on rajouter que les fenêtres s'affichent dès le début comme sur le fichier Jpg
Car si je clique "voir toutes les fenêtres" ça m'affiche des fois une plage de 60 à 88 mais pas au tout début comme je voudrais sur le fichier joint
J'aimerai que la première fenêtre s'affiche si je clique ce bouton
Merci à toi

 

[Danyk01]

encore une question :
J'ai ajouté des feuilles sur ta liste : 77;78;79;80;81 etc.... 88
Est ce que c'est limité à 88 feuilles ? car je ne peux plus continuer plus loin

 

[sylvanu]

Bonjour,

Peut-on rajouter que les fenêtres s'affichent dès le début comme sur le fichier Jpg

Chez moi afficher tout commence toujours au début :

Est ce que c'est limité à 88 feuilles ?

La liste de 1 à 88 fait 255 caractères. Je pense que c'est ça la limite on ne peut aller plus loin.
Une solution :
Dans une feuille ( en PJ j'ai mis ça dans COND ) on fait la liste des feuilles ( je suis allé jusqu'à 200. )
On nomme cette plage ( j'ai choisi Liste )
et dans la liste déroulante, on remplace le 1;2;3;... par =Liste.

 

[Danyk01]

Bonsoir Sylvanu
Ca fonctionne, pour l'instant j'ai fait 100 pages, ça devrait suffire, mais je pourrais en rajouter si besoin

Oui ça remet au début si on ne s'est pas arrêté sur la feuille 80 par ex. auparavant.
si on s'est arrêté sur la feuille 20 par ex., ça affiche effectivement au début
Regarde chez toi, consulte la feuille 70 par ex. et revient sur le bouton "voir tout"
Chez moi ça reste sur cette plage ou se situe la feuille 70

 

[sylvanu]

Bonsoir,
Si j'ai bien fait la manip, sur mon PC ça marche. ( Win10, XL2007)

Peut être un problème de version XL.
Essayez cette macro. Avant de lancer ToutVoir, je lance ToutMasquer. Peut être que cela résoudra le problème sur votre PC.

Sub ToutVoir()  '           Feuilles de 1 à 75 visibles
Dim N%: Application.ScreenUpdating = False
MasqueTout
For N = 1 To 88: Sheets(CStr(N)).Visible = True: Next N
End Sub

 

[Danyk01]

Moi ça me renvoie chaque fois sur la feuille 99
j'ai la version XL 2019
Je me contenterai comme ça
En tout cas merci pour ton dévouement, l'essentiel de mon problème est résolu

 

[sylvanu]

Je me suis "amusé" à enregistrer une macro quand j'appuie sur le bouton de retour à gauche des feuilles :

Ca à l'air de marcher, ça donne : ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Donc essayez en dernier recours ceci pour la macro ToutVoir :

Sub ToutVoir()  '           Feuilles de 1 à 75 visibles
Dim N%: Application.ScreenUpdating = False
For N = 1 To 88: Sheets(CStr(N)).Visible = True: Next N
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End Sub

Bonne chance, donnez le résultat.

 

[Danyk01]

Bonjour Sylvanu
J'ai essayé mais ça ne fonctionne pas, chez moi ça renvoie toujours sur une autre plage de feuilles
Te tracasse pas, je suis déjà content de ce que tu m'as aidé
A bientôt

 

[sylvanu]

Bonsoir,
Cela reste un échec, et en plus inexpliqué. Ce qui est agaçant.
Alors une petite dernière, si ça ne marche pas tant pis. Tout aura été essayé.

Sub ToutVoir()  '           Feuilles de 1 à 88 visibles
Dim N%: Application.ScreenUpdating = False
MasqueTout
For N = 88 To 1 Step -1: Sheets(CStr(N)).Visible = True: Next N
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
End Sub

 

[Danyk01]

Bonjour Sylvanu
Impec, ça fonctionne maintenant
Félicitations
A bientôt