Additionner des cellules spécifiques d'une page

[mickyparis]

Bonjour,
Dans une page j'aimerais additionner les valeurs de toutes les cellules situées à gauche des cellules nommées "ING" (format texte); ces cellules sont très nombreuses et placées anarchiquement sur la page, c'est pourquoi j'aimerais que vous m'éclairiez.
merci beaucoup

 

[Brigitte]

Re : Additionner des cellules spécifiques d'une page

Bonsoir,

Tu aurais un petit bout de fichier à nous montrer (en enlevant ce qui est confidentiel) ?

Merci à toi.

 

[mickyparis]

Re : Additionner des cellules spécifiques d'une page

Bonsoir et merci pour ta réactivité.
J'ai mis en fichier joint un exemple.Sur cette page il faut imaginer beaucoup d'autres intitulés.
Merci

 

[Cousinhub]

Re : Additionner des cellules spécifiques d'une page

Bonsoir,
essaie avec ce code :

A Adapter en fonction du nom de la feuille

Sub somme_ing()
With Sheets("Feuil1").Cells
    Set c = .Find("ING", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
        temp = temp + c.Offset(0, -1)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
MsgBox temp
End Sub

 

[mickyparis]

Re : Additionner des cellules spécifiques d'une page

Merci beaucoup mais dans la feuille ci-jointe le résultat devrait être 555 et non 413...(en cliquant sur commandbutton)

 

[Cousinhub]

Re : Additionner des cellules spécifiques d'une page

RE :

toutes les cellules situées à gauche

Le résultat est bon...
Maintenant, à droite, résultat 547 et non 555

Private Sub CommandButton1_Click()
With Sheets("Feuil1").Cells
    Set c = .Find("ING", LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
        temp = temp + c.Offset(0, 1)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
MsgBox temp
End Sub

 

[mickyparis]

Re : Additionner des cellules spécifiques d'une page

yes!
merci beaucoup!

 

[BOISGONTIER]

Re : Additionner des cellules spécifiques d'une page

Bonsoir,


=SOMME(SI(B1:I37="ING";C1:J37))
valider avec maj+ctrl+entrée

JB

 

[mickyparis]

Re : Additionner des cellules spécifiques d'une page

c'est encore plus simple!merci beaucoup