Recherche chiffre dans plusieurs feuilles
Résolu
mic6259
Messages postés
342
Date d'inscription
Statut
Membre
Dernière intervention
-
baladur13 Messages postés 47805 Date d'inscription Statut Modérateur Dernière intervention -
baladur13 Messages postés 47805 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
A voir également:
- Recherche chiffre dans plusieurs feuilles
- Excel trier par ordre croissant chiffre - Guide
- Clavier iphone chiffre et lettre - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Recherche automatique des chaînes ne fonctionne pas - Guide
2 réponses
Bonjour
A l' avenir, Merci d'insérer les codes entre les balises <>
Michel
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....
Michel
MsgBox Sheets(cptr).Name & " " & Sheets(cptr).Cells.Find(cherche).Addresspour mic6259/CCM, le service consommateur
Michel
Bonjour
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
A toutes fins utiles ==> https://www.commentcamarche.net/infos/25917-marquer-un-fil-de-discussion-comme-etant-resolu/
Merci pour tout