Discussion :

[ielharras]

Bonjour à tous,

je suis débutant en VBA et je voudrais copie un ligne dans un classur 1 et la coller dans ComBox qui dans le classuer2, mais, j'ai un problème lorsque je copie le programme il colle sur le classeur.

Je vous laisse voir le programme .
Merci d'avance.

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
Private Sub Recherche_Click()
 
' Code VBA pour chercher a traverse le ComboBox Nom les les données et les afficher sur la feuil modifer
 Dim Lig As Integer
    Dim Wks As Worksheet
    Dim Chemin As String
    Dim Wbk1 As Workbook, Wbk2 As Workbook
    Dim no_ligne As Integer
    Dim page As String
    no_ligne = ComboBox_NOM_modif.ListIndex + 2
        Set Wks = Sheets(1)
        Set Wbk1 = Workbooks.Open(Filename:="C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultantsV3.xlsm")
        Set Wbk2 = ThisWorkbook
        Set Wbk1 = ActiveWorkbook
 
 
 
 
             Worksheets("Liste_cslts").Cells(no_ligne, 1).Select
            Selection.Copy
          Workbook("Premier_Test_official_V7.xlsm").Worksheets("Feuil1").ComboBox1_prjt.Select
          Selection.Paste
 
 
End sub

[thebenoit59]

Bonjour Ielharras.

Le soucis vient de cette partie :

Code :

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

1
2
3
4
5
 
Worksheets("Liste_cslts").Cells(no_ligne, 1).Select
Selection.Copy
Workbook("Premier_Test_official_V7.xlsm").Worksheets("Feuil1").ComboBox1_prjt.Select
Selection.Paste

A remplacer par :

Code :

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

1
2
 
Worksheets("Liste_cslts").Cells(no_ligne, 1).Copy Workbook("Premier_Test_official_V7.xlsm").Worksheets("Feuil1").ComboBox1_prjt

Mais je pense que tu auras encore des soucis. Il faudrait également définir le Workbook pour la donnée à copier.

[ielharras]

Bonjour, merci pour ton aide. en fait mon programme il valide tout les lignes mais il arrive pas a ouvrir la "Feuil1" pour coller dans le ComboBox, c'est exactement ça le problème mais tout le reste est bon