1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

SUM IF

gbizon Messages postés 1 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 23 février 2009 - 23 févr. 2009 à 19:53
cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 - 23 févr. 2009 à 23:08
Bonjour,

Je suis débutant en VBA et j'ai une petite question

J'ai un tableau comme suit : 

  Colonne A      Colonne B
      A                     5
      B                      6
      A                     3
      C                     2

Je souhaite utiliser la fonction sumif pour attribuer une valeur a un Msgbox

Private Sub CommandButton1_Click()
   MsgBox [SumIf(C:C,"A", D:D)]
End Sub

Le résultat qui s'affiche est bien 8

Mon probléme est que je n'arrive pas à rendre "A" variable.

Je m'explique, je souhaite saisir une valeur dans textbox et que ce soit cette valeur qui soit serve de base à la recherche.

J'utilise ce code qui ne marche pas (je saisie A ou "A" dans le textbox et le résultat est toujours 0)

Private Sub CommandButton1_Click()
   Dim valeur
   valeur = Textbox1.value
   MsgBox [SumIf(C:C,valeur, D:D)]
End Sub

Merci de vos lumières
A voir également:

1 réponse

Réponse 1 / 1
cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
23 févr. 2009 à 23:08
Bonsoir
Voila après avoir essayer sous toutes formes le passage du critère par une variable sans succés, j'ai trouvé cette solution en posant la variable dans une cellule quelconque.

Private Sub CommandButton1_Click()
   Dim valeur
   valeur = TextBox1.Value
   Range("m15").Value = valeur
   MsgBox [sumif(k:k,m15, l:l)]
End Sub

C'est tout bon.

CNTJC
0
Rejoignez-nous