Discussion :

[sara62]

Bonjour

J'ai un tableau à 2 colonnes : une avec le nom de la pièce et une autre avec ça surface.
Je voudrai que en fonction des noms des pièces avoir la surface de chaque pièce.

Par exemple dans la liste des noms j'ai cage d'escalier R+1, cage d'escalier R+2... avec pour chaqune leur surface dans la colonne surface.
Je voudrai lui faire faire un truc du genre = Si nom contient cage alors somme des surfaces correspondantes.

Une aide pour avancer serai la bien venue ^^
merci d'avance

[smacksime]

Bonsoir,
Je vous ai préparé un petit code, en espérant que c'est ce que vous recherchiez.
Bonne soirée,
A vous lire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub votre_macro()
    'je recherche la dernière ligne active de votre tableau
    Derniere_ligne = Workbooks(ActiveWorkbook.Name).Sheets("Feuil1").Range("A65536").End(xlUp).Row
    somme = 0
    'je parcous le tableau
    For i = 1 To Derniere_ligne
        'je recherche le mot cage dans chacun des lignes pour la colonne A
        If InStr(Workbooks(ActiveWorkbook.Name).Sheets("Feuil1").Range("A" & i), "cage") <> 0 Then
            'je fais la somme de la colonne C
            somme = somme + Workbooks(ActiveWorkbook.Name).Sheets("Feuil1").Range("C" & i)
        End If
    Next
    'je retourne la somme
    MsgBox somme
End Sub