Discussion :

[MrCMTueurx]

Bonjour à tous,

Merci de prendre le temps et de m'aider,

Je vous explique mon souhait

J'ai 2 Colonne A et B

Rempli de cette façon :



J'aimerais selon ce tableau qui va par la suite être très grand,

Je voudrais savoir combien Sébastien a t-il eu de test,
Je veux additionner les celulles B ou il y a marquer Sébastien

SI vous avez des questions n'hésité pas !

Cordialement

[Philippe Tulliez]

Bonjour,
La fonction SOMME.SI devrait répondre à tes besoins.

[MrCMTueurx]

Merci je suis un dans les nuages en ce moments…

Merci pour la solution,

Cependant mon résultat sera dans un textbox dans un userform, et comme il y aura plus de 600 références, j'aimerais avoir le même résultat mais en VBA

Cordialement

[Philippe Tulliez]

Bonjour,

Cependant mon résultat sera dans un textbox dans un userform, et comme il y aura plus de 600 références, j'aimerais avoir le même résultat mais en VBA

Pourquoi ne pas avoir annoncé tout de suite le contexte

ll est très facile d'adapter la même solution proposée en Excel en utilisant WorksheetFunction

Petit exemple à adapter
Pour l'exemple, la liste des données commence en cellule A1 avec en première ligne les étiquettes de colonnes (les titres) Colonne A, les noms, colonne B le nombre de tests

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub TestSumIf()
  ' Déclaration
  Dim Name As String
  Dim Sum As Double
  Dim fx As WorksheetFunction
  Dim rng As Range
  ' Affectation
  ' Définition de la plage de cellules (Titre + Data
  Set rng = ActiveSheet.Range("A1").CurrentRegion (Equivalent à Ctrl & *)
  ' Redimensionnement de la plage pour ne prendre que la zone des données
  With rng
   Set rng = .Offset(1).Resize(.Rows.Count - 1)
  End With
  Set fx = Application.WorksheetFunction
  '
  Name = InputBox("Entrez le nom ", "Somme des tests", "Bidule")
  ' sum = fx.SumIf(
  With rng
   ' Somme.Si
   Sum = fx.SumIf(.Columns(1), Name, .Columns(2))
  End With
  MsgBox "La somme des tests pour " & Name & " est égal à " & Sum
  ' End Of Process
  Set rng = Nothing: Set fx = Nothing
End Sub

Pour info, en trois clics on peut avoir le résultat avec les tableaux croisés dynamique