bouton d'envoi a une ligne

[philippe]

bonjour,

Mon travail m'envoi en fin de mois un fichier excel faisant a peu près 2000 lignes.

seulement quelque ligne m'interessent.

j'aimerai mette au debut de ce fichier creerun bouton m'enverrai directement a ligne que je veux.

en gros il faudrait que ce bouton sache qu'il doit m'envoyer directement a ligne 987 par exemple.

merci d'avance

 

[Michel_M]

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

 

[philippe]

bonsoir,

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

merci de votre reponse

 

[Michel_M]

re,

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

Michel

 

[philippe]

MERCI BEAUCOUP

CA MARCHE TRES BIEN