Formule pour rechercher un mot ou code dans une colonne
Résolu
FMas09600
Messages postés
28
Statut
Membre
-
FMas09600 Messages postés 28 Statut Membre -
FMas09600 Messages postés 28 Statut Membre -
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.
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.
A voir également:
- Formule excel rechercher un mot dans une colonne
- Déplacer une colonne excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
- Formule excel si et - Guide
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
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
Cells(Columns("B").Find(Target.Value, Range("B17"), xlValues).Row, "E").Select