calcul le nombre de souscription Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 20 juin 2017, 10:13

Bonjour

j'ai un petit problème sur ma macro et je n'arrive pas a voir comment je peux arranger cela

je vous explique mon problème en espérant que vous pourriez aider

Dans un classeur j'ai deux feuille(une feuille souscription(que je change tout les mois) et une feuille active ou j'effectue la macro.
sur la feuille souscriptions j'ai un certain nombre de vente et de rétractation(-) et je voudrais qu'il me calcule le nombre de vente avec le rétractation pour chaque tranche et que le nombre s'affiche dans la feuille active au bon endroit

voici un exemple: il ne m'affiche pas ceux qu'il faut

merci pour votre aide
AIDE.xlsm
(28.83 Kio) Téléchargé 6 fois
Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'699
Appréciations reçues : 75
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 20 juin 2017, 10:40

Bonjour,

Pour la 1er partie (à adapter pour le Resil
Dim dernligne As Long
    Dim DernLigneSous As Long
    Dim i, k As Integer

        With ActiveSheet
            dernligne = .Range("B" & .Rows.Count).End(xlUp).Row 'a partir de la ligne 15
        End With
    
        With Sheets("SOUSCRIPTIONS") 'feuille souscriptions
            DernLigneSous = .Range("A" & .Rows.Count).End(xlUp).Row 'a partir de la ligne 22
        End With
    k = 13
        Range("D13:E" & dernligne).ClearContents
    For i = 21 To DernLigneSous
            If Sheets("SOUSCRIPTIONS").Cells(i, 1).Value = ActiveSheet.Cells(k, 2).Value Then
                ActiveSheet.Cells(k, 4).Value = Sheets("SOUSCRIPTIONS").Cells(i, 10).Value
                k = k + 1
            End If
    Next i

Re,

Et pour la totale
AIDE.xlsm
(28.38 Kio) Téléchargé 4 fois
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 20 juin 2017, 10:49

merci pour ton aide

cela me donne
16465
79107
662

alors que moi je voudrais
16473 =16465-6+5+9
79104=79107-1-1-1
656=662-10+4
Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'699
Appréciations reçues : 75
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 20 juin 2017, 11:07

Re,

As-tu que ces trois lignes à traiter ?
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 20 juin 2017, 11:10

j'ai que ces trois tranches (mais de mois en mois on change les valeurs )
Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'699
Appréciations reçues : 75
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 20 juin 2017, 11:16

Re,
Dans ce cas teste comme cela

Re,

Au cas où il aurait plus de lignes dans SOUSCRIPTION tu peux modifier à l'avance la formule
Exemple jusqu'à la ligne 1000 (même si elles sont vides)
F = "=SUMPRODUCT((SOUSCRIPTIONS!R21C1:R1000C7=ACTIVE!RC[-2])*SOUSCRIPTIONS!R21C10:R1000C10)"
AIDE V.2.xlsm
(28 Kio) Téléchargé 6 fois
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 20 juin 2017, 11:23

super ça marche mercii

est ce que tu pourrais juste m'expliquer ces lignes s'il te plais
F = "=SUMPRODUCT((SOUSCRIPTIONS!R21C1:R31C7=ACTIVE!RC[-2])*SOUSCRIPTIONS!R21C10:R31C10)"

Range("D13").AutoFill Destination:=Range("D13:D15"), Type:=xlFillDefault

Avatar du membre
M12
Membre impliqué
Membre impliqué
Messages : 2'699
Appréciations reçues : 75
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 20 juin 2017, 11:28

Re,

Alors F= (chaine string qui reprend la formule sommeprod)
et la ligne du dessous indique la recopie de la formule vers le bas

C'est exactement comme si tu mettais la formule dans l'onglet, sauf que là tu peut l'effacer et l'envoi de la macro te recalcule
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
a
aude21
Membre fidèle
Membre fidèle
Messages : 180
Inscrit le : 28 mars 2017
Version d'Excel : 2013FR

Message par aude21 » 20 juin 2017, 11:29

mercii beaucoup :D
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'313
Appréciations reçues : 290
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 20 juin 2017, 11:47

Bonjour à tous

Une variante :
Bye !
AIDE v1.xlsm
(32.96 Kio) Téléchargé 7 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message