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("D10400")) 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
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("D10400")) 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