XL 2021 Renvoie à la cellule qui est recherchée

[pouetpouetlagalette]

Bonsoir bonsoir, existe-t-il une formule Excel qui me permettrait, lorsque je tape en A1 les disons quatre premières lettres de ce que je recherche de me renvoyer sur cette cellule même si celle ci se trouve à la 780e ligne de mon tableau? Merci de votre aide . Bonne soirée.

 

[Compte Supprimé 979]

Bonsoir,

Aucune formule ne peut faire ça, une formule donne un résultat et n'exécute jamais une action
Il faut VBA pour ça 🤪

Bonne soirée

 

[pouetpouetlagalette]

Ah bah là je sais pas faire...

 

[Compte Supprimé 979]

Re,
Merci de nous partager votre fichier anonymisé SVP
A+

 

[pouetpouetlagalette]

TADAAA.

 

[Compte Supprimé 979]

Re,

Merci, voici le code à mettre dans la feuille 😉

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim CelF As Range
  ' Vérifier si saisie en A1 de la feuille
  If Target.Address = "$A$1" Then
    ' Si cellule A1 = VIDE , on sort
    If Target.Value = "" Then Exit Sub
    ' Sinon on recherche la valeur
    Set CelF = Range("A:A").Find(What:=Target.Value, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    ' Si recherche fructueuse
    If Not CelF Is Nothing Then CelF.Select
  End If
End Sub

A+

 

[pouetpouetlagalette]

Re,

Merci, voici le code à mettre dans la feuille 😉

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim CelF As Range
  ' Vérifier si saisie en A1 de la feuille
  If Target.Address = "$A$1" Then
    ' Si cellule A1 = VIDE , on sort
    If Target.Value = "" Then Exit Sub
    ' Sinon on recherche la valeur
    Set CelF = Range("A:A").Find(What:=Target.Value, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    ' Si recherche fructueuse
    If Not CelF Is Nothing Then CelF.Select
  End If
End Sub

A+

Merci Mr, serait-il possible de la caler sur la feuille?
Je dois faire qlq chose qui va pas, j'y arrive pas.

 

[Phil69970]

Bonjour à tous

@pouetpouetlagalette
Tout en image

==>

Evidement fa feuille ne s'appelle surement pas Feuil1 mais truc ou machin 😉

 

[pouetpouetlagalette]

Bonjour à tous

@pouetpouetlagalette
Tout en image

Regarde la pièce jointe 1182698

==>

Regarde la pièce jointe 1182699

Evidement fa feuille ne s'appelle surement pas Feuil1 mais truc ou machin 😉

Bonjour Phil69970 J'ai déjà une macro qui s'applique c'est grave?

 

[Phil69970]

Re

J'ai déjà une macro qui s'applique c'est grave?

Non il n'y a pas de macro évènementielle dans le fichier fourni juste une macro pour le bouton valider

Voir fichier avec la macro 😉

Tu n'oublieras pas de remercier Bruno et de valider son post 😉

 

[pouetpouetlagalette]

Merci, la solution de Bruno est nickel, j'y est inclus une liste déroulante dessus, pour sélectionner plus facilement les références. Amitiés.