recherche un nom dans un classeur

[Gysmo]

Bonjour

Voici mon problème, j'ai un classeur qui contient un nombre de feuille variable. J'aimerais pouvoir faire une recherche d'un nom dans toutes les feuilles et additionner une cellule x dont la feuille contient le nom recherché et faire un cumulatif de la cellule x

Merci

 

[BOISGONTIER]

Re : recherche un nom dans un classeur

Bonjour,

  nom = "Dupond"
  For Each s In ActiveWorkbook.Sheets
    With Sheets(s.Name).Cells
      Set c = .Find(nom, LookIn:=xlValues)
      If Not c Is Nothing Then
        premier = c.Address
        Do
          n = n + 1
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> premier
      End If
     End With
   Next s
   MsgBox n

JB

 

[Gysmo]

Re : recherche un nom dans un classeur

Merci pour la réponse,
mais se n'est pas tout a fait cela que je cherche, je vais essayer d'être plus clair, J'aimerais rechercher un nom dans tout le classeur, si la feuille contient ce nom alors je prend la valeur d'une cellule (ex:A1) et je vais la somme de tout les feuille qui contient le nom rechercher (ce nom est dans une cellule fixe (ex:B5)

Merci