recherche dans plsueirs feuilles et indique soit nom feuille ou case a1

[laurent59]

Bonjour à tous.
Voila je vous explique :
J ai un classeur avec une premiere feuille dans laquelle se trouve en colonne A une liste de noms
Ensuite mon classeur comporte toutes les semaines de l'annee donc feuille2 se nomme sem2 feuille3 sem3 etc ..
JE cherche une macro qui m'indique sur la 1ere feuille en celulle E1 E2 E3 (à coté de la liste de noms en fait ) que si le nom est trouvé dans les feuilles 2 à 17 (sem2 à sem17 pour le 1er timestre) la macro mentionne soit le nom de la feuille ou la valeur de la celulle A1.
Cordialement

 

[job75]

Re : recherche dans plsueirs feuilles et indique soit nom feuille ou case a1

Re,

La fonction sera sans doute un peu plus rapide comme ceci :

Public Function OCCUP$(nom$, sem$) 'pour Excel 97
Dim i As Byte, F As Worksheet, tablo, u&, col As Byte, lig&
If nom = "" Then Exit Function
For i = Mid(sem, 9, 2) To Right(sem, 2)
  Set F = Sheets(i + 1)
  tablo = F.Range("A1:A2", F.UsedRange) 'pour avoir au moins 2 éléments
  u = UBound(tablo)
  For col = 1 To UBound(tablo, 2)
    For lig = 3 To u
      If tablo(lig, col) = nom Then
        OCCUP = OCCUP & " #" & F.Name & "!" & F.Cells(lig, col).Address(0, 0) & "-" _
          & Format(tablo(1, col - (col - 1) Mod 3), "dd/mm/yy")
      End If
    Next
  Next
Next
End Function

A+