error 1004 columns

**ouioui_cmoi** · 27/03/2008, 11h19

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** · 27/03/2008, 11h26

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** · 27/03/2008, 11h32

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

**ouioui_cmoi** · 27/03/2008, 11h37

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** · 27/03/2008, 11h50

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

**ouioui_cmoi** · 27/03/2008, 11h59

lol ca plante aussi avec select

**ouioui_cmoi** · 27/03/2008, 12h03

J'ai réduit le code à

Code :

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

1
2
3
4
5
6
Sub deboggage2()
Worksheets("jj").Activate
 
Columns("G:G").Select
 
End Sub

et ca plante
j compren vraiment pas

**ouioui_cmoi** · 27/03/2008, 12h05

bon, ben ca marche avec sheets a la place de worksheets
mais bon c'est quand meme bizarre, j comprend pas tout...

**ouskel'n'or** · 27/03/2008, 12h10

Ferme Excel et relance-le puis refais le test avec Worksheets et select

Ceci dit on n'a jamais besoin de sélectionner ni une feuille ni une colonne à une exception près. Que veux-tu faire avec ta colonne ?

**ouioui_cmoi** · 27/03/2008, 12h15

la selection de la feuille c'était parceque j'ai plusieurs onglets
la selection de la colonne c'est pour changer le format des valeurs de la cellule
Ce qui est juste bizarre, c'est que ce fichier marchait tres bien avant, mais il s est mis tout d'un coup a bugger, et depuis, j'essaie de le debugger...

**ouskel'n'or** · 27/03/2008, 12h16

As-tu redémarré Excel ?

**ouioui_cmoi** · 27/03/2008, 12h22

oh oui ...au moins 50 fois lol!
et avec worksheets, ca marche dans mes anciens fichiers avec le meme code
mais pas dans mon fichier actuel

**ouskel'n'or** · 27/03/2008, 12h28

Alors "y'a aut' chose". Ça peut être un bug dans un code que tu n'utilises pas (dans une autre procédure) Tu as ça ?

**ouioui_cmoi** · 27/03/2008, 12h37

j ai trouvé....
en fait, lorsque je lancais le code, initialement, c'était un tableau dans l'onglet qui était sélectionné.
Donc ça faisait bugger tout mon code!!
il suffisait de mettre avant la selection de colonne

Code :

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

Range("A1").select

et je m en rendais pas compte car lorsque j'activais l'onglet et que ca marchait, c'est parce que je cliquais dans une cellule
voila
merci quand meme pour ton aide
(j te rassure, il m a fallu pleein d'essais et un bon bout de temps pour trouver l'erreur(j m attendais pas a ce type d'erreur))

**ouskel'n'or** · 27/03/2008, 13h04

Tout ça ne répond pas à ma question sur la nécessité des "activate" ou des "select"

**ouioui_cmoi** · 27/03/2008, 15h29

comment ça sur la nécessité des "activate" ou "select"?

**ouskel'n'or** · 27/03/2008, 17h37

On n'a jamais besoin de sélectionner quoi que ce soit, à une exception près que j'oublie toujours. Donc ma question : Que veux-tu faire avec ton select qui alourdit le code, et donc le ralentit et qui en outre donne des mouvements de fenêtre inutiles.
Là était mon interrogation à laquelle on peut apporter une solution.
A+ ... si tu as envie de savoir comment on peut se passer de sélectionner une feuille ou une cellule.

error 1004 columns

Macros et VBA Excel

Discussions similaires

Partager

Partager