XL 2013 Formulaire selon une condition

Dafaka7

XLDnaute Junior
Bonjour,
J'aimerais sur ce fichier, lorsqu'un indicateur semaine est hors objectif, CàD dans le rouge (ex : qualité objectif : 0 ; semaine : 3 donc hors-objectif), que un bouton apparaisse et ouvre un formulaire qui permet de remplir le PDCA Hebdomadaire ci-dessous. L'idéal serait que le N° et l'indicateur se mettent automatiquement.
1656485640734.png


1656485362957.png


Cordialement,
@Dafaka7
 

Pièces jointes

  • Format réunion GT 2022.xlsm
    526.3 KB · Affichages: 6
  • 1656485111648.png
    1656485111648.png
    22.7 KB · Affichages: 20
Dernière édition:
Solution
un essai en pj
1) je me suis permis de simplifier le code récurrent qui est dans toutes les feuilles
il suffit de le mettre UNE fois dans le Thisworkbook pour qu'il s'applique à toutes les feuilles (avec un test préalable sur le nom)
2) dans les feuilles semaine, il suffit de cliquer sur une cellule de la plage H5:H13 pour qu'une macro soit lancée
elle evalue l'indicateur selon le numéro de ligne
et si l'indicateur est NOK, le formulaire est lancé

à son ouverture, le N° est mis automatiquement
le combo des services est chargé (j'ai déplacé la liste des services dans la feuille "Base de Données"
si tu cliques sur annuler, le formulaire est fermé sans aucune action
si tu cliques sur valider, les infos sont ajoutées dans le tableau...

Dafaka7

XLDnaute Junior
Voici le document avec le formulaire créé. J'ai réussi à faire apparaître le bouton (feuille : S26) mais j'y arrive que pour 1 seule conditions

VB:
If Range("H5").Value = 0 Then
'Or Range("H6") = 0 Or Range("H8") < 71 Or Range("H9") < 65 Then
CommandButton1.Visible = False
'MsgBox ("ok")
Else
CommandButton1.Visible = True

End If
 

Pièces jointes

  • Format réunion GT 2022.xlsm
    529.9 KB · Affichages: 6
Dernière édition:

vgendron

XLDnaute Barbatruc
Bonjour

1) comment colores tu en rouge les cellules de la colonne H? je ne vois pas de MFC
2) selon les indicateurs, c'est en rouge quand colonne H> colonne B, ou le contraire.. ==> quelle est (quelles sont) la règle
3) j'ai travaillé juste sur la feuille S11: quand tu cliques quelque part dans une ligne, si la valeur de la colonne H est > à la valeur de la colonne B, le formulaire s'ouvre et récupère le nom de l'indicateur en colonne A
mais. pour les autres infos du formulaire.. on les trouve ou?
 

Pièces jointes

  • Format réunion GT 2022.xlsm
    556.8 KB · Affichages: 1

Dafaka7

XLDnaute Junior
1 ) les colonnes se colore à partir de la S25, ces conditions n'était pas mise avant.
2) En rouge :
Sécurité > 0
Qualité >
Oee < Colonne B
Eff mod < Colonne B
ZPDP > 0
Stock bloqué > 3000
Rébut > 700

3) à la dernière page une feuille s'appelle "récupération" les données du formulaire doivent apparaître dans le tableau. Anomalie, Responsable et service sont rempli par l'utilisateur.
4) le Numéro dois se faire automatiquement ainsi que l'indicateur.
5) L'idéal serait que lorsqu'un indicateur est rouge un bouton apparaît et en appuyant dessus le formulaire s'ouvre, car les données d'entré ne se font pas en même temps que le remplissage du formulaire.

@vgendron
 

Pièces jointes

  • Format réunion GT 2022.xlsm
    534.8 KB · Affichages: 3
Dernière édition:

vgendron

XLDnaute Barbatruc
un essai en pj
1) je me suis permis de simplifier le code récurrent qui est dans toutes les feuilles
il suffit de le mettre UNE fois dans le Thisworkbook pour qu'il s'applique à toutes les feuilles (avec un test préalable sur le nom)
2) dans les feuilles semaine, il suffit de cliquer sur une cellule de la plage H5:H13 pour qu'une macro soit lancée
elle evalue l'indicateur selon le numéro de ligne
et si l'indicateur est NOK, le formulaire est lancé

à son ouverture, le N° est mis automatiquement
le combo des services est chargé (j'ai déplacé la liste des services dans la feuille "Base de Données"
si tu cliques sur annuler, le formulaire est fermé sans aucune action
si tu cliques sur valider, les infos sont ajoutées dans le tableau "Tab_PDCA" de la feuille "Récupération"

pour l'instant,: aucun controle sur la saisie des infos==> rien n'empeche de valider alors qu'il n'y a aucune saisie..
 

Pièces jointes

  • Format réunion GT 2022 V1.xlsm
    561.6 KB · Affichages: 1

vgendron

XLDnaute Barbatruc
il suffit d'adapter le test pour ajouter la condition >0
VB:
Sub LancerUSF(NomFeuille As String, Target As Range)
With Sheets(NomFeuille)
    Select Case Target.Row 'on vérifie l'indicateur selon la ligne selectionnée
        Case 5, 6, 11, 12, 13
            IndicKO = .Range("H" & Target.Row) > .Range("B" & Target.Row)
        
        Case 7, 8, 9, 10
            IndicKO = (.Range("H" & Target.Row) < .Range("B" & Target.Row)) And (.Range("H" & Target.Row) > 0)
    End Select
    
    If IndicKO Then 'Indicateur dans le rouge
        UserForm1.Show
    End If
End With
End Sub
 

vgendron

XLDnaute Barbatruc
pour tes tests de remplissage..
ils sont bien définis. juste pas à leur place
il faut commencer par eux avant de remplir la feuille
Code:
Private Sub CB_Valider_Click()
If TB_Anomalie = "" Then
    MsgBox "Remplir Anomalie"
    Me.TB_Anomalie.SetFocus
    Exit sub
End If
If TB_Responsable = "" Then
    MsgBox "Remplir Responsable"
    Me.TB_Responsable.SetFocus
   Exit sub
End If
    If CB_Service = "" Then
    MsgBox "Remplir Service"
    Me.CB_Service.SetFocus
   Exit sub
End If

Application.EnableEvents = False
With Sheets("Récupération").ListObjects("Tab_PDCA")
    .ListRows.Add
    .Range(.ListRows.Count + 1, 1) = CDbl(Me.TB_Num)
    .Range(.ListRows.Count + 1, 2) = Me.TB_Indicateur
    .Range(.ListRows.Count + 1, 3) = Me.TB_Anomalie
    .Range(.ListRows.Count + 1, 4) = Me.TB_Responsable
    .Range(.ListRows.Count + 1, 5) = Me.CB_Service
End With
Application.EnableEvents = True
Unload Me 'sortie du formulaire pour éviter de cliquer plusieurs fois sur le bouton Valider et de remplir plusieurs fois la meme ligne
End Sub
 

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T