Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 

Danyk01

XLDnaute Occasionnel
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
 

Pièces jointes

  • Capture.JPG
    371.6 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.
 

Pièces jointes

  • ESSAI (2).xlsm
    445.5 KB · Affichages: 2

Danyk01

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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.
VB:
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
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
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é.
VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…