Somme sous VBA = question facile !
Andy30
-
BoOst -
BoOst -
Bonsoir à tous. Voici une formule qui me permet sous excel-vba d'ajouter toutes les cell qui contiennent une même couleur.
Range("f14:i24").Select
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 7 Then
total = total + Cellule.Count
End If
Next
Cells(1, 1) = total
Cells(1, 1).Select
Je voudrais modifier cette formule pour ajouter toute les cellules qui contiennent dans un secteur donné) un même mot, par exemple "RS".
Merci d'avance pour votre aide et bonne fin de soirée.
Range("f14:i24").Select
Dim Cellule As Range
Dim total As Variant
For Each Cellule In Selection
If Cellule.Interior.ColorIndex = 7 Then
total = total + Cellule.Count
End If
Next
Cells(1, 1) = total
Cells(1, 1).Select
Je voudrais modifier cette formule pour ajouter toute les cellules qui contiennent dans un secteur donné) un même mot, par exemple "RS".
Merci d'avance pour votre aide et bonne fin de soirée.
Configuration: Windows XP Internet Explorer 7.0
7 réponses
-
-
-
lol :)
Salut, j'ai pas exacement compris : tu veut aditionner le contenu ds cellules qui contiennent un mot, mais il y a donc un chiffre dans la cellule ?
Voici un code qui fait cherche les cellules qui contiennent le mot, puis additionne le contenu en ignorant le mot :
Range("f14:i24").Select
Dim Cellule As Range
Dim total As Variant
Dim v As String
Dim mot As String
mot = "rs"
For Each Cellule In Selection
If (InStr(Cellule.Value, "rs") > 0) Then
v = Replace(Cellule.Value, mot, "")
total = total + Val(v)
End If
Next
Cells(1, 1) = total
Cells(1, 1).Select
Dit moi si ca te convient :) -
Merci pour ton intervention BoOst... pour ta première question = non il n'y as pas de chiffre dans la cellule ou, les cellules qui contienne le mot "RS". je souhaite juste ajouter (recencer) les cell qui contiennent le mot "RS".
:) -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
donc tu veut juste compter le nombre de cellule et pas leur contenu ?
donc :
Range("f14:i24").Select
Dim Cellule As Range
Dim total As Variant
Dim mot As String
mot = "rs"
For Each Cellule In Selection
If (InStr(Cellule.Value, "rs") > 0) Then
total = total + 1
End If
Next
Cells(1, 1) = total
Cells(1, 1).Select
et si tu veut tester sur le texte complet et pas une partie seulement :
Range("f14:i24").Select
Dim Cellule As Range
Dim total As Variant
Dim mot As String
mot = "rs"
For Each Cellule In Selection
If (Cellule.Value = mot) Then
total = total + 1
End If
Next
Cells(1, 1) = total
Cells(1, 1).Select
:) -
-
