Positionner le curseur en 1ére cellule vide coluneE

Bonjour à tous,

Je fais appel à votre sagesse pour résoudre un problème au niveau d'une formulaire de saisie

Exposé de la situation:

J'ai un fichier Excel ("appli") que je souhaite positionner le curseur en 1ére cellule vide COLE . par contre j'ai un message d'erreur et j'ai pas pu le résoudre

mot de passe: 1993

Veuillez-trouver ci-joint le fichier excel.

bien cordialement.

Bonjour,

une proposition qui sélectionne la première cellule vide en colonne E à partir de E10:

Sub tra1()
With Sheets(ActiveSheet.Name)
    .Range("E10:E" & Rows.Count).Find("", lookat:=xlWhole).Select
End With
End Sub

merci pour votre proposition par contre votre code ne marche pas.

Bien cordialement.

voila l'appli

bonjour,

cela ne marche pas, parce que vous avez un tableau avec de lignes vides et il se positionne sur la derniere ligne du tableau.

Sub Suivant()
     With ActiveSheet
          ligne = [max(if(e1:e1048576<>"",row(e1:e1048576),0))] + 1
          Application.Goto Cells(ligne, "e")
     End With
End Sub

Bonjour,

ça marche bien sur "page d'accueil" pourtant, par contre sur sources ça ne marchera bien entendu pas puisque E10 n'est pas le début du tableau, mais sans contexte...

Le but c'est quoi donc? de se positionner sur la première cellule vide d'un colonne dans un tableau nommé? Parce que je peux positionner le curseur sur E1 dans la "page d'accueil" mais pas sûr que ce soit l'objectif...

Re-Bonjour,

il faut que le curseur soit sur la premier cellule vide de la colonne E a chaque au 'ouverture de fichier dans la "page d'accueil"

merci d'avance.

cordialement.

re,

Private Sub Worksheet_Activate()
          ligne = [min(if(e10:e1048576="",row(e10:e1048576),1e9))]
          Application.Goto Cells(ligne, "e")
End Sub

Une nouvelle proposition:

Le code se trouve dans ThisWorkbook

Private Sub Workbook_Open()
Dim ligDep As Integer
ligDep = 10
Feuil3.Select
Range("E" & ligDep, "E" & Rows.Count).Find("", lookat:=xlWhole).Select
End Sub

c'est bon j'ai réussi à le faire.

Bien cordialement.

Merci beaucoup Ausecour.