Bonjour a tous et bonjour au forum,
J'essaie avec panache de faire la somme de colonne mais avec une condition.
Je cherche en vain sur le forum un post similaire mais je ne trouve rien.
Exemple:
Colonne A ---- Colonne B
2 ---450------------Bleu---
3 ---300------------Rouge-
4 ---600------------Rouge-
5 ---300------------Bleu---
6 ---200------------Bleu---
7 ---250------------Rouge-
Je voudrais faire la somme des Rouges en C16 et des bleus en D16.
Je veux utiliser VBA pour cela et non une fonction excel.
Je tente avec le code ci dessous (enfin c'est vraiment un debut pour le coup)
mais il s'arrete des que la valeur n'est pas bleu (pareil pour le rouge).
De plus, merci de pas tenir compte du paste...
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Offset = "bleu" Then
ActiveCell.Offset(0, -1).Select
Selection.Copy
Range("C16").PasteSpecial
End If
Loop
Un grand merci pour votre aide.
J'essaie avec panache de faire la somme de colonne mais avec une condition.
Je cherche en vain sur le forum un post similaire mais je ne trouve rien.
Exemple:
Colonne A ---- Colonne B
2 ---450------------Bleu---
3 ---300------------Rouge-
4 ---600------------Rouge-
5 ---300------------Bleu---
6 ---200------------Bleu---
7 ---250------------Rouge-
Je voudrais faire la somme des Rouges en C16 et des bleus en D16.
Je veux utiliser VBA pour cela et non une fonction excel.
Je tente avec le code ci dessous (enfin c'est vraiment un debut pour le coup)
mais il s'arrete des que la valeur n'est pas bleu (pareil pour le rouge).
De plus, merci de pas tenir compte du paste...
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Offset = "bleu" Then
ActiveCell.Offset(0, -1).Select
Selection.Copy
Range("C16").PasteSpecial
End If
Loop
Un grand merci pour votre aide.