Discussion :

[student12]

Bonjour a tous et a toutes!

Je suis tout nouveau ici... ce message est donc le premier d'une longue liste??!

Je fais appel a vous pour que vous puissiez m'aider sous VBA excel.. Je suis debutant et j'aimerai savoir dire en "langage VBA"la phrase suivante:

Si il y a des chiffres negatifs dans la colonne C alors faire la somme de ces chiffres negatifs dans la case D1

(j'espere avoir ete clair...)

Merci beaucoup par avance,

student12

[bilou_12]

Qqe chose comme ca devrait marcher!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'initialise la variable somme
somme = 0
'calcule le nombre max de ligne sur lesquels boucler
m = Range("C" & Rows.Count).End(xlUp).Row
'démarre la boucle
For i = 1 To m
    'vérifie la condition
    If Range("C" & i) < 0 Then
        somme = somme + Range("C" & i)
    End If
Next
'écrit dans la cellule D1
Range("D1") = somme

Teste et dis nous!

[student12]

Reponse ultra rapide ca c'est VRAIMENT cool!!
Bon j'ai essaye de transposer a mon cas et... c'est la berezina!

En fait, je vous explique un peu mieux, j'ai la macro suivante:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
Dim J
Dim Cel As Range
Dim sheet1, sheet3, i
 
Set Cel = Worksheets("sheet1").Range("E2")
Set Cel1 = Worksheets("sheet1").Range("D2")
 
J = 1
i = 2
 
 
Worksheets("sheet3").Range("b:c").Clear
TextBox1.Value = " "
 
Do While Cel.Offset(J) <> ""
 
If ComboBox1.Value = Cel.Offset(J).Value Then
ino = "b" & i
Worksheets("sheet3").Range(ino).Value = Cel.Offset(J).Value
ino = "C" & i
Worksheets("sheet3").Range(ino).Value = Cel1.Offset(J).Value
i = i + 1
 
 
 
End If
 
J = J + 1
 
Loop
 
End Sub

et j'aimerai mettre avant le end if, une formule vba qui me permettrait de calculer les valeurs negatives qui sont dans la "sheet3" a la colonne C
et faire la somme de ces valeurs negatives directement dans ma textbox1...

C'est clair ou du pur charabia??! (pour moi ca parait clair mais je suis tellement dans mon truc que bon on sait jamais! )

MERCI je suis desespere je bosse dessus depuis 2 jours...

[evx136]

Oui un peu Charabia ....... et Si tu mettais un fichier en PJ

[Bear the french]

Bonjour student12,

En traduisant mot à mot ton dernier message :

il te faut rajouter une variable qui va recueillir le résultat de l'addition des chiffres négatifs. Par exemple :

Code :

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

1
2
3
4
5
'Déclaration de la variable
Dim cumul As Long
 
'Initialisation de la variable
cumul = 0

Puis insérer dans ton if (à la fin, après ton i=i+1) :

Code :

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

1
2
3
If Worksheets("sheet3").Range(ino).Value < 0 Then
    cumul = cumul + Worksheets("sheet3").Range(ino).Value
End If

Puis afficher ton résultat, après ta boucle Do While :

Code :

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

TextBox1.Value = cumul

Voilà l'idée, à toi de l'adapter.

Bertrand

[Philippe Tulliez]

Bonjour,
Si tu dois faire une somme suivant une condition, tu peux utiliser SUMIF
Voici une exemple en VBA

Code :

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

MsgBox Application.WorksheetFunction.SumIf(Range("C2:C12"), "<0")

Son équivalent en Excel

Code :

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

=SOMME.SI(C2:C12;"<0")

Pour ton cas, tu remplaces MsgBox par TextBox1 = et il faut bien sûr adapter la plage des cellules à sommer.
[EDIT]
Pour ne pas faire la somme des cellules d'une autre feuille, il est préférable de préciser la feuille naturellement

Code :

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

1
2
3
Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Sheet3").Range("C2:C12")
MsgBox Application.WorksheetFunction.SumIf(rng, "<0")

[student12]

Merci pour toutes ces reponses!

Bear the French a definitivement apporte LA solution a mon probleme (merci aux autres membres pour les conseils c'est toujours utile!)

MERCI (vous m'enlevez une grosse epine du pied!)