Rechercher dans une plage de cellules

bonjour

je souhaiterai dans 3 plages différentes d'une feuille de calcul qui sont : range( "A1:A10") range( "B1:B10") Range("C1:C10") , verifier s'il

y existe une donnée , cela peut être des caractères ou des chiffres , et si une donnée existe la récupérer et l'inscrire en cellule H20

pour ce qui est de "scanner " mes plages je pourrai me débrouiller , mais je ne sais pas comment faire pour reccuperer la chaîne de

caractère si elle existe et la copier dans H20 , et si eventuellement il n'y rien dans les plages scannées afficher un message box disant

que les plages designées ne contiennent rien .

Merci pour vos idées

Bonjour,

je ne suis pas spécialiste en VBA, mais voici une petite macro pour répondre à ta demande.

Sub recherche()

Dim reponse As String

reponse = InputBox("Valeur recherchée ?", "Recherche")

If WorksheetFunction.CountIf(Range("a1:a10"), reponse) > 0 Or _

WorksheetFunction.CountIf(Range("b1:b10"), reponse) > 0 Or _

WorksheetFunction.CountIf(Range("c1:c10"), reponse) > 0 Then Cells(20, 8).Value = reponse Else MsgBox "Aucune colonne ne contient pas la valeur désirée"

End Sub

Cordialement

merci pour ta réponse , mais je ne recherche pas une chaine de caractère (nombre ou chiffre ) predefinie dans les plages , ce que je souhaite c'est scanner mes plages et si une donnée est trouvée dans celles ci , alors il faut juste la copier dans une autre cellule

merci quand meme