Colonne

Formule pour rechercher un mot ou code dans une colonne

Résolu

FMas09600 -

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
Yoyo01000
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 Auteur
  
  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
  
  Désolé, je manque cruellement de connaissances pour pouvoir te fournir un code...
  
  0
3. FMas09600 Auteur
  
  Merci tout de même.
  @+
  
  0
4. Yoyo01000
  
  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 Auteur
  
  est il possible de laisser le champ du filtre "ouvert" pour faire le moins de manipulation possible?
  
  0
Réponse 2 / 3
michel_m Contributeur
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 Auteur
  
  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
Réponse 3 / 3
michel_m Contributeur
Re,
tu n'as pas copié la macro dans le module feuil1 de ton classeur "essai"

je sais, c'est lundi !
1
1. FMas09600 Auteur
  
  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 Auteur
  
  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 Contributeur
  
  bonjour
  Cells(Columns("B").Find(Target.Value, Range("B17"), xlValues).Row, "E").Select
  
  0
4. FMas09600 Auteur
  
  merci Michel, IMPECCABLE.
  
  0

Formule pour rechercher un mot ou code dans une colonne

3 réponses

Discussions similaires

Newsletters