Discussion :

[Joseph237]

Bonjour, Bonsoir,

J'aimerais avoir votre aide sur EXCEL/VBA.

J'ai un feuille de calcul que j'ai mise en place pour m'extraire des données afin de sortir des indicateurs de
performance. En fait je travaille dans la qualité processus et chaque mois j'extrais des données dans un outil de suivi de non conformités
Cet outil contient des données sur un évènement qui peut être par exemple un audit interne.
Sur 3 niveaux :
- Le niveau évènement (QMSLI [par exemple l'audit])
-Le niveau constat (ISSUE)
-Le niveau Action (en dessous de l'issue).

Une QMSLI peut avoir plusieurs Issues et une Issue peut avoir plusieurs actions (Voir image).
Ce que j'aimerais, c'est que pour chaque Issue ("Open"), que le programme (ou la formule EXCEL) identifie
si toutes ses actions sont "close". Si toutes ses actions sont "close", il écrit dans une colonne par exemple
dans la colonne DD et sur la ligne correspondante à cet issue que toutes les actions sont fermées.

Vous remerciant à l'avance pour votre aide.

[EricDgn]

Bonjour,

Si les données sont dans un tableau nommé "Tableau1", ceci devrait le faire:

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
 
Sub MAJ()   '--- mise à jour
    Dim rRef As Range, rStt As Range, rAllCd As Range
    Dim kRef As Long, kAllCq As Long, IsDone As Boolean
    Set rRef = Range("Tableau1[Ref.]")
    Set rStt = Range("Tableau1[Statut]")
    Set rAllCd = Range("Tableau1[All closed]")
    kRef = 1
    kAllCq = kRef
    IsDone = True
    While rRef.Cells(kRef, 1) <> ""
        If rRef.Cells(kRef, 1) Like "ISSUE*" Then
            rAllCd.Cells(kRef, 1) = "No action"
            If kRef > kAllCq + 1 Then
                rAllCd.Cells(kAllCq, 1) = IIf(IsDone, "Done", "Open")
            End If
            kAllCq = kRef
            IsDone = True
        Else
            If rStt.Cells(kRef, 1) = "Open" Then IsDone = False
        End If
        kRef = kRef + 1
    Wend
    If kRef > kAllCq + 1 Then
        rAllCd.Cells(kAllCq, 1) = IIf(IsDone, "Done", "Open")
    End If
    Set rRef = Nothing
    Set rStt = Nothing
    Set rAllCd = Nothing
End Sub

Cordialement.

[Joseph237]

Bonjour Eric et merci pour votre temps et disponibilité pour m'aider à trouver une solution.
Effectivement le problème répondre au besoin. Cependant en voulant l'adapter à mon fichier,
il semble qu'il y'ait des erreurs qui n'apparaissent pas.

J'ai copié le programme et recréé un nouveau module sous mon projet (VBAProject (20221006 -Indicateur QMSLI))
(comme vous pouvez le voir sur l'image), j'ai changé aussi la macro sur le bouton et cela ne fonctionne plus.

Pour info, pas besoin de changer les variables associées aux colonnes (rRef, rStt, rAllCd) car les têtes de colonnes dans mon projet ont les mêmes intitulés
Sauriez vous me dire à quoi cela est du? A quoi correspond la variable "Tableau 1"? Afin de savoir si c'est cela qui fasse en sorte que le programme ne fonctionne
plus pour l'adaptation? Je n'ai pas de message d'erreur mais la colonne "All closed" ne se remplit pas.
Je vous remercie.



Mon tableau est dans la feuille 3 (Import +données)

* Le programme semble répondre au besoin (autant pour moi).

[Joseph237]

J'ai aussi un message d'erreur d'enregistrement que voici.

[PetitBoutDeCode]

Bonjour,

Il faut enregistrer le classeur dans un format qui prend en charge les Macros.

Enregistrer sous -> format xlsm si je me souviens bien.

[Joseph237]

Merci @petitboutdecode je l'ai trouvé il y'a quelques heures en "patrouillant" sur internet.
Je débute sur VBA.