bonjour,

Je cherche à récupérer une valeur (la surface d'une pièce)
Dans une feuille j'ai le code de la salle et je veux trouver la surface de cette salle. La surface se trouve sur une autre feuille.

Jusque là pas de soucis j'utilise le code ci-dessous.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Do While Cells(i, 1) <> ""
    ' récupère la valeur à chercher
    Salle = Cells(i, 1).Value 
    ' parcours le tableau de la feuille salle
    While Sheets("Salle").Cells(j, 1) <> "" 
        If Sheets("Salle").Cells(j, 1) = Salle Then
             ' renvoie la valeur dans la cellule de la feuille active
            Cells(i, 8) = Sheets("Salle").Cells(j, 5)
        End If
        j = j + 1
    Wend
    j = 1
    i = i + 1
Loop
Mon soucis est que je peux avoir plusieurs codes de salle dans la même cellule. Les codes sont séparés par ; je voudrais récupérer la surface de chaque salle et sommer les surfaces pour obtenir la surface totale.
Voici le type de tableau que j'ai actuellement.

Salles occupées Dates d'occupation m² salle
A111; A114; A115 01/09/2008-24/08/2009
A111; A114; A115 01/09/2008-24/08/2009
A111; A114; A115 02/09/2008-25/08/2009
A111; A114; A115 02/09/2008-25/08/2009
A111; A114; A115 03/09/2008-26/08/2009
A111; A114; A115 03/09/2008-26/08/2009
A111; A114; A115 04/09/2008-27/08/2009
A111; A114; A115 04/09/2008-27/08/2009
A111; A114; A115 05/09/2008-28/08/2009
A111; A114; A115 05/09/2008-28/08/2009
0

TOTAL


Merci de vos réponse