Bonjours à tous,

J'aimerai savoir svp comment je peux faire pour copier les infos qui sont dans des TextBox et des ComboBox du classeur1 vers un tableau qui dans un autre classeur2, j'ai eesayé un code mais ca marche pas car je suis que débutant dans le VBA .

Merci d'avance d'avance d'avoir m'aider.

Voila le code

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
Private Sub CommandButton1_Click()
    Dim derligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
derligne = Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Range("A300").End(xlUp).Row + 1
    sheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 1) = ComboBox_Projet.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 2) = ComboBox_Locaux.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 3) = ComboBox_PNL.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 4) = ComboBox_Localisation.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 5) = ComboBox_N4PSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 6) = ComboBox_N5PSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 7) = ComboBox_Pôle_Altran.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 8) = TextBox_AceesPSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 9) = ComboBox_PrésencesursitePSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 10) = TextBox_freqdepresencepsa.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 11) = TextBox_interfacePSA.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 12) = TextBox_RPI.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 13) = TextBox_VPN.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 14) = TextBox_EEnonresident.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 15) = TextBox_jourdepresence.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 16) = TextBox_EEsurLeSite.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 17) = TextBox_NOM.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 18) = TextBox_Prenom.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 19) = TextBox_identifiant.Value
    Worksheets("C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultants.xlsm").Cells(derligne, 20) = TextBox_CDC.Value
    Worksheets("Liste_csts").Cells(derligne, 21) = TextBox_cOFOR.Value
    Worksheets("Liste_csts").Cells(derligne, 22) = DTPicker1.Value
    Worksheets("Liste_csts").Cells(derligne, 23) = TextBox_SocieteRg.Value
    Worksheets("Liste_csts").Cells(derligne, 24) = TextBox_ArretAccesPSA.Value
    Worksheets("Liste_csts").Cells(derligne, 25) = ComboBox_AccesEE.Value
    Worksheets("Liste_csts").Cells(derligne, 26) = ComboBox_compteBDConso.Value
    Worksheets("Liste_csts").Cells(derligne, 27) = ComboBox_CMJ.Value
    Worksheets("Liste_csts").Cells(derligne, 28) = ComboBox_OM.Value
    Worksheets("Liste_csts").Cells(derligne, 29) = ComboBox_roleTCD.Value
    Worksheets("Liste_csts").Cells(derligne, 30) = TextBox_CJM.Value
    Worksheets("Liste_csts").Cells(derligne, 31) = TextBox_Trigramme.Value
    Worksheets("Liste_csts").Cells(derligne, 32) = ComboBox_profilactif.Value
    Worksheets("Liste_csts").Cells(derligne, 33) = TextBox_Commentaire.Value
    Worksheets("Liste_csts").Cells(derligne, 34) = TextBox_useerman.Value
    Worksheets("Liste_csts").Cells(derligne, 35) = TextBox_donneesQualité.Value
     End If
End Sub