XL 2010 Accès direct sur une ligne en fonction d'une donnée

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Février 2022

• #2

Bonjour Edwige,
Un essai en PJ avec une macro événementielle :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    Dim L%
    On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A3]) Is Nothing Then
        L = Application.Match(Target, [A7:A1000], 0)
        Range("A" & L + 7).Select
    End If
Fin:
End Sub

Le changement de date positionne le curseur.

 

Pièces jointes

• Classeur1 (4).xlsm

  41 KB · Affichages: 1

Vote positif 0 Vote négatif

E

Edwige

XLDnaute Nouveau

• 28 Février 2022

• #3

Super merci beaucoup !! c'est exactement ça que je cherchais !!

 

Vote positif 0 Vote négatif

E

Edwige

XLDnaute Nouveau

• 2 Juin 2022

• #4

Bonjour ,
J'aimerai la même chose pour fichier avec les dates en ligne de B3 à SU3. J'ai essayé d'adapter la macro mais ça ne fonctionne pas.
Auriez vous une solution ?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Juin 2022

• #5

Bonjour,
Veuillez préciser :
1- La macro se déclenche sur toute cellule dans B3 SU3 ?
2- On se positionne sur la bonne ligne en colonne A ou dans la colonne où on a cliqué?

 

Vote positif 0 Vote négatif