XL 2016 Recherche dans plusieurs onglets

  • Initiateur de la discussion Initiateur de la discussion Calvin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Calvin

XLDnaute Nouveau
Bonjour,
j'aimerais pouvoir rechercher une valeur parmi une colonne de plusieurs onglets et que cela renvoie le nom de l'onglet (ou une cellule de l'onglet).
Et si la valeur est présente dans plusieurs onglets, que cela donne un message d'erreur.
Merci d'avance.
 
Solution
En fait je n'aime pas les fonctions volatiles car elles se recalculent bien trop souvent et ce peut être gênant.

Dans le code de la fonction de ce fichier (2) j'ai supprimé Application.Volatile.

En contrepartie j'ai ajouté cette macro dans le code de la feuille "200i" :
VB:
Private Sub Worksheet_Activate()
UsedRange.Columns(1) = UsedRange.Columns(1).Value 'les formules en colonne M sont recalculées
End Sub
Les formules en colonne M sont recalculées seulement quand on active la feuille.

Pour tester modifiez des données dans la plage A6:B22 de "SEM 1".
Bon d'accord, voyez ce fichier (3) avec SEM (1) et SEM (2) et la fonction VBA modifiée :
VB:
Function SEM(cours As String, separateur As String)
Dim w As Worksheet, nom As String
For Each w In Worksheets
    nom = UCase(w.Name)
    If nom Like "SEM*#)" Then If Application.CountIf(w.Columns(3), cours) _
        Then SEM = SEM & separateur & Val(Replace(Replace(nom, "SEM", ""), "(", ""))
    Next
SEM = Mid(SEM, Len(separateur) + 1)
If IsNumeric(SEM) Then SEM = Val(SEM)
End Function
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
272
Réponses
5
Affichages
459
Réponses
3
Affichages
465
  • Question Question
Microsoft 365 colorer des onglets
Réponses
43
Affichages
1 K
Retour