J'ai un tableau avec 11 feuilles
une colonne A (Cellules A19 A48) comportant des dates.
Une colonne H (Cellules H19 H48)comportant des montants en Euros
(rsultant d'une formule)
Je voudrais faire des sommes par dates (SANS PASSER PAR UN TCD) un
autre endroit de chacune des 11 feuilles (ex : cellule A68)
Le pb tant que ces feuilles sont dynamiques (le nombre de dates
changent, on peut avoir plusieurs fois la mme date)
Il faut galement que ces sommes par date se mettent jour au fur et
mesure qu'on remplit le tableau.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?dzttH3TGYo
-Sélectionner le champ A2:A9 =SansDoublons(A19:A49) -Valider avec Maj+Ctrl+Entrée
Dans un module:
En B2:=SOMME.SI($A$19:$A$49;A1;$H$19:$H$49)
Function SansDoublons(champ As Range) Dim temp() ReDim temp(1 To champ.Count) j = 1 For i = 1 To champ.Count témoin = False For k = 1 To j If temp(k) = champ(i) Then témoin = True Next k If Not témoin And champ(i) <> 0 And champ(i) <> "" Then temp(j) = champ(i): j = j + 1 End If Next i SansDoublons = Application.Transpose(temp) End Function
Cordialement JB
Bonjour,
http://cjoint.com/?dzttH3TGYo
-Sélectionner le champ A2:A9
=SansDoublons(A19:A49)
-Valider avec Maj+Ctrl+Entrée
Dans un module:
En B2:=SOMME.SI($A$19:$A$49;A1;$H$19:$H$49)
Function SansDoublons(champ As Range)
Dim temp()
ReDim temp(1 To champ.Count)
j = 1
For i = 1 To champ.Count
témoin = False
For k = 1 To j
If temp(k) = champ(i) Then témoin = True
Next k
If Not témoin And champ(i) <> 0 And champ(i) <> "" Then
temp(j) = champ(i): j = j + 1
End If
Next i
SansDoublons = Application.Transpose(temp)
End Function
-Sélectionner le champ A2:A9 =SansDoublons(A19:A49) -Valider avec Maj+Ctrl+Entrée
Dans un module:
En B2:=SOMME.SI($A$19:$A$49;A1;$H$19:$H$49)
Function SansDoublons(champ As Range) Dim temp() ReDim temp(1 To champ.Count) j = 1 For i = 1 To champ.Count témoin = False For k = 1 To j If temp(k) = champ(i) Then témoin = True Next k If Not témoin And champ(i) <> 0 And champ(i) <> "" Then temp(j) = champ(i): j = j + 1 End If Next i SansDoublons = Application.Transpose(temp) End Function
Cordialement JB
knolram
Ca marche super C'est exactement ce dont j'avais besoin
Clair et précis Merci beaucoup !
CDlt.
Ca marche super
C'est exactement ce dont j'avais besoin