Formule pour rechercher un mot ou code dans une colonne

Résolu

Colonne

FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention -
FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention - 27 févr. 2019 à 15:01

Bonjour,
je recherche une solution pour rechercher un mot ou code et afficher la ligne pour saisir un nombre dans une colonne.
exemple:
en J2 je tape le code à rechercher dans la colonne B10 à B40.
si le code est trouvé, il affiche la ligne et je peux saisir un chiffre dans la colonne F
si le code n'est pas trouvé, il affiche dans la cellule K2 "code inexistant"

merci pour votre aide.

Afficher la suite

3 réponses

Réponse 1 / 3
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

Re,
tu n'as pas copié la macro dans le module feuil1 de ton classeur "essai"

je sais, c'est lundi !
1
1. FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention
  
  Merci Michel,
  Les macros et moi, nous ne sommes pas très compatible, j'apprends sur le tas et donc je me coucherai moins C^^ ce soir.
  puis je abuser, en gardant la même macro, est il possible que quand je tape "fin" dans J2, le curseur se positionne en Exxx (au lieu de Fxxx)
  MERCI d'avance
  
  0
2. FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention
  
  Bonjour Michel,
  je suis vraiment nul, voici la formule que j'ai saisi suite à ta réponse d'hier soir que j'ai modifié pour l'adapter à mon tableau et qui fonctionne:
  Option Explicit
  '--------------------------------------------------
  Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Address = "$J$1" Then
  Range("K1") = ""
  On Error GoTo erreur
  Cells(Columns("B").Find(Target.Value, Range("B17"), xlValues).Row, "F").Select
  End If
  Exit Sub
  'gestion des erreurs
  erreur:
  Range("K1") = "code inexistant"
  
  End Sub</ital>
  
  peux tu inserer la modification afin que je fasse un copier / coller sur la feuille.
  Encore MERCI
  
  0
3. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
  
  bonjour
  Cells(Columns("B").Find(Target.Value, Range("B17"), xlValues).Row, "E").Select
  
  0
4. FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention
  
  merci Michel, IMPECCABLE.
  
  0
Réponse 2 / 3
Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention 168

Bonjour,
Soit tu crées des filtres et tu iras faire ta recherche et ensuite ta saisie , soit il faut passer par VBA.
Une simple formule n'ira pas.
0
1. FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention
  
  Bonjour Yoyo01000,
  actuellement, je passe par les filtres mais c'est un peu long (plus de 750 lignes à ce jour). peut être en VBA (ou Macro) mais je ne suis pas un connaisseur.
  merci d'avance
  
  0
2. Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention 168
  
  Désolé, je manque cruellement de connaissances pour pouvoir te fournir un code...
  
  0
3. FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention
  
  Merci tout de même.
  @+
  
  0
4. Yoyo01000 Messages postés 1720 Date d'inscription Statut Membre Dernière intervention 168
  
  Que tu rentres ton code dans une cellule ou alors dans le champ d'un filtre ne fait guère de différence, et c'est aussi valable pour du VBA.
  
  0
5. FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention
  
  est il possible de laisser le champ du filtre "ouvert" pour faire le moins de manipulation possible?
  
  0
Réponse 3 / 3
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320
Bonjour, Fmas, Yoyo

une macro se déclenchant après une saisie dans J2
a installer dans le module feuille concerné
```
Option Explicit
'--------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$J$2" Then
    Range("K2") = ""
    On Error GoTo erreur
    Cells(Columns("B").Find(Target.Value, Range("B9"), xlValues).Row, "F").Select
End If
Exit Sub
'gestion des erreurs
erreur:
Range("K2") = "code inexistant"

End Sub 
```
La maquette
https://mon-partage.fr/f/U1BbzU8n/
0
1. FMas09600 Messages postés 26 Date d'inscription Statut Membre Dernière intervention
  
  Merci Michel,
  sur mon classeur, je n'arrive pas à le faire fonctionné alors que cela marche très bien sur le tien.
  je te fait suivre le début du fichier pour vérifier la macro.
  en fait ce classeur à plus de 650 lignes.
  encore merci
  le lien pour le téléchargement:
  https://wetransfer.com/downloads/a566f24bdb0429b09f4da70d4c54374620190225160529/9e23650ca022a446af951515fac294c920190225160529/79f46f
  
  0

Formule pour rechercher un mot ou code dans une colonne

3 réponses

Discussions similaires

Newsletters