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

une macro qui rame

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dédé_la_sardine
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

dédé_la_sardine

Guest
bonjour

je suis nouveau sur ce forum
j'ai un peu cherché et j'ai pas trouvé ma réponse
si j'ai mal cherché, pardon d'avance

contexte
une macro qui masque / affiche dans une feuille les lignes selon la valeur d'une cellule dans cette ligne. en gros, masquer les lignes si quantité = 0

mon pb
1- j'ouvre le fichier
2- si je lance la macro c'est rapide
3- si je relance la macro , elle rame et idem les fois suivantes

ma question
- pourquoi ca rame ?
bien sur le code est ss doute pas génial

je vous joins le code d'une boucle (il y en a 4)
merci d'avance de vos idées ou commentaires
dédé

Count = 0
For b = 29 + Start To 46 + Start
'vide = Worksheets("Proposition Client").Cells(b, 8).Value
Range("D" & b).Select
vide = ActiveCell.Value
If (vide = "") Then
Rows(b).Select
Selection.EntireRow.Hidden = True
Else
Rows(b).Select
Selection.EntireRow.Hidden = False
Count = Count + 1
End If
Next b
If (Count = 0) Then
Rows(282).Select
Selection.EntireRow.Hidden = True
Else
Rows(282).Select
Selection.EntireRow.Hidden = False
End If
 
Trier par date Trier par votes
Re : une macro qui rame

Bonsoir,

si j'ai bien compris.....

Essaie ainsi :

Code: 
Sub Macro1()
Start = 0
With Range(Cells(29 + Start, 4), Cells(46 + Start, 4))
    .EntireRow.Hidden = False
    .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End With
End Sub
 
Vote positif 0 Vote négatif
Re : une macro qui rame

Bonsoir le forum,

En plus, pour gagner du temps, tu peux ajouter:

Application.screenupdating=false en début de macro

Puis à la fin

Application.screenupdating=true

ça évite la perte de temps avec la prise en compte de l'affichage.

A+
 
Vote positif 0 Vote négatif
Re : une macro qui rame

Bonsoir, Smotty

pour info

la ligne de code :

Code: 
Application.ScreenUpdating = False

n'impose une remise à True, que si tu utilises un USF, ou autres objets dans ton code (Inputbox......)

Le simple fait de fermer un code remet la valeur à True, et actualise la feuille....
 
Vote positif 0 Vote négatif
Re : une macro qui rame

Bonjour le forum,

tu pourrais aussi virer les selects qui ne servent a rien ainsi que la variable vide:

Code: 
Count = 0
For b = 29 + Start To 46 + Start
   If Range("D" & b).value = "" Then
      Rows(b).EntireRow.Hidden = True
   Else
      Rows(b).EntireRow.Hidden = False
      Count = Count + 1
   End If
Next b
If (Count = 0) Then
   Rows(282).EntireRow.Hidden = True
Else
   Rows(282).EntireRow.Hidden = False
End If

A+🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : une macro qui rame

merci pour vos réponses

@bhbh
merci pour la super macro qui a l'air bien compacte mais ca marche pas toujours
j'ai qqfois le message "pas de cellules correspondantes"

la méthode specialCell recherche une valeur (xlCellBlanks) mais la cellule observée contient une formule : =si(booleen;valeur 1;"")
du coup je sais pas si la ligne
.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
considere la valeur ou la formule de la cellule

toujours est-il que ca marche pas

@Bigfish

merci pour les remarques de concision et de productivité, j'en ai profité pour répercuter ailleurs
btw : bigfish = tres bon film, tres bonne BO

merci encore
cdt
dédé_la_sardine
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
891
candido57
C
D
  • Question Question
Microsoft 365 Macro pour conditionner une réponse selon des hypothèses
Réponses
3
Affichages
321
Phil69970
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
568
Yogean
Y
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
262
treza88
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
399
job75
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
963
Simon 1234
S
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
495
eric72
E
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
750
un internaute
U
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
662
Oneida
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
557
sylvanu
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
243
vazvaz
V
C
  • Question Question
Microsoft 365 Lenteur macro mise en page
Réponses
7
Affichages
376
CortoXls
C
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
760
Oneida
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
820
thunder23
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
824
Cheyenne_2021
C
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
638
Eric 888
S
  • Résolu(e)
XL 2016 Boucle For ne s'exécute pas comme une boucle et boucle infinie
Réponses
2
Affichages
448
Stéphane_1
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…