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

laurent59

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 :

Code:
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+
 

Pièces jointes

  • Recherche Excel 97(2).zip
    67 KB · Affichages: 29

Discussions similaires

Statistiques des forums

Discussions
312 836
Messages
2 092 648
Membres
105 476
dernier inscrit
hilt