vba et fonction somme et if Résolu

Question

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

Polux31 · Answer

Bonjour,

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)

Vba et fonction somme et if

1 réponse

Discussions similaires

Newsletters