Erreur d'exécution 429

  • Initiateur de la discussion Initiateur de la discussion a26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

a26

XLDnaute Occasionnel
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
 
Re : Erreur d'exécution 429

Dans l'idéal...Joignez le fichier. Vous augmentez vos chance d'obtenir une réponse personnalisée car à la seule lecture d'un code, ce n'est pas automatique que nous puissions detecter quelle ligne est en défaut.
 
Re : Erreur d'exécution 429

Bonsoir,
Je ne sais pas si cela avancera plus en joignant le fichier.
Celui-ci fonctionne parfaitement sur mon PC de bureau, mais n'ouvre pas les userform sur mon Mac.
Problème de paramétrages sur Mac ? Office sur Mac ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
404
Réponses
1
Affichages
265
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Retour