Erreur "La méthode 'Select' de l'objet '_Worksheet' a échoué"

[Romuald]

Bonjour,

j'utilise une métode qui sélectionne une feuille de mon classeur avec le code wksSheet.Select

De temps en temps j'ai l'erreur suivante :
ERROR N° 1004 - La méthode 'Select' de l'objet '_Worksheet' a échoué

L'erreur est la même lorsque je précède cette commande par wksSheet.Parent.Activate ou wksSheet.Activate

Qu'est-ce qui peut expliquer cette erreur sachant qu'elle n'est pas systématique???

merci

 

[michel]

bonsoir Romuald

quelques infos complémentaires seront peut etre nécéssaires :
peux tu placer l'ensemble de ta macro sur le forum ?
quelle version d'Excel utilises tu ?
comment lances tu ta macro : evenementiel ? depuis l'editeur de macro ? par un bouton ?
...


bonne soiree
MichelXld

 

[Romuald]

la fonction se situe dans un classeur Excel de type add-in. elle est appelée par un autre classeur Excel.

Ci-dessous le code :


Public Function GetLastRow(Optional lngColNumber1 As Long = 1, _
Optional lngColNumber2 As Long = 50, _
Optional lngRowMax As Long = 65536, _
Optional wksWorksheet As Worksheet = Nothing) As Long

Dim I As Long
Dim wksCurrentWorkSheet As Worksheet

' Récupération des paramètres globaux actuel
Set wksCurrentWorkSheet = ActiveSheet
' Initialisations
GetLastRow = 0
If wksWorksheet Is Nothing Then
Set wksWorksheet = wksCurrentWorkSheet
End If
With wksWorksheet
.Select
For I = lngColNumber1 To lngColNumber2
If .Cells(lngRowMax, I).Value <> "" Then GetLastRow =
ActiveCell.Row
.Cells(lngRowMax, I).Select
Selection.End(xlUp).Select
If ActiveCell.Row > GetLastRow And _
ActiveCell.Value <> "" Then GetLastRow = ActiveCell.Row
Next
End With
wksCurrentWorkSheet.Select

End Function


La ligne qui plante est " .Select"

 

[michel]

bonsoir Romuald

je suis désolé mais je n'arrive pas à recréer l'erreur
( testé avec Excel2002 et Excel97 )


bonne soiree
MichelXld