A voir également:
- Somme sous VBA = question facile !
- Somme si couleur - Guide
- Somme excel - Guide
- Somme si ens date comprise entre ✓ - Forum Excel
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
7 réponses
Claude Claude
Messages postés
1756
Date d'inscription
vendredi 17 août 2007
Statut
Membre
Dernière intervention
29 août 2009
584
12 sept. 2007 à 22:46
12 sept. 2007 à 22:46
Facile !
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 :)
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
:)
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
:)
