bonsoir lorsque je lance cette macro suivante, j'ai une erreur 2147417848, erreur automation, l'objet invoqué s'est déconnecté de ses clients et je ne comprends pas pourquoi. Si vous pouviez m'aider ça me serait d'un grand secours .
Application.ScreenUpdating = False
Sheets("boissons").Select
Range("y23").Select
If ActiveCell.Value = 0 Then
MsgBox (" Impossible de valider ta demande,il n'y pas de conso saisies"), 48, "Casino Barrière De Dinard - information"
ComboBox1.SetFocus
Else
Msg = "Voulez vous vraiement faire une remise à zéro?" ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "confirmation de Remise à zéro" ' Définit le titre.
Help = "" ' Définit le fichier d'aide.
Ctxt = 1000 ' Définit le contexte de
' la rubrique.
'Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui"
'Effectue une action.
Sheets("boissons").Select
Range("x23:y23").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=8
Range("ae9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("ae9:af9").Select
Selection.Copy
Range("ae11").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("ae9:af9").Select
Selection.ClearContents
Range("y26:y500").Select
Selection.ClearContents
Range("x21").Select
ActiveCell.FormulaR1C1 = 0
Range("x21").Select
Selection.Copy
Range("ah4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("ae10:af2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("ah3:ai4"), CopyToRange:=Range("ah10:ai20000"), Unique:=False
Range("z9").Select
Selection.Copy
Range("z10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End If
End Sub
Application.ScreenUpdating = False
Sheets("boissons").Select
Range("y23").Select
If ActiveCell.Value = 0 Then
MsgBox (" Impossible de valider ta demande,il n'y pas de conso saisies"), 48, "Casino Barrière De Dinard - information"
ComboBox1.SetFocus
Else
Msg = "Voulez vous vraiement faire une remise à zéro?" ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "confirmation de Remise à zéro" ' Définit le titre.
Help = "" ' Définit le fichier d'aide.
Ctxt = 1000 ' Définit le contexte de
' la rubrique.
'Affiche le message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
MyString = "Oui"
'Effectue une action.
Sheets("boissons").Select
Range("x23:y23").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=8
Range("ae9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("ae9:af9").Select
Selection.Copy
Range("ae11").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("ae9:af9").Select
Selection.ClearContents
Range("y26:y500").Select
Selection.ClearContents
Range("x21").Select
ActiveCell.FormulaR1C1 = 0
Range("x21").Select
Selection.Copy
Range("ah4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("ae10:af2000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("ah3:ai4"), CopyToRange:=Range("ah10:ai20000"), Unique:=False
Range("z9").Select
Selection.Copy
Range("z10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End If
End Sub