Ligne

C

Caillou

XLDnaute Impliqué

• 20 Avril 2010

• #2

Re : Ligne

Bonjour,

Essayes ce code :

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

 

Vote positif 0 Vote négatif

T

t0nton

Guest

• 20 Avril 2010

• #3

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

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 20 Avril 2010

• #4

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

 

Vote positif 0 Vote négatif

T

t0nton

Guest

• 20 Avril 2010

• #5

Re : Ligne

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

t0nton

 

Vote positif 0 Vote négatif

C

Caillou

XLDnaute Impliqué

• 20 Avril 2010

• #6

Re : Ligne

re,

ok, alors essayes ca :

Code:

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

 

Vote positif 0 Vote négatif