Sujet Précédent Sujet Suivant

Recherche chiffre dans plusieurs feuilles

Résolu/Fermé
mic6259 Messages postés 339 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 25 janvier 2023 - 31 mars 2017 à 15:23
baladur13 Messages postés 44269 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 28 mars 2023 - 1 avril 2017 à 14:08
Bonjour
J'ai cette macro qui me donne bien le chiffre recherché.
Serait-il possible qu'il me renvoi a la feuille concerné et a sa position?.
Merci

Sub chercher()
cherche = InputBox("valeur cherchée ?")
nbre = ThisWorkbook.Sheets.Count
For cptr = 1 To nbre
If Application.CountIf(Sheets(cptr).Cells, cherche) > 0 Then
MsgBox cherche & " se trouve dans la feuille " & Sheets(cptr).Name
Exit Sub
End If
Next
MsgBox "valeur cherchée, " & cherche & ", inconnue.", vbExclamation
End Sub

2 réponses

Réponse 1 / 2
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 293
Modifié le 31 mars 2017 à 16:39
Bonjour 

MsgBox Sheets(cptr).Cells.Find(cherche).Address


A l' avenir, Merci d'insérer les codes entre les balises <>


 Michel
0
mic6259 Messages postés 339 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 25 janvier 2023 1
31 mars 2017 à 17:46
Merci beaucoup super mais çà ne m'indique pas dans quelle feuille.
Merci pour tout
0
Réponse 2 / 2
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 293
Modifié le 1 avril 2017 à 08:06
Surtout, ne fais aucun effort pour progresser en VBA.... 

MsgBox Sheets(cptr).Name & " " & Sheets(cptr).Cells.Find(cherche).Address

pour mic6259/CCM, le service consommateur



 Michel
0
mic6259 Messages postés 339 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 25 janvier 2023 1
1 avril 2017 à 14:04
Bonjour michel_m
Je suis désolé, mais je ne comprend rien en code VBA,par contre je sais les modifier mais pas les créer.J'ai rechercher dans Google sans succés, c'est pour cela que je m'en remets au Forum
Je viens d'essayer votre code c'est parfait.
Merci beaucoup pour votre compréhension.
0
baladur13 Messages postés 44269 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 28 mars 2023 13 405 > mic6259 Messages postés 339 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 25 janvier 2023
1 avril 2017 à 14:08
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
0