Rechercher valeur puis les sommer

[biche1]

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.

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

[zazaraignée]

Je vois que chaque code est séparé par un point-virgule suivi d'un espace. Tu peux donc faire un Split en spécifiant "; " comme séparateur.

Split sépare ta chaîne en utilisant le caractère ou la chaîne spécifiée ( dans le cas qui nous occupe, "; ") et met les valeurs ainsi séparées dans un tableau de type String. Tu dois déclarer ce tableau sans en spécifier la taille.

Dim tblCodes() As String

En ayant récupéré les codes de cette façon, tu peux sommer leur aire (ou surface) dans une boucle For k = 0 to Ubound(tblCodes) et la fonction RechercheV dont je ne me souviens plus du nom exact en VBA et qui est facile à trouver en enregistrant une petite macro.

Si tu as du mal à t'y retrouver avec mes explications sommaires (qui se veulent davantage des pistes de recherche), tu dis.

[biche1]

Je me suis inspirée de la réponse
Voila ce que j'obtiens.

Do While Cells(i, 1) <> ""
    
    tblcodes() = Split(Cells(i, 1), ";")
    For k = 0 To UBound(tblcodes)
        Recherche = tblcodes(k)
            While Sheets("Salle").Cells(j, 1) <> "" ' parcours le tableau de la feuille salle
  
              If Sheets("Salle").Cells(j, 1) = Recherche Then
               Cells(i, 12) = Cells(i, 8)+ Sheets("Salle").Cells(j,5) 'renvoie la valeur dans la cellule de la feuille active
                    Cells(i, 8)= Cells(i, 12)
                    
                End If
             
        j = j + 1
            Wend
   
            j = 1
        
    Next k
    i = i + 1
    Loop

le problème est que je ne somme pas les surfaces j'obtiens seulement la première surface.

[zazaraignée]

J'imagine que puisque c'est résolu, tu as compris que tu avais mis ta boucle For au mauvais endroit...

Et puis, si tu indentais ton code correctement, on y verrait certainement plus clair.

[biche1]

la boucle for est au bon endroit c'était juste le séparateur qui n'était pas bon.

C'était "; "

bonne journée