XL 2013 Formulaire selon une condition

[Dafaka7]

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.

Cordialement,
@Dafaka7

 

[Dafaka7]

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

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

 

[vgendron]

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?

 

[Dafaka7]

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

 

[vgendron]

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..

 

[Dafaka7]

Parfait,
Par contre sur les lignes 7, 8, 9 et 10, n'est-il pas possible de faire en sorte que le formulaire ne s'ouvre pas quand c'est égal à 0 ?

 

[vgendron]

il suffit d'adapter le test pour ajouter la condition >0

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

 

[Dafaka7]

Merci,
Je n'arrive pas à trouver ou est-ce que ceci : IndicKO est déclaré
@vgendron

 

[Dafaka7]

Bonjour, je n'arrive pas à faire en sorte d'obliger de saisir les informations.
@vgendron

 

[vgendron]

bonjour

Je n'arrive pas à trouver ou est-ce que ceci : IndicKO est déclaré

c'est une mauvaise habitude que j'ai: je ne déclare pas tout le temps les variables que j'utilise..
dans le cas présent; il s'agit d'un boolean

 

[vgendron]

pour tes tests de remplissage..
ils sont bien définis. juste pas à leur place
il faut commencer par eux avant de remplir la feuille

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

 

[Dafaka7]

Quand je fais ton code, il ferme le formulaire malgré les msgbox et que ce ne soit pas rempli. Et il rempli également le tableau ("Tab_PDCA") vide.

@vgendron

 

[vgendron]

Reprend le code du post 11: j'ai ajouté des "Exit sub": tu as du copié le code avant que je fasse cette modif

 

[Dafaka7]

Reprend le code du post 11: j'ai ajouté des "Exit sub": tu as du copié le code avant que je fasse cette modif

Parfait merci, est ce que tu pourrais m'aider pour ceci ? https://www.excel-downloads.com/thr...puis-un-userform-sur-un-autre-excel.20068861/
@vgendron