XL 2021 Renvoie à la cellule qui est recherchée

pouetpouetlagalette · 25 Octobre 2023

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 · 26 Octobre 2023

Re,

Merci, voici le code à mettre dans la feuille

VB:

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+

Compte Supprimé 979 · 25 Octobre 2023

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 · 26 Octobre 2023

Ah bah là je sais pas faire...

Compte Supprimé 979 · 26 Octobre 2023

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

pouetpouetlagalette · 26 Octobre 2023

TADAAA.

Compte Supprimé 979 · 26 Octobre 2023

Re,

Merci, voici le code à mettre dans la feuille

VB:

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 · 3 Novembre 2023

BrunoM45 à dit:

Re,

Merci, voici le code à mettre dans la feuille

VB:

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 · 3 Novembre 2023

Bonjour à tous

@pouetpouetlagalette
Tout en image

==>

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

pouetpouetlagalette · 8 Novembre 2023

Phil69970 à dit:
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 · 8 Novembre 2023

Re

pouetpouetlagalette à dit:
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 · 9 Novembre 2023

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.

XL 2021 Renvoie à la cellule qui est recherchée

pouetpouetlagalette

XLDnaute Junior

Compte Supprimé 979

Compte Supprimé 979

Guest

pouetpouetlagalette

XLDnaute Junior

Compte Supprimé 979

Guest

pouetpouetlagalette

XLDnaute Junior

Pièces jointes

Compte Supprimé 979

Guest

pouetpouetlagalette

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

pouetpouetlagalette

XLDnaute Junior

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

pouetpouetlagalette

XLDnaute Junior

Discussions similaires