Ligne

[t0nton]

Bonjour à tous,

J'aimerai savoir comment trouver la ligne d'un nom dans une feuille.

Exemple :

J'ai une colonne de 1000 nom et je voudrai connaître, grâce a une macro,la ligne de n'importe quel nom.

Cordialement, t0nton

 

[Caillou]

Re : Ligne

Bonjour,

Essayes ce code :

Sub ligne_du_nom()
  Dim mon_nom As String, lig As Integer
  mon_nom = InputBox("Nom ?")
  lig = Range(mon_nom).Row
  MsgBox mon_nom & " est sur la ligne " & lig
End Sub

Caillou

 

[t0nton]

Re : Ligne

merci caillou mais il y a une erreur 1004 pour la ligne 4: ( lig = Range(mon_nom).Row )
: " la méthode "range" de l'objet '_Global' a échoué

Une Idée ??

t0nton

 

[Caillou]

Re : Ligne

Surement que ce nom n'existe pas !

Je pense à une chose, quand tu dis nom, il s'agit bien de nom au sens Excel du terme (et non de nom de famille) ?

Caillou

 

[t0nton]

Re : Ligne

oui oui ou un mot pour qu'il n'y ai pas de confusion .

t0nton

 

[Caillou]

Re : Ligne

re,

ok, alors essayes ca :

Sub ligne_du_mot()
  Dim mon_nom As String, lig As Integer
  mon_nom = InputBox("Nom ?")
  lig = Cells.Find(What:=mon_nom, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Row
  MsgBox mon_nom & " est sur la ligne " & lig
End Sub

Caillou