eviter le clignotement du a sheets().select??

[JACQUES69]

Bonjour à tous, et merci par avance pour vos conseils et remarques.

Je commence en VBA, et je rencontre un problème esthétique 😀
en raison de nombreuses instructions sheets () .select, lors de l'initialisation de mon USF, j'ai une apparition par intermitance de la feuille en question.

Sans doute qu'il existe un moyen de régler se problème mais j'avoues avoir retourner le problème dans tous les sens et ne pas avoir réussi a trouver de solutions.

Merci de vos réponses.

 

[Spitnolan08]

Re : eviter le clignotement du a sheets().select??

Bonjour et bienvenue,

Il existe plusieurs possibilités.
Entre autres :
En début de procédure : Application.screenupdating = false
En dfin de procédure : Application.screenupdating = true

Mais il vaut mieux surtout éviter les Select.

Cordialement

 

[JACQUES69]

Re : eviter le clignotement du a sheets().select??

Merci pour votre réponse qui apporte enfin la solution, vous me parler également d'éviter .Select. Pouvez m'indiquer par quoi le remplacer?
Je m'en sers pour transférer le contenu de mes textbox dans mon USF sur une feuille de calcul par le biais du code suivant:

Sheets("Caisse").Select
Range("dates").Select
If ActiveCell.Offset(-1, 0) = Empty Then
ElseIf ActiveCell.Offset(-2, 0) <> Empty Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.End(xlUp).Select
ElseIf ActiveCell.Offset(-2, 0) = Empty Then
ActiveCell.Offset(-1, 0).Select
End If
Selection.EntireRow.Insert
ActiveCell = CDate(Caisse.TextBox92)
ActiveCell.Offset(0, 1) = Caisse.caservice.Value
ActiveCell.Offset(0, 4) = Caisse.billet500.Value.......

si vous pouvez m'indiquer une meilleure solution pour transférer et sauvegarder le contenu de mes textboxs.....Je suis preneur. Comme je l'ai dit je débute mais j'ai soif d'apprendre.J'utilise beaucoup l'enregistreur de macro et le forum pour mes recherches...mais rien ne remplace le contact direct.

En tout cas merci pour votre solution.
Cordialement

 

[Spitnolan08]

Re : eviter le clignotement du a sheets().select??

Re,

Je ne suis pas vraiment sûr que ce soit le plus simple mais faute de mieux, tu peux tester:

Dim Plage as range
Set Plage = Sheets("Caisse").Range("dates")
With Plage
   If .Offset(-1, 0) = Empty Then
   
   ElseIf .Offset(-2, 0) <> Empty Then
           .Offset(-1, 0).End(xlUp).EntireRow.Insert
   ElseIf .Offset(-2, 0) = Empty Then
           .Offset(-1, 0).EntireRow.Insert
   End If
......
end with

cordialement