Additionner des cellules spécifiques d'une page

mickyparis · 24 Mars 2008

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 · 24 Mars 2008

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 · 24 Mars 2008

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 · 24 Mars 2008

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

Bonsoir,
essaie avec ce code :

A Adapter en fonction du nom de la feuille

Code:

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 · 24 Mars 2008

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 · 24 Mars 2008

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

Code:

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 · 24 Mars 2008

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

yes!
merci beaucoup!

BOISGONTIER · 24 Mars 2008

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 · 25 Mars 2008

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

c'est encore plus simple!merci beaucoup

Additionner des cellules spécifiques d'une page

mickyparis

XLDnaute Nouveau

Brigitte

XLDnaute Barbatruc

mickyparis

XLDnaute Nouveau

Pièces jointes

Cousinhub

XLDnaute Barbatruc

mickyparis

XLDnaute Nouveau

Pièces jointes

Cousinhub

XLDnaute Barbatruc

mickyparis

XLDnaute Nouveau

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

mickyparis

XLDnaute Nouveau

Discussions similaires