Utilisation d'une macro en 32 et 64 bits
Bonjour
J'ai fait une macro pour un bouton de commande dans un userform qui est non fonctionnel lorsqu'on l'exécute dans une version 64 bits d'Excel
J'ai fait des recherches mais je m'y perd dans les solutions proposées, votre aide serait grandement apprécié
Code:
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
| Private Sub CmOk_Click() 'inscrire une ligne de facturation
num = Sheets("Facturation_Détaillée").Range("A65536").End(xlUp).Row + 1
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Range("Facturation_Détaillée!A" & num).Value = TextBox_NoBillet.Value
Range("Facturation_Détaillée!B" & num).Value = ComboBox_TypeBillet.Value
Range("Facturation_Détaillée!C" & num).Value = ComboBox_DelaiBillet.Value
Range("Facturation_Détaillée!D" & num).Value = ComboBox_NomSite.Value
Range("Facturation_Détaillée!G" & num).Value = TextBox_DateRealisation.Value
Range("Facturation_Détaillée!H" & num).Value = ComboBox_Check_Site.Value
Range("Facturation_Détaillée!J" & num).Value = ComboBox_Check_Complementaire.Value
Range("Facturation_Détaillée!L" & num).Value = TextBox_Detail_Travaux.Value
Range("Facturation_Détaillée!P" & num).Value = TextBox_Km.Value
Range("Facturation_Détaillée!R" & num).Value = TextBox_Vol.Value
Range("Facturation_Détaillée!T" & num).Value = TextBox_jour_terrestre.Value
Range("Facturation_Détaillée!V" & num).Value = TextBox_jour_aerien.Value
Range("Facturation_Détaillée!X" & num).Value = ComboBox_Check_remorque_terrestre
Range("Facturation_Détaillée!Z" & num).Value = ComboBox_Check_remorque_aerien.Value
Range("Facturation_Détaillée!AC" & num).Value = ComboBox_Corps_Emploi.Value
Range("Facturation_Détaillée!AD" & num).Value = TextBox_Nbr_Heure.Value
Range("Facturation_Détaillée!AG" & num).Value = ComboBox_Tarification_fixe.Value
Range("Facturation_Détaillée!AH" & num).Value = TextBox_Nbr_fixe.Value
Range("Facturation_Détaillée!AK" & num).Value = TextBox_Qte_Pieces.Value
Range("Facturation_Détaillée!AL" & num).Value = TextBox_description_Piece.Value
Range("Facturation_Détaillée!AM" & num).Value = TextBox_fabricant_Piece.Value
Range("Facturation_Détaillée!AN" & num).Value = TextBox_modele_Piece.Value
Range("Facturation_Détaillée!AO" & num).Value = TextBox_Prix_Piece.Value
Range("Facturation_Détaillée!AR" & num).Value = TextBox_Requis.Value
Range("Facturation_Détaillée!AS" & num).Value = TextBox_Requis_ID.Value
Range("Facturation_Détaillée!AY" & num).Value = TextBox_particulier_qte.Value
Range("Facturation_Détaillée!AZ" & num).Value = TextBox_particulier.Value
Range("Facturation_Détaillée!BA" & num).Value = TextBox_particulier_prix.Value
ComboBox_Check_Site.Value = ""
ComboBox_Check_Complementaire.Value = ""
TextBox_Km.Value = ""
TextBox_Vol.Value = ""
TextBox_jour_terrestre.Value = ""
TextBox_jour_aerien.Value = ""
ComboBox_Check_remorque_terrestre.Value = ""
ComboBox_Check_remorque_aerien.Value = ""
ComboBox_Corps_Emploi.Value = ""
TextBox_Nbr_Heure.Value = ""
ComboBox_Tarification_fixe.Value = ""
TextBox_Nbr_fixe.Value = ""
TextBox_Qte_Pieces.Value = ""
TextBox_description_Piece.Value = ""
TextBox_fabricant_Piece.Value = ""
TextBox_modele_Piece.Value = ""
TextBox_Prix_Piece.Value = ""
TextBox_Requis.Value = ""
TextBox_Requis_ID.Value = ""
TextBox_particulier_qte.Value = ""
TextBox_particulier.Value = ""
TextBox_particulier_prix.Value = ""
CreateObject("WScript.Shell").Popup ("Ajout d'une ligne de facturation réussi"), 1, "Message"
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
UseFacturation.Width = Application.Width
UseFacturation.Height = Application.Height
End Sub |
Merci de l'intérêt que vous y porterez
