Recherche chiffre dans plusieurs feuilles
Résolu
mic6259
Messages postés
371
Statut
Membre
-
baladur13 Messages postés 47349 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 47349 Date d'inscription Statut Modérateur Dernière intervention -
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
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
-
Bonjour
MsgBox Sheets(cptr).Cells.Find(cherche).Address
A l' avenir, Merci d'insérer les codes entre les balises <>
Michel -
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-
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.- Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
-
