Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir.
toto = InStr(1, c.Value, "toto") tata = InStr(1, c.Value, "tata") If toto > 0 Then sommetoto = sommetoto + c.Offset(0, 1).Value ElseIf tata > 0 Then sommetata = sommetata + c.Offset(0, 1).Value End If
Cordialement. daniel "astalavista" a écrit dans le message de news: 444d3015$0$13240$
Bonsoir,
Dans ce select case, comment faire la somme pour toutes les cellules contenant la chaîne toto le select avec des * si dessous ne marche ...
Select Case c.Value Case "*toto*" sommetoto = sommetoto + c.Offset(0, 1).Value Case "*tata*" sommetata = sommetata + c.Offset(0, 1).Value End Select
Merci d'avance....
Bonsoir.
toto = InStr(1, c.Value, "toto")
tata = InStr(1, c.Value, "tata")
If toto > 0 Then
sommetoto = sommetoto + c.Offset(0, 1).Value
ElseIf tata > 0 Then
sommetata = sommetata + c.Offset(0, 1).Value
End If
Cordialement.
daniel
"astalavista" <nobody@nowhere.com> a écrit dans le message de news:
444d3015$0$13240$626a54ce@news.free.fr...
Bonsoir,
Dans ce select case, comment faire la somme
pour toutes les cellules contenant la chaîne toto
le select avec des * si dessous ne marche ...
Select Case c.Value
Case "*toto*"
sommetoto = sommetoto + c.Offset(0, 1).Value
Case "*tata*"
sommetata = sommetata + c.Offset(0, 1).Value
End Select
toto = InStr(1, c.Value, "toto") tata = InStr(1, c.Value, "tata") If toto > 0 Then sommetoto = sommetoto + c.Offset(0, 1).Value ElseIf tata > 0 Then sommetata = sommetata + c.Offset(0, 1).Value End If
Cordialement. daniel "astalavista" a écrit dans le message de news: 444d3015$0$13240$
Bonsoir,
Dans ce select case, comment faire la somme pour toutes les cellules contenant la chaîne toto le select avec des * si dessous ne marche ...
Select Case c.Value Case "*toto*" sommetoto = sommetoto + c.Offset(0, 1).Value Case "*tata*" sommetata = sommetata + c.Offset(0, 1).Value End Select
Merci d'avance....
astalavista
Bonsoir.
toto = InStr(1, c.Value, "toto") tata = InStr(1, c.Value, "tata") If toto > 0 Then sommetoto = sommetoto + c.Offset(0, 1).Value ElseIf tata > 0 Then sommetata = sommetata + c.Offset(0, 1).Value End If
Cordialement. daniel
Super ça marche ....
Bonsoir.
toto = InStr(1, c.Value, "toto")
tata = InStr(1, c.Value, "tata")
If toto > 0 Then
sommetoto = sommetoto + c.Offset(0, 1).Value
ElseIf tata > 0 Then
sommetata = sommetata + c.Offset(0, 1).Value
End If
toto = InStr(1, c.Value, "toto") tata = InStr(1, c.Value, "tata") If toto > 0 Then sommetoto = sommetoto + c.Offset(0, 1).Value ElseIf tata > 0 Then sommetata = sommetata + c.Offset(0, 1).Value End If
