PRODUIT EN VBA [Résolu]

Signaler
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour,

j'ai un soucis je voudrai faire le produit de cellules en vba
merci de votre aide
ces cellule son en colonNe W

4 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
if cell(i,"E).text like "aaa" then
n'est pas une syntaxe valable :
- Cell n'existe pas --> Cells
- Manque un " après le E --> "E"
Colle ton code réel, sinon on ne va jamais s'en sortir !

Si tu utilises Like, c'est que tu cherches une partie du texte.
- Si le texte que tu cherches est uniquement "aaa" (et rien devant ni derrière", alors préfère le If Cells(i, "E").Text "aaa" Then
- Si tu penses trouver un texte qui contient "aaa", la syntaxe est incomplète : manque les * :
If Cells(i, "E").Text Like "*aaa*" Then

De plus, il faut savoir que "aaa" et "AAA" n'est pas la même chose avec Like : En tenir compte (voir UCase et LCase)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Salut
Le "produit de cellules" : veux-tu dire la multiplication ?
Quelle est ton problème ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014

mon probleme c'est que je veux faire la multiplication des valeurs de cellules de la colonne W
en plus ces valeurs ne sont pas aligné elles sont sur la meme ligne que le caractere "aaa" qui lui est en colonne E dans ce cas j veux qu'il y est une condition du style
if cell(i,"E).text like "aaa" then
faire le produit des valeurs de la colonne W
A CHAque fois qu'on a le carctere aaa

merci
Messages postés
29592
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 septembre 2020
337
Bonjour,
en reprenant ton exemple :
if cell(i,"E).text like "aaa" then
faire le produit des valeurs de la colonne W


on peut proposer un code du genre :


Sub Mutlipl()
Dim Resultat
    Resultat = 1
Dim maplage As Range
Set maplage = Range("E1:E100") 'plage de cellules concernées par le test 'aaa'

For Each Cell In maplage
If Cell.Value Like "aaa" Then
    Resultat = Resultat * Cells(Cell.Row, "W").Value 'multiplication
End If
Next
End Sub




Cordialement,
Jordane,