XL 2013 Formulaire selon une condition

Dafaka7 · 29 Juin 2022

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

vgendron · 29 Juin 2022

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 · 29 Juin 2022

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

vgendron · 29 Juin 2022

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 · 29 Juin 2022

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 · 29 Juin 2022

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 · 29 Juin 2022

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 · 29 Juin 2022

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

Dafaka7 · 29 Juin 2022

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

Dafaka7 · 1 Juillet 2022

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

vgendron · 1 Juillet 2022

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 · 1 Juillet 2022

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

Dafaka7 · 1 Juillet 2022

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 · 1 Juillet 2022

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 · 1 Juillet 2022

vgendron à dit:
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

XL 2013 Formulaire selon une condition

Dafaka7

XLDnaute Junior

Pièces jointes

vgendron

Dafaka7

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

Dafaka7

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

Dafaka7

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Dafaka7

XLDnaute Junior

Dafaka7

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Dafaka7

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Dafaka7

XLDnaute Junior

Discussions similaires