Discussion :

[Blusky]

Bonjour à tous,

Ci_dessous, un problème qui me laisse sec et pour lequel, au delà d'obtenir une solution fonctionnelle, j'aimerais comprendre la cause sur le fond

Le code ci-dessous tourne sans pb à plusieurs itérations (il est utilisé dans une boucle) mais quelque fois il plante sur la ligne en rouge avec l'erreur

"Past Method of Worsheet class failed" 

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
Sheets("Data").Select  
      Rows("1:1").Select
      Selection.AutoFilter
 
‘ la valeur de la variable “Last_Line” a été déterminée au préalable
 
    ActiveSheet.Range("$A$1:$AP$" & Last_Line).AutoFilter Field:=30, Criteria1:="<>"
    ActiveCell.SpecialCells(xlLastCell).Select
    Range("AP" & Last_Line).Select
 
    Range(Selection, Cells(1)).Select
    Selection.Copy
    Sheets("Resultats").Select
    Range("A1").Select
    ActiveSheet.Paste    
Sheets("Data").Select

Je n'ai pas réussi à identifier des situations communes aux différents cas où ce code plante, bref, je suis sec!

Quelqu'un peut il m'aider à comprendre ce pb?

Merci

[Souriane]

Bonjour!

Jette un coup d'oeil ici, je pense que c'est le même problème que toi :

http://www.developpez.net/forums/d36...-range-echoue/

Bonne chance!

Souriane

[Blusky]

Merci Souriane,

En effet, le lien que tu mentionnes presente un pb similaire au mien

L'origine du pb reste incomprise mais 2 façon de le gérer
- soit en traitant le message d'erreur
- soit en utilisant les filtre élaborés au lei des filtres automatiques

Encore Merci

Blusky