Discussion :

[ouioui_cmoi]

bonjour
J'ai un programme VBA qui plante et je ne comprend pas pourquoi, surtout qu'il ne plante pas systematiquement, mais seulement de temps en temps
Voila mon début de code...

Code :

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

1
2
3
4
5
6
7
8
Worksheets("dsff").Activate
Calculate
Columns("G:G").Select
  Selection.NumberFormat = "General"
    Columns("H:H").Select
    Selection.Font.ColorIndex = 0
On Error Resume Next
c = Range("N1").Value

Il plante de temps en temps en me disant error 1004 et un message d'erreur sur les Columns... Et l'Help ne marche pas
Et le Debug me met en jaune :

Code :

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

Columns("G:G").Select

.
Donc je ne comprend pas en quoi mon code serait faux, et surtout pourquoi ca ne plante pas de maniere systematique

[ouskel'n'or]

Calculate doit demander un certain temps... Si c'est ça, il faut laisser au système le tps de faire son travail. Ajoute un DoEvents entre les deux lignes

Code :

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

1
2
3
Calculate
DoEvents
Columns("G:G").Select

[ouioui_cmoi]

ok je vais le faire mais je pense pas que ce soit ca....le calculate prend meme pas 1/2 seconde...

[ouioui_cmoi]

il me dit "Run Time error 1004" "Method 'Columns' of object '_Global' failed"

et j'ai essayé le DoEvents
ca ne marche pas

ptetre un autre indice :
ca ne me met pas le message d'erreur lorsque je me place initialement dans le bon onglet.
En revanche, si je suis initialement dans un autre onglet, ca plante

[ouskel'n'or]

Remplace Worksheets("dsff").Activate par Select
A tout hasard

[ouioui_cmoi]

lol ca plante aussi avec select