N
NADEJKA
Guest
Bonjour,
Un bug sur ma macro me :angry: depuis ce matin.
Je ne trouve pas de solution.
Voici mon Pb:
J'ai créé un configurateur avec diverses contraintes; si une des contraintes est atteinte alors un message apparaît (TextBox) avec sortie par bouton YES.
Or j'ai un message qui reste bloqué... pour sortir il faut fermer Excel !!!
Avez-vous une idée?
Merci de votre aide.
Pour info voici ma macro
'Consommation***************************************** If ((Target.Row = 12) Or (Target.Row = 13) Or (Target.Row = 14) Or (Target.Row = 15) Or (Target.Row = 18) Or (Target.Row = 19) Or (Target.Row = 20) Or (Target.Row = 21) Or (Target.Row = 22) Or (Target.Row = 22)) And (Target.Column = 4) Or ((Target.Row = 12) Or (Target.Row = 16) Or (Target.Row = 32) Or (Target.Row = 33) Or (Target.Row = 34) And (Target.Column = 9)) Then
If ComboBox2.Text = '1U 220V AC' Or ComboBox2.Text = '1U 48V DC' Then
If ((3.5 + Worksheets('Input').Cells(12, 4).Value * 6.5) + (Worksheets('Input').Cells(13, 4).Value * 6.5) + (Worksheets('Input').Cells(14, 4).Value * 7) + (Worksheets('Input').Cells(15, 4).Value * 7) + (Worksheets('Input').Cells(18, 4).Value * 2) + (Worksheets('Input').Cells(19, 4).Value * 5.75) + (Worksheets('Input').Cells(20, 4).Value * 0) + (Worksheets('Input').Cells(21, 4).Value * 2.8) + (Worksheets('Input').Cells(22, 4).Value * 5.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 6.5) + (Worksheets('Input').Cells(32, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 2.5)) > 40 Or _
((3.5 + Worksheets('Input').Cells(12, 4).Value * 8.5) + (Worksheets('Input').Cells(13, 4).Value * 8.5) + (Worksheets('Input').Cells(14, 4).Value * 10) + (Worksheets('Input').Cells(15, 4).Value * 10) + (Worksheets('Input').Cells(18, 4).Value * 7) + (Worksheets('Input').Cells(19, 4).Value * 4.25) + (Worksheets('Input').Cells(20, 4).Value * 8) + (Worksheets('Input').Cells(21, 4).Value * 3.2) + (Worksheets('Input').Cells(22, 4).Value * 13.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 4.5) + (Worksheets('Input').Cells(32, 9).Value * 4.5) + (Worksheets('Input').Cells(33, 9).Value * 6.5) + (Worksheets('Input').Cells(33, 9).Value * 6)) > 55 Or _
(Worksheets('Input').Cells(6, 14).Value <> '') Then
choix = MsgBox('STOP' & Chr(10) & 'EXCEED AUTHORISED CONSUMPTION!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
Else
If ((3.5 + Worksheets('Input').Cells(12, 4).Value * 6.5) + (Worksheets('Input').Cells(13, 4).Value * 6.5) + (Worksheets('Input').Cells(14, 4).Value * 7) + (Worksheets('Input').Cells(15, 4).Value * 7) + (Worksheets('Input').Cells(18, 4).Value * 2) + (Worksheets('Input').Cells(19, 4).Value * 5.75) + (Worksheets('Input').Cells(20, 4).Value * 0) + (Worksheets('Input').Cells(21, 4).Value * 2.8) + (Worksheets('Input').Cells(22, 4).Value * 5.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 6.5) + (Worksheets('Input').Cells(32, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 2.5)) > 90 Or _
((3.5 + Worksheets('Input').Cells(12, 4).Value * 8.5) + (Worksheets('Input').Cells(13, 4).Value * 8.5) + (Worksheets('Input').Cells(14, 4).Value * 10) + (Worksheets('Input').Cells(15, 4).Value * 10) + (Worksheets('Input').Cells(18, 4).Value * 7) + (Worksheets('Input').Cells(19, 4).Value * 4.25) + (Worksheets('Input').Cells(20, 4).Value * 8) + (Worksheets('Input').Cells(21, 4).Value * 3.2) + (Worksheets('Input').Cells(22, 4).Value * 13.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 4.5) + (Worksheets('Input').Cells(32, 9).Value * 4.5) + (Worksheets('Input').Cells(33, 9).Value * 6.5) + (Worksheets('Input').Cells(33, 9).Value * 6)) > 115 Or _
(Worksheets('Input').Cells(6, 14).Value <> '') Then
choix = MsgBox('STOP' & Chr(10) & 'EXCEED AUTHORISED CONSUMPTION!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
End If
End If
'Slot frame*************************************************
If (Target.Row = 6) And (Target.Column = 7) Then
If ComboBox1.Text = '2.5' Then
If ComboBox2.Text <> '' Then
If Worksheets('Input').Cells(6, 7).Value <> '' Then
choix = MsgBox('STOP' & Chr(10) & 'Too many slot for the Frame!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
End If
Else '2.6
If ComboBox2.Text <> '' Then
If Worksheets('Input').Cells(6, 7).Value <> '' Then
choix = MsgBox('STOP' & Chr(10) & 'Too many slot for the Frame!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(15, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(22, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
End If
End If
End If
Un bug sur ma macro me :angry: depuis ce matin.
Je ne trouve pas de solution.
Voici mon Pb:
J'ai créé un configurateur avec diverses contraintes; si une des contraintes est atteinte alors un message apparaît (TextBox) avec sortie par bouton YES.
Or j'ai un message qui reste bloqué... pour sortir il faut fermer Excel !!!
Avez-vous une idée?
Merci de votre aide.
Pour info voici ma macro
'Consommation***************************************** If ((Target.Row = 12) Or (Target.Row = 13) Or (Target.Row = 14) Or (Target.Row = 15) Or (Target.Row = 18) Or (Target.Row = 19) Or (Target.Row = 20) Or (Target.Row = 21) Or (Target.Row = 22) Or (Target.Row = 22)) And (Target.Column = 4) Or ((Target.Row = 12) Or (Target.Row = 16) Or (Target.Row = 32) Or (Target.Row = 33) Or (Target.Row = 34) And (Target.Column = 9)) Then
If ComboBox2.Text = '1U 220V AC' Or ComboBox2.Text = '1U 48V DC' Then
If ((3.5 + Worksheets('Input').Cells(12, 4).Value * 6.5) + (Worksheets('Input').Cells(13, 4).Value * 6.5) + (Worksheets('Input').Cells(14, 4).Value * 7) + (Worksheets('Input').Cells(15, 4).Value * 7) + (Worksheets('Input').Cells(18, 4).Value * 2) + (Worksheets('Input').Cells(19, 4).Value * 5.75) + (Worksheets('Input').Cells(20, 4).Value * 0) + (Worksheets('Input').Cells(21, 4).Value * 2.8) + (Worksheets('Input').Cells(22, 4).Value * 5.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 6.5) + (Worksheets('Input').Cells(32, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 2.5)) > 40 Or _
((3.5 + Worksheets('Input').Cells(12, 4).Value * 8.5) + (Worksheets('Input').Cells(13, 4).Value * 8.5) + (Worksheets('Input').Cells(14, 4).Value * 10) + (Worksheets('Input').Cells(15, 4).Value * 10) + (Worksheets('Input').Cells(18, 4).Value * 7) + (Worksheets('Input').Cells(19, 4).Value * 4.25) + (Worksheets('Input').Cells(20, 4).Value * 8) + (Worksheets('Input').Cells(21, 4).Value * 3.2) + (Worksheets('Input').Cells(22, 4).Value * 13.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 4.5) + (Worksheets('Input').Cells(32, 9).Value * 4.5) + (Worksheets('Input').Cells(33, 9).Value * 6.5) + (Worksheets('Input').Cells(33, 9).Value * 6)) > 55 Or _
(Worksheets('Input').Cells(6, 14).Value <> '') Then
choix = MsgBox('STOP' & Chr(10) & 'EXCEED AUTHORISED CONSUMPTION!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
Else
If ((3.5 + Worksheets('Input').Cells(12, 4).Value * 6.5) + (Worksheets('Input').Cells(13, 4).Value * 6.5) + (Worksheets('Input').Cells(14, 4).Value * 7) + (Worksheets('Input').Cells(15, 4).Value * 7) + (Worksheets('Input').Cells(18, 4).Value * 2) + (Worksheets('Input').Cells(19, 4).Value * 5.75) + (Worksheets('Input').Cells(20, 4).Value * 0) + (Worksheets('Input').Cells(21, 4).Value * 2.8) + (Worksheets('Input').Cells(22, 4).Value * 5.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 6.5) + (Worksheets('Input').Cells(32, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 4.3) + (Worksheets('Input').Cells(33, 9).Value * 2.5)) > 90 Or _
((3.5 + Worksheets('Input').Cells(12, 4).Value * 8.5) + (Worksheets('Input').Cells(13, 4).Value * 8.5) + (Worksheets('Input').Cells(14, 4).Value * 10) + (Worksheets('Input').Cells(15, 4).Value * 10) + (Worksheets('Input').Cells(18, 4).Value * 7) + (Worksheets('Input').Cells(19, 4).Value * 4.25) + (Worksheets('Input').Cells(20, 4).Value * 8) + (Worksheets('Input').Cells(21, 4).Value * 3.2) + (Worksheets('Input').Cells(22, 4).Value * 13.5) + (Worksheets('Input').Cells(12, 9).Value * 5) + (Worksheets('Input').Cells(16, 9).Value * 4.5) + (Worksheets('Input').Cells(32, 9).Value * 4.5) + (Worksheets('Input').Cells(33, 9).Value * 6.5) + (Worksheets('Input').Cells(33, 9).Value * 6)) > 115 Or _
(Worksheets('Input').Cells(6, 14).Value <> '') Then
choix = MsgBox('STOP' & Chr(10) & 'EXCEED AUTHORISED CONSUMPTION!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
End If
End If
'Slot frame*************************************************
If (Target.Row = 6) And (Target.Column = 7) Then
If ComboBox1.Text = '2.5' Then
If ComboBox2.Text <> '' Then
If Worksheets('Input').Cells(6, 7).Value <> '' Then
choix = MsgBox('STOP' & Chr(10) & 'Too many slot for the Frame!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
End If
Else '2.6
If ComboBox2.Text <> '' Then
If Worksheets('Input').Cells(6, 7).Value <> '' Then
choix = MsgBox('STOP' & Chr(10) & 'Too many slot for the Frame!', vbOKOnly + vbCritical)
Worksheets('Input').Cells(12, 4).Value = ''
Worksheets('Input').Cells(13, 4).Value = ''
Worksheets('Input').Cells(14, 4).Value = ''
Worksheets('Input').Cells(15, 4).Value = ''
Worksheets('Input').Cells(18, 4).Value = ''
Worksheets('Input').Cells(19, 4).Value = ''
Worksheets('Input').Cells(20, 4).Value = ''
Worksheets('Input').Cells(21, 4).Value = ''
Worksheets('Input').Cells(22, 4).Value = ''
Worksheets('Input').Cells(12, 9).Value = ''
Worksheets('Input').Cells(16, 9).Value = ''
Worksheets('Input').Cells(32, 9).Value = ''
Worksheets('Input').Cells(33, 9).Value = ''
Worksheets('Input').Cells(34, 9).Value = ''
End If
End If
End If
End If