comment additionner des cellules si d'autres cellules de la même ligne répondent

Question

Bonjour,


dans la plage B9:H999
je voudrais faire une boucle qui teste chaque ligne . si les conditions spécifiées dans chaque ligne sont remplies alors on additionne les cellules en tête de ligne et on inscrit le total en B1001.

exemple:
si la cellule D9=condition1 et la cellule F9=condition2 et la cellule E9=condition3 et la cellule H9=condition4 alors je retiens la valeur de la cellule B9 pour l'addition finale. 
ligne suivante 
si la cellule D10=condition1 et la cellule F10=condition2 et la cellule E10=condition3 et la cellule H10=condition4 alors je retiens la valeur de la cellule B10 pour l'additionner à B9. 
etc.

par contre, si l'une des conditions n'est pas remplie = je passe à la ligne suivante sans rien retenir à additionner.

Je n'arrive pas à écrire ce code, il y  a toujours une variable ou un autre truc qui cloche !
quelqu'un peut-il m'aider ?

drine des iles

mortalino · Answer

Salut,

    Dim i As Integer
    Dim MaVal As Double

MaVal = 0

For i = 9 To 999
    If Cells(i, 4) tacondition1 AND Cells(i, 6) tacondition2 AND _
            Cells(i, 5) tacondition3 Cells(i, 8) tacondition4 Then
        MaVal = MaVal + Cells(i, 2).Value
    End If
Next i

Cells(1001, 2).Value = MaVal

@++

cs_MPi · Answer

Selon la complexité de tes conditions, tu pourrais simplement écrire
une formule dans une autre colonne (i, par exemple) avec vérification
des 4 conditions.


SI(ET(D9"Condition 1";E9="Condition 3";F9="Condition 2";H9="Condition 4");B9;0)


et tu fais la somme de la colonne "i" (cette colonne pourrait être masquée au besoin.

MPi

drine des iles · Answer

Merci à tous les 2 de m'avoir répondu. 
Tout d'abord, pour répondre MPi, j'ai pensé effectivement à la solution "fonction SI" mais j'ai trop d'arguments à traiter, excel ne gère pas plus de 30 conditions (or j'ai 999 lignes à tester).

j'ai donc pris le code du "chevalier" (cf son portrait !) que j'ai adapté à mes conditions et ça ne marche toujours pas. Par contre il n'y a aucun message d'erreur ou de bogue.
Je ne comprend pas pourquoi rien ne s'inscrit dans la cells (1001,2) ?
Pouvez-vous m'aider ?

Sub ventil()


Dim i As Integer
Dim MaVal As Double
Dim CH As String
Dim payé As String
Dim m As Double
m = InputBox("Entrez le numéro du mois à éditer")
MaVal = 0
For i = 9 To 999If Cells(i, 4) m And Cells(i, 6) CH And _    Cells(i, 5) CH And Cells(i, 8) payé Then
MaVal = MaVal + Cells(i, 2).Value
End If
Next i
cells(1001, 2).Value = MaVal
End Sub

drine des iles

mortalino · Answer

Salut, essaie comme ceci (et vérifie ce que je t'ai mis en commentaires) : Sub ventil() Dim i As Integer Dim MaVal As Double Dim CH As String Dim payé As String Dim m As Byte ' ***(pas Double) ' *** payé est déclaré, mais ne possède aucune affectation de caractères !! ' *** idem pour CH m = InputBox("Entrez le numéro du mois à éditer") MaVal = 0 For i = 9 To 999 If Cstr(Cells(i, 4).Value) = Cstr(m) And _ Cstr(Cells(i, 6).Value) = cStr(CH) And _ Cstr(Cells(i, 5).Value) = Cstr(CH) And _ Cstr(Cells(i, 8).Value) = payé Then MaVal = MaVal + CDbl(Cells(i, 2).Value) End If Next i cells(1001, 2).Value = MaVal End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

cs_MPi · Answer

L'important, ce n'est pas le nombre de lignes mais le nombre de conditions que tu as à chaque ligne.


D'après ce que je comprends, sur la ligne 9, tu veux vérifier les
valeurs de D9, E9, F9 et H9 ,donc 4 conditions. Puis sur la ligne 10,
tu veux vérifier D10, E10, F10 et H10, donc 4 autres conditions.


Donc, avec le genre de formule que je t'ai inscrite, tu n'as qu'à la
créer une fois sur la ligne 9, dans une colonne vierge, puis la copier
sur les autres lignes en-dessous. Si les 4 conditions sont vérifiées,
ça inscrit la valeur de B, sinon 0. Tu pourras donc faire le total de
cette colonne aisément.

MPi

mortalino · Answer

Salut MPi, 

je confirme ce que tu dis, il suffit de coller ta formule sur la première ligne (la 9ème), de la sélectionnée, et de faire glisser la sélection jusqu'à la ligne 999.
Les valeurs s'incrémenteront par rapport à leurs positions dans les lignes.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

Oui je suis d'accord avec vous. j'ai simplifié la formule pour qu'elle soit plus facileà expliquer mais en fait j'ai des conditions assez complexe à gérer. J'aurais dû vous le dire dés le début pour ne pas vous faire perdre de temps. Sorry

condition 1 = il faut que le mois inscrit dans la cellule corresponde au mois inscrit dans la input box
condition 2 = Ch
condtion 3 = si la cellule est vide, se rendre dans la cellule voisine à gauche (ça je sait faire avec les réfénce offset...) pour voir si la condition se réalise
condition 4= payé

puis je recommence les mêmes conditions en changeant Ch par ES, puis je recommence en changeant ES par VR et enfin, en changeant VR par PRL.

et ceci dans se répeter dans 6 listes différentes pour au final ne donner qu'un seul montant.

mon souci est que je n'arrive pas à déclarer les variables comme il faut.
D'ailleurs merci Mortalino, tu m'a montré la variable byte que je n'avais jamais vu. 
Malheureusemen ta dernière proposition de code ne fonctionne pas non plus.

Je ne vois vraiment pas où est le problème ? Vous qui étes plus expérimentés le trouverez certainement maitenant que je vous ai tout détaillé .

drine des iles

mortalino · Answer

Juste pour vérifier une chose, met toi sur la bonne feuille, affiche l'éditeur VB, insère un module et place ceci : Sub Test() MsgBox Cells(i, 4).Value End Sub Coloration syntaxique automatique Appuie sur F5 et dis moi ce que te dit la message box @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

mortalino · Answer

Remplace i par 9  (désolé, suis allé trop vite)

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

la msgbox me répond 9.





drine des iles

mortalino · Answer

Le problème ne vient pas du mois donc, mais vient, je pense de tes conditions. Par exemple, dans le code que je t'ai mis (celui coloré), tu as donc CH et payé comme variables, mais techniquement, elles sont vides. Et d'après tes explications, CH est une condition où je sais pas raiment quoi. En fait, SI dans tes cellules, c'est marqué CH et payé, tel quel, dans ce cas là, pas besoins de variables dans ton code mais d'une chaine de caractères : Sub ventil() Dim i As Integer Dim MaVal As Double ' *** variables ici supprimés (CH et payé) Dim m As Byte ' ***(pas Double) ' *** payé est déclaré, mais ne possède aucune affectation de caractères !! ' *** idem pour CH m = InputBox("Entrez le numéro du mois à éditer") MaVal = 0 For i = 9 To 999 If Cstr(Cells(i, 4).Value) = m And _ Cstr(Cells(i, 6).Value) = "CH" And _ ' *** CH est à mettre entre "" Cstr(Cells(i, 5).Value) = "CH" And _ ' *** CH est à mettre entre "" Cstr(Cells(i, 8).Value) = "payé" Then ' *** payé est à mettre entre "" MaVal = MaVal + CDbl(Cells(i, 2).Value) End If Next i cells(1001, 2).Value = MaVal End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

drine des iles · Answer

Désolée ça ne fonctionne toujours pas. Par contre cette fois il me donne toutes ces lignes en surlignés jaune pour m'indiquer que l'erreur est par là. J'ai essayé quelques modifications "à l'instinct" mais là je suis dépassée. Je ne comprend toujours pas ou ça coince !

 If CStr(Cells(i, 4).Value) = m And _
     CStr(Cells(i, 6).Value) = "CH" And _
     CStr(Cells(i, 5).Value) = "CH" And _
     CStr(Cells(i, 8).Value) = "payé" Then




drine des iles

mortalino · Answer

Supprime mes commentaires à droite des _ (underscore) Sans toucher la mise en forme du code (un espace de moins et c'est foutu). Je veins de faire le test, un copier coller du code suivant sera plus facile : Sub ventil() Dim i As Integer Dim MaVal As Double ' *** variables ici supprimés (CH et payé) Dim m As Byte ' ***(pas Double) ' *** payé est déclaré, mais ne possède aucune affectation de caractères !! ' *** idem pour CH m = InputBox("Entrez le numéro du mois à éditer") MaVal = 0 For i = 9 To 999 If Cstr(Cells(i, 4).Value) = m And _ Cstr(Cells(i, 6).Value) = "CH" And _ Cstr(Cells(i, 5).Value) = "CH" And _ Cstr(Cells(i, 8).Value) = "payé" Then MaVal = MaVal + CDbl(Cells(i, 2).Value) End If Next i cells(1001, 2).Value = MaVal End Sub Coloration syntaxique automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois" /DIV>

drine des iles · Answer

je l'avais déjà fait. le problème ne vient pas de là ! c'est à y perdre son latin !

drine des iles

mortalino · Answer

Là franchement je sèche et faut que j'aille me coucher (je me lève à 5h) mais en cas, mets moi ce qui à dans tes cellules exemple :
(écrie en courier New pour l'espacement des caractères) :

   Colonne A        Colonne B        Colonne C  
L1     1             Bonjour         =NB.SI(...)      
L2     2            Au revoir       =mainntenant()      
L3     3             Bonjour       =autres formules

je regarde ça demain matin  

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

Génial, merci beaucoup. je vais faire ça et pour ma part, je continue de chercher. bonne nuit !

drine des iles

drine des iles · Answer

---- n° facture , Montt 1 , Jour 1 , Mois 1 , Règl. 1 , Règl. 1 modifié par , Notes 1 , Payé 1 , ---- 1040706M, 100,00 ?, 05, 09, CH, CH, aze, Payé, ---- 1050706M, 200,00 ?, 10, 06, CH, CH, Ch.Bourdio remplacé par SG n° 1236 au nom :Desgrottes, Payé, ---- 1060906M, 100,00 ?, 10, 06, ES, , réglé à réception, Payé, ---- 1070906M, 50 ? , 15, 07, CH, , à déposer le 30 sept., voici ls 3 1ères lignes du tableau. cette même liste se reproduit 6 fois (en tant qu'association nous sommes larges avec les adhérents et nous proposons jusqu'à 6 échéances). Voilà pourquoi au bout d'un moment , il est difficile de savoir qui a payé à quel moment et par quel moyen. si tu peux m'aider dans la macro ça résoudra mon problème : sur le mois x, combien de chéques ont été porté en banque, et pour quel montant (idem pour les ES, CB...) ? drine des iles

mortalino · Answer

Ok, je pense avoir trouvé :

les   Cells(i, X).Value    récupèrent les formules, et non les valeurs.
Pour tous les Cells(i, X).Value, remplace le mot Value par Text

++

drine des iles · Answer

Désolée ça ne fonctionne pas non plus. 
A ton avis, est-ce que le fait que les cellules soient dans une liste peut être la source du problème ?

drine des iles

mortalino · Answer

Salut Drine,

désolé, je ne vois pas ce que tu veux dire avec tes cellules dans une liste.


Si chaque cellule possède des coordonnées, il ne devrait pas y avoir de problèmes, mais j'ai déjà rencontrer des difficultés, surtout avec les dates, pour comparer entre le format excel et le format vb, qques fois c'est difficile.

@++ 





<hr width="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

C'est une liste qui sert à extraire des tableaux en croisé dynamique . C'est donc un outil spécial d'excel;
peut-être cette liste bloque -t-elle certaine fonctionnalité VBA ? 
drine des iles

mortalino · Answer

Peut-être, je suis pas un pro dans les TCD mais si, avec l'arborescence ouverte, les cellules ont bien une adresse (ex : D5), beh il ne devrait pas y avoir de problèmes.


Il faut travailler avec les données dans le tableur, si ta liste est un module spécial, là effectivement ça ne marchera pas.

@++ 





<hr width="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

Bonjour Mortalino
J'ai réécrit le code comme ci-dessous et j'obtient un résultat. 
Le problème c'est que ça affiche le montant total de toute les cellules (i,3) sans tenir compte des conditions préalablement énoncées.
Si 

Sub ventil_encaiss()
Dim mois As Variant
Dim maval As Double
Dim CH As String
Dim payé As String
Dim i As Integer
mois = InputBox("Entrez le numéro du mois à éditer.")
maval = 0


For i = 9 To 999   If Cells(i, 5) mois And Cells(i, 9) payé And _   Cells(i, 6) CH And Cells(i, 7) "" Then
   EndIf                                                                                                                            '(si '(si je place le next i ou le total maval avant le end if ça ne marche plus !)
                                                      
   Next i
    Range("B1001") = maval + Cells(i, 3).Value
End Sub
drine des iles

cs_MPi · Answer

For i = 9 To 999

   If Cells(i, 5) mois And Cells(i, 9) "payé" And _

      Cells(i, 6) "CH" And Cells(i, 7) "" Then

      maval = maval + Cells(i, 3)

   End If


Next i


    Range("B1001") = maval 

End Sub


Attention de mettre des guillemets autour des valeurs de texte qui ne sont pas des variables. Si mois est une variable, il n'est pas nécessaire d'en mettre pusiqu'elle les contient par défaut.

Attention aussi à la casse: CH est différent de ch ou Ch

MPi

drine des iles · Answer

effectivement j'ai oublié les ". Mais ça ne permet pas de prendre en compte les conditions que j'ennonce ! la boucle continue d'additionner toutes les cellules de la colonne sans tenir compte des conditions annoncées !

drine des iles

mortalino · Answer

alors teste condition par condition, afin de déterminer où ça ne va pas :

For i = 9 To 999
   MsgBox Cells(i, 5).Value & " - " & mois   '*** il me semblait avoir mis Value ^^
End If    

For i = 9 To 999
   MsgBox Cells(i, 9).Value & " - " & Cells(i, 6).Value & " - " &  Cells(i, 7).Value
End If 

Vérifie que tes données sois bonnes !

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

Je crois que j'ai une piste mais je ne sais pas comment écrire le code.

1/ j'ai testé toutes les conditions comme tu me l'as dit et tout à l'air bon.
2/ j'en déduit qu'il tient donc compte des conditions émises au moment où il les lit
3/ le problème viendrait donc du fait que je ne lui ai pas dit ce qu'il faut faire si la condition n'est pas réalisée.
4/ donc, ne sachant pas quoi faire , condition réalisée ou pas il passe à la ligne suivante et additionne toutes les cells (i,3) sans sourciller !


5/ donc, j'ai essayé de lui écrire que si cells (i,5)= mois n'est pas VRAI il faut directement passer à la ligne suivante .
puis, si condition 1 est VRAI mais condition 2 est fausse, alors il faut passer à la ligne suivante etc.

6 / comment lui dire que si et seulement si toutes les conditions sont remplies il peut additionner les valeurs correspondantes ?

as tu une idée ?

drine des iles

mortalino · Answer

Oui, confère mon code page 1 :

For i =  9 To 999
  If Cstr(Cells(i, 4).Value) = m And _
     Cstr(Cells(i, 6).Value) = "CH" And _  ' *** CH est à mettre entre ""
     Cstr(Cells(i, 5).Value) = "CH" And _  ' *** CH est à mettre entre ""
     Cstr(Cells(i, 8).Value) = "payé" Then ' *** payé est à mettre entre ""
         MaVal   = MaVal + CDbl(Cells(i, 2).Value)
  End If
Next i
cells(1001, 2).Value =  MaVal

 MaVal   que ne prend la valeur que si la condition est vrai.

En gros, si tes 4 conditions sont vrais, MaVal égal lui même (donc 0 la première fois) + la valeur de la cellule Bi (i vaut pour 9 à 999).


Si les conditions ne sont pas vraies, pas il passe à la ligne suivante

@++ 





<hr width ="100%" size="2" />

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

effectivement j'avais essayé ce code que tu m'avais déjà donné.
Il y a un problème au moment d'afficher le total.
si je laisse maval = maval+ CDbl(Cells(i, 3).Value) avant l'instruction end if : il ne m'affiche aucun montant.
si je place maval = maval+ CDbl(Cells(i, 3).Value) aprés end if il me donne le montant total de toute la colone sans tenir compte des conditions !!!!

c'est à devenir FOU !!!

Sub ventil()Dim m As Variant
Dim maval As Double
Dim CH As String
Dim payé As String
Dim i As Long
m = InputBox("Entrez le numéro du mois à éditer.Exemple : 05 (mai)")
maval = 0


For i = 9 To 999
  If CStr(Cells(i, 5).Value) = m And _
     CStr(Cells(i, 7).Value) = "CH" And _
     CStr(Cells(i, 6).Value) = "CH" And _
     CStr(Cells(i, 9).Value) = "payé" Then
     '   maval = maval + CDbl(Cells(i, 3).Value)
  End If
  maval = maval + CDbl(Cells(i, 3).Value)
Next i
 
Range("b1001").Value = maval
End Sub
drine des iles

mortalino · Answer

Beh en fait, on en revient toujours au même problème : tes conditions ne se vérifient pas.
Sache, que lorsque tu testes comme tout à l'heure (avec les message box), tu as une valeur qui apparait, je reprends mon test :

MsgBox Cells(i, 5).Value & " - " & mois

Si il apparait :

10 - 10
c'est bon, les valeurs sont les mêmes,

par contre s'il apparait :

"10" - 10
bah c'est pas bon, la première valeur est de type String (chaines de caractères) alors que la seconde est de type numérique.

Il faut que les données soient concordantes, d'où le fait de bien déclarer ses variables, et l'importances des "".

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

drine des iles · Answer

Désolée, j'ai refait le test et les messages donne tous des valeurs identiques.

je crois que je vais laisser tomber  et trouver un autre moyen d'arriver à ce résultat sans passer par une macro parceque je n'en vois plus le bout.

si un jour je trouve la solution (quand je serais devenue "forte" en VBA), je ne manquerais pas de te dire le résultat.
je te remercie ENORMEMENT pour tous le temps que tu m'a accordé.
Je pense qu'en provence il doit être l'heure d'aller dormir alors : BONNE NUIT ET MERCI ENCORE POUR TOUT;

drine des iles

cs_MPi · Answer

Drine, tu dois absolument procéder comme te l'indique Mortalino

For i =  9 To 999

  If Cstr(Cells(i, 4).Value) = m And _

     Cstr(Cells(i, 6).Value) = "CH" And _  ' *** CH est à mettre entre ""

     Cstr(Cells(i, 5).Value) = "CH" And _  ' *** CH est à mettre entre ""

     Cstr(Cells(i, 8).Value) = "payé" Then ' *** payé est à mettre entre ""

         MaVal   = MaVal + CDbl(Cells(i, 2).Value)

  End If
Next i
cells(1001, 2).Value =  MaVal
------------------------------------------------------
 MaVal   = MaVal + CDbl(Cells(i, 2).Value)
doit être à l'intérieur du If ... End If

Si la valeur est 0 lorsque la boucle se termine, c'est que toutes les
conditions n'ont pas été vraies. Si, d'après toi, certaines lignes
contiennent les 4 conditions vraies, il faut alors vérifier les valeurs
des cellules.


Comme j'ai dit CH est différent de Ch et de ch, mais aussi "CH " est différent de "CH".

Il y a peut-être des espaces dans les valeurs de tes cellules. Il faudrait alors utiliser Instr() ou Trim()

For i =  9 To 999


  If Cstr(Cells(i, 4).Value) = m And _


     Trim(Cells(i, 6).Value) = "CH" And _  ' *** CH est à mettre entre ""


     Trim(Cells(i, 5).Value) = "CH" And _  ' *** CH est à mettre entre ""


     Trim(Cells(i, 8).Value) = "payé" Then ' *** payé est à mettre entre ""


         MaVal   = MaVal + CDbl(Cells(i, 2).Value)  ' *** à laisser là


  End If
Next i
cells(1001, 2).Value = MaVal

MPi

drine des iles · Answer

Bonjour MPi, merci de ton coup de main à toi aussi;

Bien, j'ai tout repris. j'ai vérifier, comme Mortalino me l'avait expliqué la valeur des cellule grace à une msgbox. A chaque fois le résultat annoncé dans la msgbox est égal à celle du code. Mais effectivement le résultat de la boucle est 0. Donc je me suis surement trompée dans les déclarations. Voilà ce que j'ai saisi ( les références des cellules ont un peu changé car j'ai modifié un brin le tableau qui contient les données.
Qu'en penses-tu ?

Sub ventil()
Dim i As Long
Dim payé As String
Dim CH As String
Dim m As Byte
Dim maval As Double


maval = 0
m = InputBox("Entrez le numéro du mois à éditer")
For i = 9 To 999
  If CStr(Cells(i, 5).Value) = m And _
     CStr(Cells(i, 7).Value) = "CH" And _
     CStr(Cells(i, 6).Value) = "CH" And _
     CStr(Cells(i, 9).Value) = "payé" Then
        maval = maval + CDbl(Cells(i, 3).Value)
  End If
Next i
Range("j4").Value = maval
drine des iles

cs_MPi · Answer

Ces déclarations ne servent à rien

Dim payé As String

Dim CH As String

Les termes "payé" et "CH" que tu recherches sont des valeurs de cellules et non des variables.


Si tu veux, tu peux m'envoyer le contenu de ta feuille. Ça peut être dû
à un détail idiot qu'on ne voit pas. La façon dont le code est écrit
semble correcte, mais c'est difficile pour nous de voir où peut être
l'erreur ou le problème...


m_pi@videotron.ca

MPi

cs_MPi · Answer

Pour ceux qui ont suivi (et participé) le post... Une seule lettre faisait que ça ne fonctionnait pas: un simple P(ayé)

C'est du moins ma conclusion après avoir vu le fichier et les diverses interventions...


Sub CalculSelonConditions()

    Dim I As Long, Total As Double

    Dim nbLignes As Long

    Dim Mois As Integer

    

    Mois =  CInt(InputBox("Entrer le mois à vérifier"))

    

    'Trouver le nombre de lignes à vérifier en se basant sur la colonne E

    'Changer les 3 E pour vérifier une autre colonne

    nbLignes = Columns("E:E").Find("*", Range("E1"), , , xlByRows, xlPrevious).Row

    

    For I = 9 To nbLignes

        If Range("E" & I) = Mois And _

            Range("F" & I) = "CH" And _

            Range("G" & I) = "CH" And _

            Range("I" & I) = " P ayé" Then

            

            Total  = Total + Range("C" & I)

        End If

    Next

    Range("I5") = Format(Total, "currency")

    

End Sub


Et pour s'assurer que les comparaisons sont toujours efficaces, il vaut encore mieux y aller comme suit:

    
For I = 9 To nbLignes
        If CStr(Range("E" 
& I)) = CStr(Mois) And _     
            
UCase(Range("F" & I)) = "CH" And _         
            UCase(Range("G" & I)) = "CH" 
And _        
            UCase(Range("I" & I)) = 
"PAYÉ" Then       
            
            Total = Total + Range("C" & 
I)
        End If
    Next


Et on pourrait beurrer encore plus épais en mettant

    
For I = 9 To nbLignes
        If Val(Range("E" 
& I)) = Val(Mois) And _     
            
Trim(UCase(Range("F" & I))) = "CH" And _         
            Trim(UCase(Range("G" & I))) = "CH" 
And _        
            Trim(UCase(Range("I" & I))) = 
"PAYÉ" Then       
            
            Total = Total + Range("C" & 
I)
        End If
    Next

MPi

drine des iles · Answer

Merci encore mille fois à Mortalino et à MPi.
j'avoue que j'avais laché prise et pour cause, j'étais bien loin d'arriver à écrire ce code seule (ça dépasse largement le contenu de mon "VBA pour les nuls"!!!)!!!
Merci aussi aux concepteurs du site car j'avoue que ces quelques jours d'échanges autour d'un code qui me posait problème auront été trés riches d'enseignements.

drine des iles

Comment additionner des cellules si d'autres cellules de la même ligne répondent

36 réponses

Votre réponse

Discussions similaires