ScreenUpdating=false ne marche pas

[Philippe]

Bonsoir les amis,

dans l'appli que je développe, depuis une USF qui ouvre des fenêtres en cascade, VBA va chercher et écrire des données çà et là dans différentes feuilles. Dans le code de l'USF, 'Application.screenUpdating=false' ne donne rien, je contourne donc en écrivant dans la feuille sans l'ouvrir, en faisant 'sheets('feuil').range('A1').value=blabla'. Jusque là, ça va.
Par contre à certains moments, il faut que les listes modifiées via l'USF soient reclassées par ordre alphabétique et VBA n'accepte pas 'sheets('feul').range('A1:S20')....' apparemment on peut sélectionner une cellule sans 'ouvrir' la feuille mais pas une plage...
comment procéder pour éviter ce disgracieux clignotement d'écran à chaque modif ????

Désolé, un peu long mais j'essaie d'être précis....

merci d'avance pour vos précieux conseils

 

[PascalXLD]

Bonjour

Effectivement pour faire un tri en vba, il me semble bien qu' il faut faire un select de ta feuille.

Par contre le screenupdating=false devrait eviter de voir ce tri se faire

Bon WE

 

[Bricofire]

Bonjour Philippe et Pascal76

Au risque de m'attirer les foudres de ....

Philippe, ton code est du genre structure simplifiée ici)

Private Sub UserForm_Click()
Application.ScreenUpdating = False
'Call Plop2
Worksheets('Feuil1').Activate
For Each feuila In ActiveWorkbook.Worksheets
feuila.Activate
Range('A1').Select
Range('L84').Select
Range('D20').Select
Next feuila
Application.ScreenUpdating = True
End Sub

ou

Private Sub Cmd1_Click()
Application.ScreenUpdating = False
'Call Plop2
Worksheets('Feuil1').Activate
For Each feuila In ActiveWorkbook.Worksheets
feuila.Activate
Range('A1').Select
Range('L84').Select
Range('D20').Select
Next feuila
Application.ScreenUpdating = True
End Sub

ou ça n'a iren à voir, mon dragon a respiré trop de fumée et faut lui expliciter

cordialement,

Bfr

 

[Philippe]

bonsoir les amis,
je répond tard, mais je 'VBAte' 'en nocturne' en ce moment (obligations professionnelles et familiales oblige )
bon en clair: Pascal, justement mon prob c'est que 'application.screenupdating=false' n'empèche pas le sceenupdating quand cette instruction est lancée via le code d'activation d'un bouton de l'USF (c'est tout mon problème!!!)...
Pour bricofire;
le code:
'je pars de la feuille 'Feuil1' d'où s'active mon USF
et je dois trier sur ''Feuil2'
Application.ScreenUpdating = False
sheets('feuil2').select
vligne=(range('A65536').end(xlup)
Range('A2:S' & vligne).Select
Selection.Sort Key1:=Range('A2'), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True

ce code est dans le code évènementiel de l'USF

et tout ce qui se passe pdt le déroulement de la macro se voit à l'écran... pas grave mais très moche...

KIKAUNEIDé ???

 

[Philippe]

Je sais pas pourquoi il y a un smiley qui se met tout seul dans mon code ???, il faut lire range ('A2:S' & vligne)

(j'espère qu'il n'y aura pas de smiley)....

 

[ChTi160]

Salut philippe
bonjour le Forum
pour ce qui est du Smiley
c'est que dans ton texte tu tapes peut être l'équivalent des Racourcis Pour l'affichage des Smileys
ex : et ) celà donne
ex : et ( celà donne

Message édité par: ChTi160, à: 29/05/2005 10:11

 

[Bricofire]

Bonjour Philippe, le fil
Philippe,
Vois avec le fichier joint vu que t’es occasionnel, :lol: je n’ai pas fait le ménage…, (aujourd’hui = fête des mères et guère opportun que je sois scotché au micro ) mais en cliquant juste dans l’USF (pas sur un bouton), tu vois ce que ça fait (résultat après le OK du MsgBox, donc visible dans la colonne E-rouge), en faisant joujou avec le mode commentaire sur la ligne du screenupdating, on voit avec ou sans pb. J’ai repris ta syntaxe en copie pour le tri. Sinon essaie aussi de décaler ton code dans une routine de module à appeler dans ton code USF, mais je vois guère la répercussion, mais Excel a ses raisons que la raison ignore !

bon courage,

Bfr [file name=ScrPhi.zip size=29953]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ScrPhi.zip[/file]

 

[CelineG]

Bonjour ce fil !

Moi non plus mon screenupdating ne marchent pas toujorus!

faut-il pour qu'il marche que toutes les procédures contiennent la ligne?

enfin bon tampis, l'utilisateur verra ce qu'il se passe !!!

merci @+