Ralentissement [Résolu]

Signaler
Messages postés
20
Date d'inscription
vendredi 9 août 2019
Statut
Membre
Dernière intervention
8 mars 2021
-
Messages postés
20
Date d'inscription
vendredi 9 août 2019
Statut
Membre
Dernière intervention
8 mars 2021
-
Bonjour à tous,

Je viens de commencer la création d'un petit CRM avec une page d'accueil, des boutons renvoyant vers certains onglets qui sont cachés à l'ouverture. Sur ces onglets, une flèche de retour renvoyant sur l'onglet d'accueil.

J'ai du mal faire un truc car ce fichier pourtant si léger a des ralentissements. J'ai déjà désactivé toutes mes formules. Toujours ralentissement, donc cela doit venir de mes macros. Mais là je bloque.

La macro qui affiche et sélectionne les onglets activés par boutons (un bouton = une macro qui ouvre un onglet) :

Sub Onglet_Fournisseurs()
With Sheets("Fournisseurs")
.Visible = True
.Select
End With
If Range("A2") <> "" Then
Range("A65000").End(xlUp).Offset(1).Select
Else
Range("A2").Select
End If
Sheets("Accueil").Visible = False
End Sub


La macro qui renvoit sur l'onglet Accueil

Sub Retour_Accueil()
Sheets("Accueil").Visible = True
ActiveSheet.Visible = False
Sheets("Accueil").Activate
Range("A1").Select
End Sub

Mon fichier :
https://mon-partage.fr/f/dBwVptvH/

Une idée?

Merci à vous
Benoît

2 réponses

Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
1 673
Bonjour,

Je ne sais pas d'où vient exactement la lenteur mais sous Excel, il y a des règles fondamentales à respecter.
Notamment :
- un tableau ne doit JAMAIS contenir des lignes vides
- Ne pas créer de macro quand on peut utiliser les ressources natives du tableur (dans ce cas utiliser des hyperliens).

Messages postés
20
Date d'inscription
vendredi 9 août 2019
Statut
Membre
Dernière intervention
8 mars 2021

Bonjour Patrice,

J'ai préféré utiliser des Macros pour les différents onglets, car ce petit fichier sera utilisé par une personne très peu disciplinée sous excel et qui a tendance à vouloir modifier tout ce qu'elle peut, sinon vous avez raison j'aurai utilisé des liens hypertexte.