bouton d'envoi a une ligne

M

Michel_M

Guest

• 8 Novembre 2004

• #2

bonsoir Philippe

essaies ceci (bouton avec la barre d'outils "controles"


Option Explicit

Private Sub CommandButton1_Click()
Dim lig As Long

lig = InputBox("quelle ligne voulez vous voir ?")

If Not IsNumeric(lig) Or lig > 65536 Then
MsgBox "la valeur n'est pas un numéro de ligne valable"
Exit Sub
End If

Rows(lig).Select

End Sub

A+
Michel

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 8 Novembre 2004

• #3

bonsoir,

en fait j'aimerai que le bouton soit prédefini pour une ligne (fixe)

merci de votre reponse

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 8 Novembre 2004

• #4

re,

Private Sub CommandButton1_Click()
rows(987).select
end sub

Michel

 

Vote positif 0 Vote négatif

P

philippe

Guest

• 8 Novembre 2004

• #5

MERCI BEAUCOUP

CA MARCHE TRES BIEN

 

Vote positif 0 Vote négatif