Macro créant des graphiques

[bylka213]

Bonjour,

J'ai un classeur dans lequel j'ai plusieurs feuilles dans chacune d'entre elles plusieurs colonnes....je vous joins un fichier pour que ce soit plus clair...

Ce que je veux c'est faire des graphs en fonction de la répétitivité d'une donnée dans une colonne.


Merci

 

[Pyrof]

Re : Macro créant des graphiques

Bonjour,

Voici une approche

 

[bylka213]

Re : Macro créant des graphiques

Merci Pyrof c'est totalement dans l'idée de ce que je veux faire parcontre il ya un souci.

Si je mets par exemple dans la feuille lolo tout à l'état "encours" dans la derniere feuille il me reste d'autres états je ne comprends pas.

Peut etre comprendrais tu d'où cela vient.

Merci

 

[Pyrof]

Re : Macro créant des graphiques

Bonjour,

Toutes les valeurs ne se mettent pas à jour car il eu fallu effacer les effacer avant

range(cells(2,2),cells(4,6)).clearcontents

 

[bylka213]

Re : Macro créant des graphiques

Merci, je n'avais pas pensé à effacer avant chaque lancement de la macro. Encore une petite question si je veux faire cela pour les autre colonnes je dois changer quoi exatement moi j'ai ceu que je devais changer le "2" dans le code de la macro comme suit:

[SIZE="1"]Sub essais()
Dim tab_etat       'Crée une variable
Set tab_etat = CreateObject("Scripting.Dictionary")
Range(Cells(2, 2), Cells(4, 6)).ClearContents
nom = "lili"
Sheets(nom).Select
ligne = 2

While Cells(ligne, [COLOR="red"]2[/COLOR]) <> ""
    cle = nom & "_" & Cells(ligne, [COLOR="red"]2[/COLOR])
    If IsEmpty(tab_etat(cle)) Then
        tab_etat(cle) = 1
    Else
        tab_etat(cle) = tab_etat(cle) + 1
    
    End If
    ligne = ligne + 1
Wend

nom = "lolo"
Sheets(nom).Select
ligne = 2
While Cells(ligne, [COLOR="red"]2[/COLOR]) <> ""
    cle = nom & "_" & Cells(ligne, [COLOR="red"]2[/COLOR])
    If IsEmpty(tab_etat(cle)) Then
        tab_etat(cle) = 1
    Else
        tab_etat(cle) = tab_etat(cle) + 1
    
    End If
    ligne = ligne + 1
Wend

nom = "lulu"
Sheets(nom).Select
ligne = 2
While Cells(ligne, [COLOR="red"]2[/COLOR]) <> ""
    cle = nom & "_" & Cells(ligne, [COLOR="red"]2[/COLOR])
    If IsEmpty(tab_etat(cle)) Then
        tab_etat(cle) = 1
    Else
        tab_etat(cle) = tab_etat(cle) + 1
    
    End If
    ligne = ligne + 1
Wend

Sheets("Feuil1").Select

For Each tmp1 In tab_etat
    cle = tmp1
    pos = InStr(cle, "_")
    etat = Mid(cle, pos + 1)
    ope = Mid(cle, 1, pos - 1)
    Select Case ope
        Case "lili": ligne = 2
        Case "lolo": ligne = 3
        Case "lulu": ligne = 4
    End Select
    Select Case etat
        Case "début": colonne = 2
        Case "en cours": colonne = 3
        Case "fin": colonne = 4
        Case "rejeté": colonne = 5
    End Select
    Cells(ligne, colonne) = tab_etat(cle)

Next

End Sub[/SIZE]

par contre si je fais ceci quand je lance la macro elle bloque sur la ligne:

Cells(ligne, colonne) = tab_etat(cle)

et une derniere chose je peux lancer cette macro par bouton ?


En tous cas merci pour l'aide que tu m'as fourni jusque là.

Merci

 

[Pyrof]

Re : Macro créant des graphiques

C'est bien le 2 qu'il faut changer en 6, 10, 12 mais aussi

Case "début": colonne = 2
Case "en cours": colonne = 3
Case "fin": colonne = 4
Case "rejeté": colonne = 5

qui va devenir

Case "Appli 1": colonne = 2
Case "Appli 2": colonne = 3
Case "Appli 3": colonne = 4
...

Pour colonne 10
Case "faible": colonne = 2
Case "normal": colonne = 3
Case "forte": colonne = 4
Et pour les pays, y a t-il une liste figée des pays, sans quoi il faut faire un développement plus complexe

 

[bylka213]

Re : Macro créant des graphiques

Merci Pyrof,

Ma première idée était donc bien la bonne.

Merci encore pour ton aide Pyrof

A bientôt.