Décalage de 1 ligne

[Didier972]

Bonjour

Voilà, mon code fonctionne, le seul petit hic, c'est qu'il n'indique pas le n° incrit dans mon Imputbox, mais la ligne.

ex : j'ai une colonne qui va de 1 à 100, mais avec mon en tête, le 1 est en A2 et comme cela jusqu'au bout. Si je note 12 dans mon imputbox, je ne vais pas dans la case ou il y a "12", mais à la ligne 12. Si quelqu'un pouvait me donner l'astuce .
Merci
Cordialement

Private Sub UserForm_Initialize()
Worksheets("Match").Select
Reponse = InputBox("Veuillez entrer le N° du Match.")

Range("A2:A65").Find(Reponse).Select


Label_N° = ActiveCell
Label_Date = ActiveCell.Offset(0, 2)

Label_Equipe1 = ActiveCell.Offset(0, 3)
Label_Equipe2 = ActiveCell.Offset(0, 4)
Label_Arbitre = ActiveCell.Offset(0, 5)

End Sub

 

[eriiic]

Re : Décalage de 1 ligne

Bonjour,

Chez moi (excel 2003) c'est A13 qui est sélectionnée si saisie de 12.

eric

 

[Misange]

Re : Décalage de 1 ligne

Bonjour

il te suffit de modifier les offset
Label_N° = ActiveCell.offset(1,0)
Label_Date = ActiveCell.Offset(1, 2)

Label_Equipe1 = ActiveCell.Offset(1, 3)
Label_Equipe2 = ActiveCell.Offset(1, 4)
Label_Arbitre = ActiveCell.Offset(1, 5)

 

[TempusFugit]

Re : Décalage de 1 ligne

Bonjour


Une autre méthode sans Find

Sub test()
Reponse = InputBox("n° match")
Application.Goto Cells((Reponse + 1), "A"), True
End Sub

Désolé, je me suis arrété sur le Select
mais je viens de voir qu'on a à faire un userform.

 

[eriiic]

Re : Décalage de 1 ligne

Bonjour Misange,

Bonjour

il te suffit de modifier les offset
Label_N° = ActiveCell.offset(1,0)
Label_Date = ActiveCell.Offset(1, 2)

Label_Equipe1 = ActiveCell.Offset(1, 3)
Label_Equipe2 = ActiveCell.Offset(1, 4)
Label_Arbitre = ActiveCell.Offset(1, 5)

Chez toi le .find ne fonctionne pas non plus ? Chez moi c'est tout bon...
eric

 

[Misange]

Re : Décalage de 1 ligne

@ Eric
en fait j'ai lu très vite et pas essayé (!) je suis juste restée sur le fait qu'il y avait un décalage dans la réponse 🙂

 

[TempusFugit]

Re : Décalage de 1 ligne

Bonjour de nouveau

En tenant compte de l'userform, cela peut donner

Private Sub UserForm_Initialize()
Worksheets("Match").Activate
Reponse = InputBox("Veuillez entrer le N° du Match.")
Application.Goto Cells((Reponse + 1), "A")
With ActiveCell
    Label_N° = .Value
    Label_Date = .Offset(0, 2)
    Label_Equipe1 = .Offset(0, 3)
    Label_Equipe2 = .Offset(0, 4)
    Label_Arbitre = .Offset(0, 5)
End With
End Sub

Post-scriptum: je n'écris pourtant pas mes messages avec de l'encre invisible. 🙄

 

[Didier972]

[RESOLU] Décalage de 1 ligne

Merci a tous, cela fonctionne.