Décalage de 1 ligne

eriiic

XLDnaute Barbatruc

• 25 Octobre 2011

• #2

Re : Décalage de 1 ligne

Bonjour,

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

eric

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 25 Octobre 2011

• #3

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)

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #4

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.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 25 Octobre 2011

• #5

Re : Décalage de 1 ligne

Bonjour Misange,

Misange à dit:

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)

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 25 Octobre 2011

• #6

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 🙂

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #7

Re : Décalage de 1 ligne

Bonjour de nouveau

En tenant compte de l'userform, cela peut donner

Code:

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. 🙄

 

Vote positif 0 Vote négatif

D

Didier972

Guest

• 25 Octobre 2011

• #8

[RESOLU] Décalage de 1 ligne

Merci a tous, cela fonctionne.

 

Vote positif 0 Vote négatif