Bonjour à tous,
Une erreur d’exécution 429 ne me permet pas d'utiliser mon fichier quand je l'ouvre sur mon portable Mac.
Créé avec excel 2007 celui-ci fonctionne bien sur mon PC de bureau et pose problème avec le Mac.
Ci-joint le code qui demande un débobage .
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A10:A400], Target) Is Nothing And Target.Count = 1 Then
UserForm2.Top = Target.Top + 170 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm2.Left = Target.Left + 100 - Cells(1, ActiveWindow.ScrollColumn).Left
UserForm2.Show
End If
If Not Application.Intersect(Target, Range("B10:B400")) Is Nothing Then
UserForm1.Top = Target.Top + 150 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm1.Left = Target.Left + 100 - Cells(1, ActiveWindow.ScrollColumn).Left
UserForm1.Show
End If
If Not Application.Intersect(Target, Range("C10:C400")) Is Nothing Then
UserForm3.Top = Target.Top + 150 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm3.Left = Target.Left + 100 - Cells(1, ActiveWindow.ScrollColumn).Left
UserForm3.Show
End If
If Not Application.Intersect(Target, Range("D10
400")) Is Nothing Then
UserForm4.Top = Target.Top + 150 - Cells(ActiveWindow.ScrollRow, 1).Top
UserForm4.Left = Target.Left + 100 - Cells(1, ActiveWindow.ScrollColumn).Left
UserForm4.Show
End If
If Not Intersect([cible], Target) Is Nothing Then Target.Value = IIf(Target.Value = "", "X", "")
Cancel = True
End Sub
Merci pour vos conseils
Cordialement
a26