Discussion :

[asxasx]

Bonjour,

Donc voilà mon problème :

Code :

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

1
2
3
4
5
6
7
8
 
    Sheets("job").Activate
 
    Columns("E:AI").Select
 
    Selection.AutoFilter Field:=4, Criteria1:="202 - LEGRAND EXPORT TIERS", Operator:=xlOr, Criteria2:="210 - SNC  INTRA-GROUPE"
 
    Selection.SpecialCells(xlCellTypeVisible).Rows.Copy Destination:=Sheets("temp").Range("A1")

Le problème se situe à la ligne 4, ce code fonctionne bien sur ma machine au boulot (Win XP à jour + Excel 2003), fonctionne bien sur une autre machine (Win 2000 Pro + Excel 2000) mais ne fonctionne pas sur ma machine perso (Win XP à jour + Excel 2003)

J'avoue ne pas comprendre d'où peut bien venir ce fichu problème ???

[mickdu90]

Et quel genre d'erreur obtiens - tu à la ligne 4 ?
[edit] C'est dans le titre, autant pour moi

Je ne vois pas du tout pourquoi ca fonctionnerait sur toutes les autres machines sauf la tienne... Une différence de configuration peut être, ou peut être au niveau des références activées ?

[asxasx]

Et quel genre d'erreur obtiens - tu à la ligne 4 ?

Celle citée dans le titre, je ne me souviens pas des termes exacts, je suis au taff là.

Cependant, j'ai remarqué en mode pas à pas que l'exécution passait bien cette instruction, exécutait la suivante, et ensuite me renvoyait une erreur sur cette ligne.

L'instruction suivante étant :

Code :

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

1
2
3
4
5
6
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If calculing = False And Target.Count = 1 Then
        last = Target
    End If
End Sub

Cependant, je ne pense pas qu'elle soit vraiment exécutée après, je pencherais plutôt pour un évènement lors du copier-coller mais qui je pense ne gène pas à moins que je me trompe ?

Edit: Je précise que ça ne rentre pas dans la condition lors du changement de sélection.
De plus, les références comme tu en parles, sont bien les mêmes entre les deux machines XP, elles ne sont pas les mêmes pour office 2000 et office 2003 mais ça marche ( changement de version : office 9 & office 11)

[mickdu90]

Je pense aussi que le copier coller doit foirer quelque part... Mais si il marche ailleurs, je ne pense pas que le code soit en cause ! Surtout si le poste de ton travail, et ton poste perso utilisent la même version de Excel. Et comme tu viens de l'ajouter, même avec des versions différentes il fonctionne.

La machine serait en cause ?

Est-il possible de tester ton code sur ma machine ?

[asxasx]

Je pense aussi que le copier coller doit foirer quelque part... Mais si il marche ailleurs, je ne pense pas que le code soit en cause ! Surtout si le poste de ton travail, et ton poste perso utilisent la même version de Excel...

Surtout que je pense que le copier-coller est effectif sur ma machine.
J'entends par là qu'il me semble qu'il soit effectué, je ne sais pas si toutes les données sont là (~22000 lignes) mais il y en a qui sont ramenées

[Pierre Fauconnier]

Bonjour

Il faudrait déjà être certain du message d'erreur, car l'erreur 1004 peut renvoyer différents messages...

Sur ta machine, le filtre renvoie-t'il des lignes?
La feuille "Temp" existe-t'elle?

Tu dis que l'instruction suivante est:

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)...

ce qui est impossible, car tu devrais au moins avoir un End Sub ou un End Function...

Sois plus précis dans tes informations, cela nous permettra de t'aider plus efficacement...

[asxasx]

- Oui, le filtre me renvoie des lignes et le copier-coller semble se faire mais se termine avec cette erreur.
- La feuille "Temp" existe bel et bien puisque c'est le même fichier que j'ouvre à la maison.
- Ce n'est pas une "instruction" à proprement parler mais sur la feuille "job" (origine des données), il y a une interception de l'évènement "SelectionChange" et donc il intervient pendant le copier-coller mais pas au point de faire tout planter enfin je pense puisque ça marche ailleurs.

[Pierre Fauconnier]

Si le problème survient sur la ligne

Code :

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

1
2
 
Selection.SpecialCells(xlCellTypeVisible).Rows.Copy Destination:=Sheets("temp").Range("A1")

( surlignée en jaune lors du débogage ), ce n'est pas possible que le collage soit réalisé...
Quelles sont les lignes suivantes? Sur quelle ligne s'arrête le débogueur?

[asxasx]

Le débogueur s'arrète bien sur la ligne 4 c-a-d :

Code :

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

Selection.SpecialCells(xlCellTypeVisible).Rows.Copy Destination:=Sheets("temp").Range("A1")

et je précise que c'est bien sur le Paste que ça plante et non le Copy puisque j'ai essayé en deux étapes de la façon suivante et même soucis :

Code :

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

1
2
3
4
 
Selection.SpecialCells(xlCellTypeVisible).Rows.Copy
Sheets("temp").Range("A1").Select
ActiveSheet.Paste

et là ça plantait sur la 3ème ligne

Et tu me dis que ne c'est pas possible que le collage soit réalisé et pourtant il l'est bien puisque des données sont présentes et que je vide la feuille "temp" avant avec un :

Code :

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

1
2
3
 
Sheets("temp").Activate
ActiveSheet.UsedRange.Clear

[Pierre Fauconnier]

Peux-tu donner le message d'erreur exact?

[asxasx]

Peux-tu donner le message d'erreur exact?

Ben pour le moment non puisque je suis au taff, mais dès que je peux je le ferai (ce soir sûrement)

[Pierre Fauconnier]

Ok. Je pense que ce sera plus simple pour trouver une solution...

Bonne journée