Aide création macro

**Alex74330** · 16/04/2015, 14h39

Bonjour à toute la communauté,

Je vous contacte car j'ai un problème excel (evidemment) et plus particulièrement de création de macro.
Comme vous pouvez le voir dans mon fichier joint (Feuille1 et 2), le corps du travail est déjà fait.

Mon fichier dans la feuille 1 ne sera jamais le même (n'aura jamais le même nombre de ligne) et alimente le tableau feuille 2. Et j'aurai besoin qu'en faite, mon tableau feuille 2 se créer par le biais d'une macro comme ça je pourrai l'executer pour chaque fichier (j'ai un nouveau fichier similaire chaque semaine que je retraite avec le tableau.. très rébarbatif).
J'ai déjà fais une demande sur un forum concurrent au votre mais je n'ai malheureusement pas eu la réponse souhaitée..

J'espère que mon fichier vous servira à effectuer des tests.
Si vous avez des questions, ou des problèmes sur la clarté de mon message n'hésitez pas !

Merci par avance,
Alexandre

**Kimy_Ire** · 16/04/2015, 16h37

Bonjour Alex74330,

sur un forum concurrent

Ah bon ?! Ca existe des forums "concurrents" ?

Bref, dans ta feuille 1 tu as des dates en colonne AQ et les termes "Pas de risque", "Risques non Levés" et "Risques Levés" en colonne CD.
C'est tout ce qu'il faut checker ?

Cordialement,
Kimy

**Alex74330** · 16/04/2015, 16h46

Bonjour Kimy,

Evidemment, la concurrence a toujours existé dans tous les domaines que j'ai pu étudié et existera toujours ahaha.
Bref, revenons à nos moutons.

Si je comprends bien ta question, oui ce sont les seuls paramètres qui m'interesse pour le remplissage de mon tableau (feuille2) qui donne ensuite lieu à un graphique.

Et je me demande donc s'il est possible de developper une macro, qui automatisera la création de ce tableau ici présent car chaque semaine je le recréer pour une nouvelle série de données qui est sous la même forme.

Il y a evidemment plus de données, mais confidentialité oblige, je ne peux vous les transmettre.

Merci de ta réponse.

Cordialement,
Alexandre

**Kimy_Ire** · 16/04/2015, 17h02

Alex74330,

Quand je parlais de concurrence c'est, qu'à mon sens, il n'y a pas de forums concurrents. Les forums permettent une entraide et, quelque soit celui qui contient la réponse, l'objectif est de permettre à la large communauté d'accéder à des solutions.

"Bref", en fait, concernant ton problème, je pense que tu n'as pas expliqué la moitié du fonctionnel.
1) A quoi correspond un "Risques non Levés" ?
2) A quoi correspond un "Risques Levés" ?
3) Souhaites-tu conserver un menu déroulant dans la Feuil2 - Cellule B1 ?
4) Que signifie tous les SOMMEPROD que tu as dans la feuille ? Souhaites-tu les conserver ?
5) N'y a-t-il pas moyen de faire un tableau avec les dates des mois/années en entête un peu plus large ?

Tu me donnes l'impression d'avoir "balancé" un fichier sans savoir où, toi, tu voudrais aller...

J'attends ton retour, clair, explicite et surtout complet.

Cordialement,
Kimy

**Marc-L** · 16/04/2015, 18h05

Bonjour,

juste en lisant les règles de ce forum - avant de poster sa première demande ! - il est facile de constater
le but n'est pas de livrer une procédure "clef en main" en partant de rien mais d'aider à la correction du code entrepris
par le demandeur, contrairement à l'autre forum (et pourtant la voie du TCD telle la demande formulée semble convenir) …
Et évidemment avec une présentation claire & exhaustive du besoin !

Ne pas oublier l'ami du débutant : le Générateur de macros livrant sur un plateau une base de code …
Sans compter les ressources de la FAQ et des tutoriels de ce forum !

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

**Alex74330** · 17/04/2015, 08h58

Re-bonjour,

Un risque non levé est un risuqe inferieur à 100%, au contraire un risque levé est un risque supérieur ou égale à 100%.
Le menu déroulant me semble être une bonne idée mais n'est pas indispensable.
Les SOMMEPROD servent à calculer le nombre de "pas de risque", "risques levés" et "risques non levés" par mois.
Peut être un TCD mais je suis perdu à ce moment.

**Alex74330** · 17/04/2015, 10h18

Re,

J'ai résolu mon problème !
Merci à vous deux pour votre aide, finalement comme l'a si bien dit Marc, le générateur de macro est l'ami des débutants.

J'ai une dernière question, peut être que un de vous deux pourra m'aider.

Dans ma macro il y a cette formule :

Code :

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

1
2
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(--(Feuil1!R2C82:R928C82<100%)*(YEAR(Feuil1!R2C43:R928C43)=YEAR(R2C))*(MONTH(Feuil1!R2C43:R928C43)=MONTH(R2C)))"

J'aimerai savoir comment pourrais-je faire pour modifier les "R928" pour que le calcul s'arrête à la dernière cellule et non pas à la ligne 928 car mes fichiers n'ont jamais la même longueur.

Avez vous besoin de ma macro entière ?

Cordialement,
Alexandre

**joe.levrai** · 17/04/2015, 10h28

Bonjour,

au vu de ta demande

Code :

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

1
2
3
4
5
6
 
Dim i As Long
i = Worksheets("Feuil1").UsedRange.Rows.Count
 
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(--(Feuil1!R2C82:R" & i & "C82<100%)*(YEAR(Feuil1!R2C43:R" & i & "C43)=YEAR(R2C))*(MONTH(Feuil1!R2C43:R" & i & "C43)=MONTH(R2C)))"

le 928 et remplacé par la dernière ligne non vide de Feuil1

maintenant à voir si c'était la seule coordonnée dynamique a récupérer

**Alex74330** · 17/04/2015, 10h36

Bonjour Joe,

Merci pour ta réponse rapide !

Et est-ce que ta formule pourrait marcher avec les autres SUMPRODUCT ? (En adaptant bien sur)

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Risks_removed_before_PSA()
'
' Risks_removed_before_PSA Macro
'
 
 
     Range("A1").AutoFilter
    Range("CB1").FormulaR1C1 = "Risk max avant PSA"
    Range("CC1").FormulaR1C1 = "Risk PSA"
    Range("CD1").FormulaR1C1 = "Risk levé avant PSA"
    Range("CB2:CB" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = _
        "=MAX(SUM(RC[-20]:RC[-17]),SUM(RC[-16]:RC[-13]),SUM(RC[-12]:RC[-9]),SUM(RC[-8]:RC[-5]))"
    Range("CB2:CB928").Select
    Range("CC2:CC" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=SUM(RC[-5]:RC[-2])"
    Range("CC3").Select
    Range("CC2").Select
    Range("CC2:CC928").Select
    Range("CD2:CD" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = _
        "=IFERROR(IF(AND(RC[-1]=0,RC[-2]>0),1,IF(AND(RC[-1]=0,RC[-2]=0),""Pas de risque"",RC[-1]/RC[-2])),100%)"
    Range("CD2").Select
    Range("CD2:CD928").Select
    Selection.Style = "Percent"
    Sheets("Feuil2").Select
    Range("C3").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(--(Feuil1!R2C82:R928C82=RC2)*(YEAR(Feuil1!R2C43:R928C43)=YEAR(R2C[-1]))*(MONTH(Feuil1!R2C43:R928C43)=MONTH(R2C)))"
    Range("C3").Select
    Selection.AutoFill Destination:=Range("C3:N3"), Type:=xlFillDefault
    Range("C3:N3").Select
    Range("C4").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(--(Feuil1!R2C82:R928C82<100%)*(YEAR(Feuil1!R2C43:R928C43)=YEAR(R2C))*(MONTH(Feuil1!R2C43:R928C43)=MONTH(R2C)))"
    Range("C4").Select
    Selection.AutoFill Destination:=Range("C4:O4"), Type:=xlFillDefault
    Range("C4:O4").Select
    Range("C5").Select
    ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT(--(Feuil1!R2C82:R928C82<>"""")*(YEAR(Feuil1!R2C43:R928C43)=YEAR(R2C))*(MONTH(Feuil1!R2C43:R928C43)=MONTH(R2C)))-SUM(R[-2]C:R[-1]C)"
    Range("C5").Select
    Selection.AutoFill Destination:=Range("C5:N5"), Type:=xlFillDefault
    Range("C5:N5").Select
    Range("O3").Select
    Selection.AutoFill Destination:=Range("O3:O6"), Type:=xlFillDefault
    Range("O3:O6").Select
End Sub

**joe.levrai** · 17/04/2015, 10h45

Bien sûr, mais attention pour cette formule (si tu veux la changer)

Code :

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

1
2
3
 
Range("CB2:CB" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = _
        "=MAX(SUM(RC[-20]:RC[-17]),SUM(RC[-16]:RC[-13]),SUM(RC[-12]:RC[-9]),SUM(RC[-8]:RC[-5]))"

là tu travailles en référence relative (décalage par rapport à la cellule où est insérée la formule, donc la modification est différente

j'évite de travailler en référence R1C1 car c'est pas très lisible

c'est plus pratique d'avoir de travailler directement avec les coordonnées

regarde si le sujet de Philippe au sujet des formules par VBA peut t'aider : http://www.developpez.net/forums/blo...procedure-vba/

regarder aussi la différence entre la propriété "Formula" et "FormulaR1C1" en recherchant dans le forum

**Alex74330** · 17/04/2015, 10h49

RE,

Ok, merci pour ton aide !
On va dire que mon poroblème est résolu !

Bonne journée à vous tous,
Cordialement,
Alexandre

Aide création macro [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager