Vba et fonction somme et if
Résolu
01delph75
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je ne comprend pas grand chose en VBA, mais j'ai un projet à rendre
Private Sub CommandButton1_Click()
Dim typetissu As String
Dim totypetissu As String
Sheets("calculateur").Columns(26).Value = typetissu
Sheets("reporting").Columns(2).Value = totypetissu
typetissu.Value = totypetissu.Value
End Sub
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
j'ai un qualificateur incorrect au niveau de operateur et je ne sais pas pourquoi.
Merci d'avance pour vos réponses
Je ne comprend pas grand chose en VBA, mais j'ai un projet à rendre
Private Sub CommandButton1_Click()
Dim typetissu As String
Dim totypetissu As String
Sheets("calculateur").Columns(26).Value = typetissu
Sheets("reporting").Columns(2).Value = totypetissu
typetissu.Value = totypetissu.Value
End Sub
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
j'ai un qualificateur incorrect au niveau de operateur et je ne sais pas pourquoi.
Merci d'avance pour vos réponses
A voir également:
- Vba et fonction somme et if
- Fonction si et - Guide
- Formule somme excel colonne - Guide
- Somme si couleur - Guide
- Somme en anglais excel - Guide
- Fonction miroir - Guide
1 réponse
Bonjour,
Ici :
Ce code ne fait rien du tout. Tu déclares typetissu et totypetissu en string. Ils ont une valeur égale à ... rien. Tu affectes les valeurs de typetissu et totypetissu à des cellules donc les cellules égales ... rien.
Pour finir tu affectes la valeur de totypetissu à typetissu, c'est à dire que typetissu est égal à .... rien.
Idem pour la 2ème fonction. Ca ne fait strictement rien.
Ton message d'erreur vient de ta variable i, qui n'est pas déclarée et qui, comme les autres, est égale à ... rien.
;o)
Ici :
Private Sub CommandButton1_Click()
Dim typetissu As String
Dim totypetissu As String
Sheets("calculateur").Columns(26).Value = typetissu
Sheets("reporting").Columns(2).Value = totypetissu
typetissu.Value = totypetissu.Value
End Sub
Ce code ne fait rien du tout. Tu déclares typetissu et totypetissu en string. Ils ont une valeur égale à ... rien. Tu affectes les valeurs de typetissu et totypetissu à des cellules donc les cellules égales ... rien.
Pour finir tu affectes la valeur de totypetissu à typetissu, c'est à dire que typetissu est égal à .... rien.
Idem pour la 2ème fonction. Ca ne fait strictement rien.
Ton message d'erreur vient de ta variable i, qui n'est pas déclarée et qui, comme les autres, est égale à ... rien.
;o)
