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 : 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
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