Vba et fonction somme et if

Résolu/Fermé

01delph75 Messages postés 7 Date d'inscription mercredi 3 juin 2009 Statut Membre Dernière intervention 3 juin 2009 - 3 juin 2009 à 15:30
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 3 juin 2009 à 16:36

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

A voir également:

Vba et fonction somme et if
Fonction si et - Guide
Fonction somme excel - Guide
Somme si couleur - Guide
Excel somme ne fonctionne pas ✓ - Forum Excel
Somme si ens date comprise entre ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
3 juin 2009 à 16:36

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)

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

"L'indice n'appartient à la sélection" + VBA

Fonction if exist et else

somme dans excel toujours =0

VBA : Range avec références variables..

Discussions similaires

Newsletters