Confort visuel clignotement
Bonjour a tous
j'ai juste un problème visuel(confort visuel)
en cellule b8
exemple j'écris essai
tab pour passer a la cellule déprotège suivante j'ai un clignotement
si je passe encore a la cellule suivante sans rien écrire pas de clignotement
par contre si j'écrit A dans la cellule suivante j'ai un clignotement
la macro fonctionne très bien dans sa fonctionnalité
merci par avance
ps: un petit fichier
aiglon74
Bonjour
Le problème semble venir du fait que tu as des macros qui portent quasiment le même nom
Affichage et Affichage2 récupère_nom et récupère_nom1
A tester en modifiant les noms j'en ai modifié un et plus de clignotement
Crdlt
Bonjour à tous,
@ Joco7915 > je ne comprends pas ton propos > car le fait d'écrire dans la cellule B8 de la feuille "nouvelle ref" > puis de frapper la touche "Tab" ne fait pas appel aux macros susnommées ...
ric
Bonsoir
je viens de testé l'idée de Joco7915
sa ne change rien comme le dit ric les macros affichage et affichage1 ne font pas appel aux macros susnommées
j'ai le même fichier avec une macro plus simple en feuil nouvelle ref mais ne répond plus a ma demande
en voici le code
Private Sub Worksheet_Change(ByVal Target As Range)
'aiglon74
Application.EnableEvents = False 'force la majuscule
If Not Intersect(Target, Range("B8,D8,F8,H8,J8,L8,N8,P8")) Is Nothing Then
If Range("B8,D8,F8,H8,J8,L8,N8,P8") <> "" Then Target = UCase(Target)
End If
Application.EnableEvents = True
Dim cel As Range 'non trouvé en feuille "liste"
If Target.Address = "$B$8" Then
If Target = "" Then Exit Sub
With Sheets("Liste")
Set cel = .Columns("A").Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
cel.Offset(0, 1).ClearContents
Else
MsgBox Target & " non trouvé"
Range("B8").ClearContents
End If
End With
End If
End Sub
Private Sub Worksheet_Activate()
Range("b8").Select
End Sub
la je n'est pas de clignotement
en tout cas c'est juste un confort visuel si on peux le résoudre tant mieux
si non je ferais avec
en tout cas merci de votre aide
aiglon74
Bonjour à tous,
Essai ceci > mets en commentaire ou supprime la ligne ' Application.ScreenUpdating = False qui est au début du code ...
Y a-t-il un changement ?
ric
Re
ca fonctionne
mais ' Application.ScreenUpdating = False ces bien contre le scintillement de l'écran
aiglon74
Bonjour,
En fait > c'est pour geler l'écran le temps que les processus s'exécutent > l'affichage s'actualise à la fin du code où s'il rencontre cette commande à "TRUE" ...
Sous Excel 365 32 bits > je n'ai aucun scintillement avec ton code et cette commande ...
Puis > j'ai démarré une vieille machine muni d’Excel 2007 et là > surprise > ça scintille ...
Le code étant passablement court > la vieille machine étant lente > je me suis dit que je scintillement pouvait provenir de l'actualisation de l'affichage à la fin de la macro > c'est là que j'ai pensé à le tester sans cette commande > maagiiiiiiie ...
Dans ce cas particulier > la commande effectue l'effet inverse ...
L'important est d'avoir trouvé la source de ton souci ...
ric
Bonsoir,
en effet j'ai déjà vu cela, où le fait de mettre en "veille" la mise à jour était "plus pénalisant" que de ne rien faire.
@ bientôt
LouReeD
en tout cas un grand merci
pour l'exercice mais surtout pour la leçon
merci les pros
aiglon74