XL 2016 Recherche dans plusieurs onglets

Calvin · 27 Mars 2021

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.

job75 · 27 Mars 2021

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".

Calvin · 28 Mars 2021

Vous avez raison mais lorsque je vais dupliquer les onglets cela m'aurait évité de devoir les renommer à chaque fois, c'était pour ça.

job75 · 28 Mars 2021

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

Calvin · 28 Mars 2021

Super, merci beaucoup pour avoir pris du temps pour moi.
Au plaisir.

XL 2016 Recherche dans plusieurs onglets

Calvin

XLDnaute Nouveau

job75

Calvin

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Calvin

XLDnaute Nouveau

Discussions similaires