Discussion :

[Reis71]

Bonjour,

Dans mon classeur "Ajout Produit" à l'ajout du produit se fait sur deux feuilles (Gestion Stock et Produit) et la macro s'execute correctement mais durant l'execution j'ai des feuilles qui clignotent, comment empêcher se clignotement.

Et dans ma feuille de "Gestion Stock" colonne C qui est la quantité du produit ajouté, j'aute par défaut 150 pièces mais quand le produit est finis j'ajoute manuellement en gardant l'ancien pour avoir une trace y a-t-il moyen de l'inclure dans le code Module1 >Li117, Col34 (une solution sera la bienvenue).

Pourriez vous m'aider svp!

Merci
@+

Ajout_Produit.xlsm

[Philippe Tulliez]

Bonjour,
N'ouvrant pas les classeurs joints dans les discussions, je ne peux qu'émettre des hypothèses.
L'effet de "clignotement" dont vous parlez provient sans doute du fait que vos lignes de code contiennent des instructions avec les méthodes Select, Activate, etc.
Ces méthodes sont à proscrire. Elles ne servent à rien et de plus sont chronophages.

Mis à part l'utilisation de ces méthodes, lorsqu'on utilise une procédure (macro) qui effectue un grand nombre de modifications sur des feuilles, Excel actualise l'affichage à chaque modification ce qui ralenti l'exécution du programme. Pour éviter cela, on place l'instruction Application.ScreenUpdating = False en début de procédure ce qui désactive la mise à jour de l'écran.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub T
  Application.ScreenUpdating = False
  ' Le code
  '
  '
  Application.ScreenUpdating = True
End Sub

La dernière instruction est facultative

[Reis71]

Bonjour,
N'ouvrant pas les classeurs joints dans les discussions, je ne peux qu'émettre des hypothèses.
L'effet de "clignotement" dont vous parlez provient sans doute du fait que vos lignes de code contiennent des instructions avec les méthodes Select, Activate, etc.
Ces méthodes sont à proscrire. Elles ne servent à rien et de plus sont chronophages.

Mis à part l'utilisation de ces méthodes, lorsqu'on utilise une procédure (macro) qui effectue un grand nombre de modifications sur des feuilles, Excel actualise l'affichage à chaque modification ce qui ralenti l'exécution du programme. Pour éviter cela, on place l'instruction Application.ScreenUpdating = False en début de procédure ce qui désactive la mise à jour de l'écran.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub T
  Application.ScreenUpdating = False
  ' Le code
  '
  '
  Application.ScreenUpdating = True
End Sub

La dernière instruction est facultative

Bonjour,

Effectivement le nombre de ligne à traiter qui fait se clignotement.
Je vous remercie pour votre aide et bonne fête

Merci
@+

[deedolith]

@Philippe:
Malheureusement, tu lui as indiqué le "cache misère" (Application.ScreenUpdating).

@Reis71:
Après avoir regardé le code source, c'est très mauvais.
Sélections à tort et à travers, activations inutiles, dépendances contextuelles fortes, viole de toutes les bonnes pratiques connues, bref rien de bon.
Extrait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Produit_Stocks()
 
    Range("C6").Select
    Selection.Copy
    Sheets("PRODUIT").Select
    Range("A2:C2").Select
    Application.CutCopyMode = False
    Selection.ListObject.ListRows.Add (1)
    Range("A2").Select
    Sheets("F PRODUIT").Select
    Range("C6").Select
    Selection.Copy
    Sheets("PRODUIT").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A3").Select
    Sheets("F PRODUIT").Select
    Range("C9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("PRODUIT").Select
    Range("B2").Select
    ActiveSheet.Paste
    '// ... suite de code

Le mieux, c'est que tu mettes le grapin sur un vrai cours VBA, et que tu le prenne quelques mois comme livre de chevet.