VBA Excel Mac - Probleme de clic après macro

**LumTwix** · 24/12/2016, 14h29

Bonjour,

Je suis sur Mac. Il me semble que mon problème ne se produit que sur Mac... Je me suis mis aux macros il y a peu de temps et j'ai décidé de me faire un tableau de comptes avec des macros pour m'entrainer à les utiliser. Dans ce tableau, j'ai créé une feuille "Echéancier" avec la liste des dépenses qui arrivent chaque mois. J'ai créé un bouton qui permet de sélectionner une dépense (via boite de dialogue) et d'ajouter cette dépense à ma base de donnée pour le mois suivant. Tout fonctionnait correctement. Seulement, depuis quelque temps, lorsque je clic sur le bouton, la macro fonctionne mais une fois terminée, je ne peux plus cliquer nul part, je peux juste bouger ma cellule sélectionnée via le clavier. Il me semble avoir déjà rencontré ce problème avec d'autres macros sur mac, j'aimerais savoir si c'est un problème récurrent et si une solution existe ?

Merci beaucoup pour votre aide. Vous trouverez plus bas le formulaire macro que j'ai créé puis la macro qui permet de déclencher ce formulaire et enfin en pièce jointe mon tableau échéancier.

Cordialement,

Lucas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
Private Sub CommandButton1_Click()
 
Sheets("Echéancier").Activate
 
' L est le numéro de ligne du Tiers
Dim L As Integer
 
' Rechercher la ligne du Tiers à mettre à jour
Ct = WorksheetFunction.CountA(Range("A:a"))
Cells(1, 14) = Ct
 
For i = 2 To Ct
If Cells(i, 5) = Tiers.Value Then
L = i
Cells(2, 14) = L
Exit For
Else
L = 0
End If
Next
 
If L = 0 Then
' Sortir de la macro si le tiers n'existe pas
MsgBox ("Pas de tiers à ce nom")
Exit Sub
End If
 
Sheets("Base de données").Activate
Dim W As Integer 'Nb lignes dans la BDD
W = WorksheetFunction.CountA(Range("b:b"))
 
Cells(W + 1, 2) = Sheets("Echéancier").Cells(L, 1).Value 'Date
Cells(W + 1, 3) = Sheets("Echéancier").Cells(L, 2).Value 'Débit
Cells(W + 1, 4) = Sheets("Echéancier").Cells(L, 3).Value 'Crédit
Cells(W + 1, 6) = Sheets("Echéancier").Cells(L, 4).Value 'Souscat
Cells(W + 1, 7) = Sheets("Echéancier").Cells(L, 5).Value 'Tiers
Cells(W + 1, 8) = Sheets("Echéancier").Cells(L, 6).Value 'Mode de paiement
Cells(W + 1, 10) = Sheets("Echéancier").Cells(L, 7).Value 'Compte
Cells(W + 1, 11) = Sheets("Echéancier").Cells(L, 8).Value 'Commentaire
 
'Activer la feuille d'échéancier
Sheets("Echéancier").Activate
 
'Changer la date
Dim A As Integer
Dim B As Integer
A = 31
B = 30
If Cells(L, 10) = 1 Then
****Cells(L, 1) = Cells(L, 1).Value + A
ElseIf Cells(L, 10) = 2 Then
****Fev = InputBox("Combien de jours en février cette année ?", "Février", "28")
****Cells(L, 1) = Cells(L, 1).Value + Fev
ElseIf Cells(L, 10) = 3 Then
****Cells(L, 1) = Cells(L, 1).Value + A
ElseIf Cells(L, 10) = 4 Then
****Cells(L, 1) = Cells(L, 1).Value + B
ElseIf Cells(L, 10) = 5 Then
****Cells(L, 1) = Cells(L, 1).Value + A
ElseIf Cells(L, 10) = 6 Then
****Cells(L, 1) = Cells(L, 1).Value + B
ElseIf Cells(L, 10) = 7 Then
****Cells(L, 1) = Cells(L, 1).Value + A
ElseIf Cells(L, 10) = 8 Then
****Cells(L, 1) = Cells(L, 1).Value + A
ElseIf Cells(L, 10) = 9 Then
****Cells(L, 1) = Cells(L, 1).Value + B
ElseIf Cells(L, 10) = 10 Then
****Cells(L, 1) = Cells(L, 1).Value + A
ElseIf Cells(L, 10) = 11 Then
****Cells(L, 1) = Cells(L, 1).Value + B
ElseIf Cells(L, 10) = 12 Then
****Cells(L, 1) = Cells(L, 1).Value + A
End If
 
Unload Echeancier
 
End Sub
 
 
 
Sub LancerUserform()
 
Echeancier.Show
 
End Sub