UserForm récalcitrant !

Bonjour !
j'ai un fichier avec 1 feuille et un userform.
La feuille "HEmpl" reçoit une liste d'enregistrements avec horodatage en colonne A (je ne l'ai pas défini sous forme de tableau).
La variable DLE a été définie au dessus de option explicit.

Code:

---

1 2	Dim L, DLE As Integer Option Explicit

---

Pour L'userform :

Code:

---

1 2 3 4

Sub UserForm_Initialize() DLE = Sheets("HEmpl").Cells(1, 1).End(xlDown).raws Tb01.SetFocus End Sub

---

Lorsque je lance l'userform j'obtiens un blocage :

Citation:

---

"Erreur d'exécution 438
Propriété ou méthode non gérée par cet objet."

---

Voila pourquoi je suis là ! Je n'arrive pas à trouver le noeud du problème.
Help ! Help ! Pourriez-vous m'aider SVP ? Je n'avance plus !!
Merci par avance pour votre aide!

Citation:

---

Envoyé par Alain7751

Code:

---

DLE = Sheets("HEmpl").Cells(1, 1).End(xlDown).raws

---

---

Quand le VBE ne mets pas l'initiale d'un terme (commande, fonction, objet ou membre) en majuscule, c'est généralement qu'il y a un problème.

Citation:

---

Envoyé par Menhir

Quand le VBE ne mets pas l'initiale d'un terme (commande, fonction, objet ou membre) en majuscule, c'est généralement qu'il y a un problème.

---

Citation:

---

DLE = Sheets("HEmpl").Cells(1, 1).End(xlDown).raws

---

M'est avis que tu devrais essayer avec "Rows" et non pas "raws".

Code:

---

DLE = Sheets("HEmpl").Cells(1, 1).End(xlDown).Rows

---

Je ne sais pas si cela corrigera ton problème mais au moins "Rows" est reconnu.