Re : formulaire de modification avec Combobox et texbox pre-rempli
Bonjour
Je reviens vers Dranreb, sur la modification
mais en faite, j'ai 1 souci qui perdure en faite , ca me conserve bien les cellules mais
ca supprime toutes les formules qui était contennu auparavent...
Pourriez vous regarder mon code SVP???
Merci d'avance
Option Explicit ' Pour limiter les risques de faire des conneries.
Dim WithEvents CL As ComboBoxLiés ' Objet global avec évènements. Vois module de classe ComboBoxLiés.
Dim LCou As Long ' Numéro courant de la ligne en cours de modification (variable globale).
Dim VLgn() As Variant
Dim Ret As Integer
Dim Repmodif As Integer
Private Sub CheckBox1_Click()
Select Case CheckBox1.Value
Case True: CheckBox1.Caption = "toto"
End Select
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub carte_par_flan_Click()
End Sub
Private Sub CL_AutreChoix(ByVal CBM As ComboBoxMembre, Valeur As Variant)
End Sub
Private Sub CL_Change(ByVal Complet As Boolean, ByVal I As Long)
LCou = 0
ReDim VLgn(1 To 1, 1 To 43)
For I = 1 To 3: With CL.Item(I): VLgn(1, .Col) = .CBx.Text: End With: Next I
End Sub
Private Sub CL_Click(ByVal CBM As ComboBoxMembre)
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub ComboBox2_Change()
End Sub
Private Sub ComboBox3_Change()
End Sub
Private Sub CommandButton4_Click()
FORM_MODIF_CONFIG_LIGNES.Hide
Unload FORM_MODIF_CONFIG_LIGNES
Application.EnableEvents = True
End Sub
Private Sub Label11_Click()
End Sub
Private Sub Label17_Click()
End Sub
Private Sub pourcentage_Click()
End Sub
Private Sub TextBox1_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(Touche)) = 0 Then Touche = 0
TextBox1.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox1.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox10_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(Touche)) = 0 Then Touche = 0
TextBox10.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox10.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox2_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(Touche)) = 0 Then Touche = 0
TextBox2.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox2.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox7_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(Touche)) = 0 Then Touche = 0
TextBox7.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox7.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox8_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(Touche)) = 0 Then Touche = 0
TextBox8.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox8.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox4_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox4.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox4.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox11_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox11.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox11.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox12_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox12.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox12.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox13_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox13.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox13.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox14_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox14.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox14.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox15_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox15.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox15.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox16_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox16.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox16.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox17_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox17.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox17.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox18_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox18.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox18.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox19_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox19.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox19.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox20_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox20.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox20.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox21_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox21.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox21.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox22_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789%", Chr(Touche)) = 0 Then Touche = 0
TextBox22.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox22.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox9_KeyPress(ByVal Touche As MSForms.ReturnInteger)
TextBox9.BackColor = RGB(255, 0, 0) 'couleur rouge
TextBox9.ForeColor = RGB(255, 255, 255) 'couleur blanc
End Sub
Private Sub TextBox11_Change()
End Sub
Private Sub TextBox12_Change()
End Sub
Private Sub TextBox13_Change()
End Sub
Private Sub TextBox14_Change()
End Sub
Private Sub TextBox15_Change()
End Sub
Private Sub TextBox16_Change()
End Sub
Private Sub TextBox17_Change()
End Sub
Private Sub TextBox18_Change()
End Sub
Private Sub TextBox19_Change()
End Sub
Private Sub TextBox20_Change()
End Sub
Private Sub TextBox21_Change()
End Sub
Private Sub TextBox22_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox9_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize() ' Prise en charge évènement MsForms au chargement de l'Userform.
Set CL = New ComboBoxLiés ' Attribue une existence réelle à l'objet (addresse et ressources mémoire)
CL.CouleurSympa ' Gadget d'assistance de confort.
CL.Plage Feuil1.Rows(7) ' Plage à partir de la ligne 7 de Feuil1 (Config. lignes). Devient CL.PlgTablo
CL.Add Me.ComboBox1, "A"
CL.Add Me.ComboBox3, "G"
CL.Add Me.ComboBox2, "F"
CL.Actualiser ' Met à jour les listes initiales des ComboBox.
End Sub
Private Sub CL_BingoUn(ByVal Ligne As Long) ' Prise en charge évènement BingoUn de CL
LCou = Ligne ' Récupère le numéro de ligne trouvé et transmis par CL.
VLgn = CL.PlgTablo.Rows(LCou).Resize(, 92).Value
Me.TextBox1.Text = VLgn(1, 8)
Me.TextBox10.Text = VLgn(1, 9)
Me.TextBox2.Text = VLgn(1, 27)
Me.TextBox7.Text = VLgn(1, 30)
Me.TextBox8.Text = VLgn(1, 34)
Me.TextBox9.Text = VLgn(1, 43)
Me.TextBox11.Text = VLgn(1, 10) * 100 & "%"
Me.TextBox12.Text = VLgn(1, 11) * 100 & "%"
Me.TextBox13.Text = VLgn(1, 12) * 100 & "%"
Me.TextBox14.Text = VLgn(1, 13) * 100 & "%"
Me.TextBox15.Text = VLgn(1, 14) * 100 & "%"
Me.TextBox16.Text = VLgn(1, 15) * 100 & "%"
Me.TextBox17.Text = VLgn(1, 16) * 100 & "%"
Me.TextBox18.Text = VLgn(1, 17) * 100 & "%"
Me.TextBox19.Text = VLgn(1, 18) * 100 & "%"
Me.TextBox20.Text = VLgn(1, 19) * 100 & "%"
Me.TextBox21.Text = VLgn(1, 20) * 100 & "%"
Me.TextBox22.Text = VLgn(1, 21) * 100 & "%"
Me.TextBox4.Text = VLgn(1, 33) * 100 & "%"
End Sub
Private Sub CL_Défait()
Dim Ctrl As Control, C As Long
For Each Ctrl In Me.Controls
C = Val(Ctrl.Tag)
If C > 0 Then Ctrl.Text = ""
Next Ctrl
End Sub
Private Sub BtnValider_Click()
Application.EnableEvents = False
If LCou = 0 Then
LCou = CL.PlgTablo.Rows.Count
With CL.PlgTablo.Rows(LCou): .Copy: .Insert: End With
LCou = LCou + 1: End If
'controle saisie '
If ComboBox1 <> Range("UW2") And ComboBox1 <> Range("UX2") And ComboBox1 <> Range("UY2") And ComboBox1 <> Range("UZ2") And ComboBox1 <> Range("VA2") And ComboBox1 <> Range("VB2") And ComboBox1 <> Range("VC2") And ComboBox1 <> Range("VD2") And ComboBox1 <> Range("VE2") And ComboBox1 <> Range("VF2") And ComboBox1 <> Range("VG2") And ComboBox1 <> Range("VH2") Then
MsgBox "La ligne renseignée n'existe pas sur le pôle Energie", vbCritical, "Données incorrect"
Exit Sub
End If
If TextBox11 = "" Then
MsgBox "Vous devez renseigner sur le mois de Janvier " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox12 = "" Then
MsgBox "Vous devez renseigner sur le mois de Février " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox13 = "" Then
MsgBox "Vous devez renseigner sur le mois de Mars " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox14 = "" Then
MsgBox "Vous devez renseigner sur le mois d'Avril " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox15 = "" Then
MsgBox "Vous devez renseigner sur le mois de Mai " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox16 = "" Then
MsgBox "Vous devez renseigner sur le mois de Juin " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox17 = "" Then
MsgBox "Vous devez renseigner sur le mois de Juillet " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox18 = "" Then
MsgBox "Vous devez renseigner sur le mois d'Août " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox19 = "" Then
MsgBox "Vous devez renseigner sur le mois de Septembre " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox20 = "" Then
MsgBox "Vous devez renseigner sur le mois d'Octobre " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox21 = "" Then
MsgBox "Vous devez renseigner sur le mois de Novembre " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox22 = "" Then
MsgBox "Vous devez renseigner sur le mois de Décembre " & Chr(13) & "le % de la production à affecter ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox1 = "" Then
MsgBox "Vous devez renseigner un nombre de carte par flan ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox10 = "" Then
MsgBox "Vous devez renseigner un nombre de Cpts par carte ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox2 = "" Then
MsgBox "Vous devez renseigner le Tps de cycle CMS ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox7 = "" Then
MsgBox "Vous devez renseigner le Tps de cycle ICT ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox8 = "" Then
MsgBox "Vous devez renseigner le nombre de testeur ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox9 = "" Then
MsgBox "Vous devez renseigner à quelle plan de chargement" & Chr(13) & " Appartient la carte ; avant de valider", vbCritical, "Données manquantes"
Exit Sub
End If
If TextBox4 <> "" And InStr(TextBox4, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté à la ligne -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox11 <> "" And InStr(TextBox11, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Janvier -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox12 <> "" And InStr(TextBox12, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Février -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox13 <> "" And InStr(TextBox13, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Mars -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox14 <> "" And InStr(TextBox14, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Avril -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox15 <> "" And InStr(TextBox15, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Mai -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox16 <> "" And InStr(TextBox16, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Juin -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox17 <> "" And InStr(TextBox17, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Juillet -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox18 <> "" And InStr(TextBox18, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Août -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox19 <> "" And InStr(TextBox19, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Septembre -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox20 <> "" And InStr(TextBox20, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Octobre -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox21 <> "" And InStr(TextBox21, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Novembre -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
If TextBox22 <> "" And InStr(TextBox22, "%") = 0 Then
MsgBox "La valeur saisie dans la case - % affecté sur le mois de Décembre -" & Chr(13) & "doit être exprimé en pourcentage", vbInformation, "Saisies incorrect"
Exit Sub
End If
Repmodif = MsgBox("Confirmez-vous la modification des valeurs ?" & Chr(13) & "Nota : Les valeurs modifiées sont de couleur rouge", vbYesNo + vbQuestion, "Formulaire de modification")
If Repmodif = vbYes Then ' ici le traitement si réponse positive ' ...
Else
Exit Sub ' ici le traitement si réponse négative ' ...
End If
VLgn(1, 8) = Me.TextBox1.Text
VLgn(1, 9) = Me.TextBox10.Text
VLgn(1, 27) = Me.TextBox2.Text
VLgn(1, 30) = Me.TextBox7.Text
VLgn(1, 34) = Me.TextBox8.Text
VLgn(1, 43) = Me.TextBox9.Text
VLgn(1, 10) = Replace(Me.TextBox11.Text, "%", "") / 100
VLgn(1, 11) = Replace(Me.TextBox12.Text, "%", "") / 100
VLgn(1, 12) = Replace(Me.TextBox13.Text, "%", "") / 100
VLgn(1, 13) = Replace(Me.TextBox14.Text, "%", "") / 100
VLgn(1, 14) = Replace(Me.TextBox15.Text, "%", "") / 100
VLgn(1, 15) = Replace(Me.TextBox16.Text, "%", "") / 100
VLgn(1, 16) = Replace(Me.TextBox17.Text, "%", "") / 100
VLgn(1, 17) = Replace(Me.TextBox18.Text, "%", "") / 100
VLgn(1, 18) = Replace(Me.TextBox19.Text, "%", "") / 100
VLgn(1, 19) = Replace(Me.TextBox20.Text, "%", "") / 100
VLgn(1, 20) = Replace(Me.TextBox21.Text, "%", "") / 100
VLgn(1, 21) = Replace(Me.TextBox22.Text, "%", "") / 100
VLgn(1, 33) = Replace(Me.TextBox4.Text, "%", "") / 100
CL.PlgTablo.Rows(LCou).Resize(, 92).Value = VLgn()
CL.Actualiser
Application.EnableEvents = True
If Range("VJ2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Janvier sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VJ2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VK2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Février sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VK2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VL2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Mars sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VL2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VM2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Avril sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VM2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VN2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Mai sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VN2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VO2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Juin sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VO2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VP2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Juillet sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VP2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VQ2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Août sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VQ2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VR2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Septembre sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VR2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VS2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Octobre sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VS2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VT2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Novembre sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VT2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
If Range("VU2") <> Range("VI1") Then Ret = MsgBox("Les Qtés à fabriquer en Décembre sont devennu incohérantes par rapport aux Qtés du PDP" & Chr(13) & "Ecarts Qté produits mensuel : " & Format(Range("VU2").Value) & Chr(13) & "Voulez vérifiez l'écart dans l'Onglet - Vérification PDP vs Capacitaire - ? ", vbYesNo + vbCritical, "Problèmes Qtés entre fichier et PDP")
If Ret = vbYes Then
Sheets("Recap Qtes Produits vérif").Select
Unload FORM_MODIF_CONFIG_LIGNES
End If
Unload FORM_MODIF_CONFIG_LIGNES
End Sub