Sujet Précédent Sujet Suivant

Recherche chiffre dans plusieurs feuilles

Résolu/Fermé
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 31 mars 2017 à 15:23
baladur13 Messages postés 46384 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 18 avril 2024 - 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
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 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 46384 Date d'inscription mercredi 11 avril 2007 Statut Modérateur Dernière intervention 18 avril 2024 13 212 > mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 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

Discussions similaires

en chiffre un milliard un million mille un
pout -
chossette9 -

3 réponses
Trouver un nom avec un numéro de cellulaire
Amélie2 -
64934699 -

7 réponses