recherche par inputbox

[André]

Bonjour à tous,
Voilà mon problème :
Je voudrai utiliser la valeur entrée dans une boite de dialogue (inputbox ou autre) pour retrouver cette valeur dans une colonne, sachant que cette valeur peut être répétée jusqu'à trois fois dans la même colonne.

 

[Hervé]

bonjour

pour ce que tu cherches a faire,

1) tu dois creer l'input box
Message = "texte de la fenetre input :"
Title = "Titre de la fenetre input"
Defaut = " " 'définition valeur par defaut

2) recuperer valeur saisie par utilisateur
myvalue = InputBox(Message, Title, Defaut)

3) rechercher
dans la feuille voulue, colonne voulue
faire tant que cellule non vide
si contenu=valeur recherchee
etc...
pour ma part, j'afficherai le resultat dans un textbox afin de fair le choix entre les trois valeurs possibles

en esperant t'avoir aidé,
@+, Hervé

 

[André]

Re bonjour
merci à Hervé pour son coup de main.
Voilà ce que j'ai "pondu" après deux heures de recherche, et grâce aussi à l'aide des leçons VBA de Thierry, merci à lui aussi... J'en ai appris beaucoup en pas longtemps...

Sub litige1()
Dim Monnmr As String 'recherche du numéro
Monnmr = InputBox("Entrez le numéro en litige")
If Monnmr <> "" ThenColumns("K:K").Select 'Selection de toute la colonne K
Selection.Find(What:=MonBon).Activate 'recherche du numéro en litige
'sélection de la cellule A de la ligne pour mise en rouge
ActiveCell.Offset(columnOffset:=-10).Activate
Selection.Font.ColorIndex = 3
'boucle pour passer en rouge toutes les cellules non vides de la ligne considérée
Do While Not IsEmpty(ActiveCell)
Selection.Font.ColorIndex = 3
ActiveCell.Offset(columnOffset:=1).Activate
Loop
ElseIf MonBon = "" Then'sortie de la boucle
Dim Ms, Styl
Ms = "Vous n'avez pas entré de numéro..."'message en l'absence de saisie
Styl = vbOKOnly
rep = MsgBox(Ms, Styl)End If
End Sub

Donc ce truc tourne correctement, mais je suis très pointilleux, et lorsque le numéro n'est pas dans la liste, j'ai droit à une superbe :
erreur d'éxécution 91 (merci, monsieur Bill!)
variable objet ou variable de bloc With non définie.

Et là ? on fait quoi ? je suis certain qu'il y a une solution, mais j'ai un peu ma dose...
je suis ouvert à toute autre idée, ou pour rendre cette macro plus "élégante".....
Merci encore de votre aide
André