Vba et sommes et if
01delph75
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
01delph75 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
01delph75 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
comment faire quand je dois ajouter deux if et faire une somme par la suite... je cherche que si les cellules d'une feuille est égale à la première cellule de l'autre et que si c'est le tissu alors sur les lignes ou les deux sont je veux faire la somme.... pas très clair comme ca mais voila ma macro
Private Sub CommandButton2_Click()
Dim operateur As String
Dim typetissu As String
Dim reportopera As String
Dim reporttissu As String
Sheets("blotter").Cells(i, 1).Value = operateur
Sheets("blotter").Cells(i, 2).Value = typetissu
Sheets("calculateur").Range(A2).Value = reportopera
Sheets("calculateur").Cells(i, 2).Value = reporttissu
If operateur.Value = reportopera.Value And typetissu.Value = reporttissu.Value Then
Sheets("reporting").Cells(i, 3) = WorksheetFunction.Sum(Cells(i, 7))
End If
End Sub
comment faire quand je dois ajouter deux if et faire une somme par la suite... je cherche que si les cellules d'une feuille est égale à la première cellule de l'autre et que si c'est le tissu alors sur les lignes ou les deux sont je veux faire la somme.... pas très clair comme ca mais voila ma macro
Private Sub CommandButton2_Click()
Dim operateur As String
Dim typetissu As String
Dim reportopera As String
Dim reporttissu As String
Sheets("blotter").Cells(i, 1).Value = operateur
Sheets("blotter").Cells(i, 2).Value = typetissu
Sheets("calculateur").Range(A2).Value = reportopera
Sheets("calculateur").Cells(i, 2).Value = reporttissu
If operateur.Value = reportopera.Value And typetissu.Value = reporttissu.Value Then
Sheets("reporting").Cells(i, 3) = WorksheetFunction.Sum(Cells(i, 7))
End If
End Sub
A voir également:
- Vba et sommes et if
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
2 réponses
Salut,
Je vois déjà deux problèmes dans ta fonction :
1) la variable i n'a pas de valeur de départ
2) il manque .value dans "cells(i,3)" ---> cells(i,3).value
Je ne connais pas la fonction "WorksheetFunction.Sum(Cells(i, 7))", mais si i prend une valeur déterminée, la somme ne concerne qu'une seule cellule et donc il n'y a pas de somme en fait.
Peut être faut il une boucle pour parcourir les valeurs...
enfin, voilà quelques pistes.
Bon courage.
A+
IC
Je vois déjà deux problèmes dans ta fonction :
1) la variable i n'a pas de valeur de départ
2) il manque .value dans "cells(i,3)" ---> cells(i,3).value
Je ne connais pas la fonction "WorksheetFunction.Sum(Cells(i, 7))", mais si i prend une valeur déterminée, la somme ne concerne qu'une seule cellule et donc il n'y a pas de somme en fait.
Peut être faut il une boucle pour parcourir les valeurs...
enfin, voilà quelques pistes.
Bon courage.
A+
IC
je ne sais pas mettre de fonction somme sous VBA j'ai tenté pas mal de choses que les sites préconisent mais rien.
J'ai rectifier. value
i c'est les lignes où se présentent les deux valeurs.
Je peux pas déterminé sa valeur...
donc je voudrais la somme entre les lignes où il y a les deux autres valeurs....
sans résultat
J'ai rectifier. value
i c'est les lignes où se présentent les deux valeurs.
Je peux pas déterminé sa valeur...
donc je voudrais la somme entre les lignes où il y a les deux autres valeurs....
sans résultat