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

Problème avec la fonction "Application.ScreenUpdating = False"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Egruat
  • 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
E

Egruat

XLDnaute Occasionnel
Bonjour,

Voici une petite macro qui fonctione bien: elle consiste à scanner dans une colonne précise (C) les cellules non vides; pour chaque cellule non vide rencontrée je sélectionne les deux lignes ci-dessous et je les cacher. Et cela jusqu'à temps qu'aucune cellule nous vide ne soit rencontrée dans la colonne sélectionnée.

Pour rendre l'opération fluide à l'écran, je cherche à utiliser la fonction "Application.ScreenUpdating = False"; mais cela plante mon excel. QU'un peut-il m'aider?
Merci !

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("C8").Select
Do While Not (IsEmpty(ActiveCell))
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(2, 0)).Select
Selection.EntireRow.Hidden = IIf(Selection.EntireRow.Hidden = True, False, True)
ActiveCell.Offset(2, 0).Select
Loop
Range("C8").Select

End Sub
 
Trier par date Trier par votes
Re : Problème avec la fonction "Application.ScreenUpdating = False"

Bonjour,

etrange ce que tu nous dis là... essaye peut être ceci, mais suis pas sûr que cela réponde à ton besoin, à voir :
Code: 
Application.ScreenUpdating = False
On Error Resume Next
Range("C8", Range("C65536").End(xlUp)).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Application.ScreenUpdating = True

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Problème avec la fonction "Application.ScreenUpdating = False"

Merci.

Le problème avec ta solution est que lorsque je rappuie sur le bouton cela cache encore d'autres cellules. Or je cherche à pouvoir revoir les cellules cachées en rappuyant sur ce même bouton...
 
Vote positif 0 Vote négatif
Re : Problème avec la fonction "Application.ScreenUpdating = False"

Re,

ceci devrait être plus adapté, à voir :
Code: 
Application.ScreenUpdating = False
On Error Resume Next
With Range("C8", Range("C65536").End(xlUp)).SpecialCells(xlCellTypeBlanks)
    .EntireRow.Hidden = IIf(.EntireRow.Hidden, False, True)
End With
Application.ScreenUpdating = True
 
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

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
459
juju91
J
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
562
Yogean
Y
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
575
crocrocro
C
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
2 K
jurassic pork
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
536
danielco
D
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
747
patricktoulon
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
607
snoopy07
S
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
1 K
TooFatBoy
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
751
piga25
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
  • Résolu(e)
XL 2021 Affecter la valeur "ok" en colonne "F" uniquement sur les lignes visibles
Réponses
6
Affichages
707
Usine à gaz
T
  • Question Question
Microsoft 365 Code VBA
Réponses
2
Affichages
597
thierry33670
T
L
  • Résolu(e)
Microsoft 365 Changer code pour sélectionner 3lignes avec un pas de 1
Réponses
4
Affichages
552
laplayast
L
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
682
Lu76Fer
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
880
Usine à gaz
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
U
  • Question Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
766
un internaute
U
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…