Erreur range

[secna]

Bonsoir ,

Private Sub UserForm_Initialize()
Feuil2.Range("A14").End(xlDown).Offset(1, 0).Select

j'ai essayer tout les type de range que je connaisse mais pas moyen il me ressort l'erreur est due à l'application........ en fait je veux que dans une case de ma feuille s'ajoute 1 à chaque fois que mon userform s'ouvre mais nan ça veux meme pas sélectionner.

Aidez moi svp

 

[Efgé]

Re : Erreur range

Bonjour secna
Inutile de selectionner...

Feuil2.Range("A14").End(xlDown).Offset(1, 0).Value = 1

Cordialement