Copie ligne suite à sélection dans ListBox

Version imprimable

23/02/2017, 16h13
arochab

2 pièce(s) jointe(s)

Copie ligne suite à sélection dans ListBox

Hello tout le monde, :)

Tout d'abord merci beaucoup d'avance pour l'aide que vous pourrez m'apporter.

Je suis embêté par un problème qui, je l'imagine, est en réalité très simple à résoudre.

Dans un premier fichier excel, j'ai créé une ListBox permettant d'afficher une liste de "Programmes" provenant d'un deuxième fichier.
Ce que je cherche à faire est, une fois la sélection du "Programme" faite dans la ListBox, de copier la ligne (provenant du deuxième fichier) vers le 1er fichier (où est situé le bouton faisant apparaître la ListBox).
Pour se faire, le critère est le "Programme" apparaissant dans la colonne A du deuxième fichier.

Vous trouverez ci-dessous les deux fichiers.

A nouveau un grand merci à celles et ceux qui me permettront de progresser !

**
Nouveau P&L-Form : fichier dans lequel s'ouvre la ListBox
CA _2nd semestre 2016 : fichier dans lequel se trouvent les lignes à copier
23/02/2017, 16h21
Marc-L

Bonjour,

merci de poster le code entrepris et balisé conformément aux règles de ce forum !
C'est le sine qua non pour pouvoir évaluer ta voie de progression …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
23/02/2017, 16h22
unparia

Bonjour

Citation:

Tout d'abord merci beaucoup d'avance pour l'aide que vous pourrez m'apporter.

Hélas aucune dès lors qu'il me faudrait ouvrir (DEUX, en plus) des classeurs tiers.
Désolé.
23/02/2017, 17h45
arochab

Le problème étant que je ne sais pas du tout par quoi commencer... :s

Je vais essayer des tutos et reviens vers vous.

Merci
08/03/2017, 15h36
touche_a_tout

Copie ligne suite à sélection dans Listbox

Salut arochab,
Ce que les experts veulent dire, c'est que tu ne dois pas joindre ton ou tes fichiers à ton post, mais copier ton code (ou la partie concernée de ton code) à l'intérieur de ton post, en cliquant sur le signe dièse (#) en haut, 2ème ligne, tout à droite et en collant ton code entre les 2 balises. Quant à te répondre, ce n'est pas dans mes cordes. Bonne chance.
Pierre
08/03/2017, 21h08
Pierre Fauconnier

Salut.

Pour moi, la meilleure technique consiste à rapatrier ta liste des programmes de ta source dans une feuille de ton classeur de travail puis de travailler à partir de là. C'est un million de fois plus simple que de travailler avec deux fichiers ouverts.

Tu fais le rapatriement par VBA, puis tu peux mettre en place des outils Excel (liste déroulante dans la cellule puis index/equiv, recherche par userform, ...).

Travailler d'un fichier à l'autre avec deux fichiers ouverts, c'est casse-gue... et ça complique inutilement les choses.

Bonjour,

Merci pour votre aide, j'ai donc essayé de coder le filtre et la copie vers une nouvelle feuille (en restant donc sur le même fichier) :

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
68
69
70
Sub Copy_With_AutoFilter1()

    Dim My_Range As Range
    Dim CalcMode As Long
    Dim ViewMode As Long
    Dim FilterCriteria As String
    Dim CCount As Long
    Dim WSNew As Worksheet
    Dim sheetName As String
    Dim rng As Range

   
    Set My_Range = Range("A11:G" & LastRow(ActiveSheet))
    My_Range.Parent.Select

    If ActiveWorkbook.ProtectStructure = True Or _
       My_Range.Parent.ProtectContents = True Then
        MsgBox "La macro la macro ne peut marcher si le classeur est protégé", _
               vbOKOnly, "Copier vers un nouveau classeur"
        Exit Sub
    End If


    With Application
        CalcMode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    ViewMode = ActiveWindow.View
    ActiveWindow.View = xlNormalView
    ActiveSheet.DisplayPageBreaks = False


    My_Range.Parent.AutoFilterMode = False


    My_Range.AutoFilter Field:=1, Criteria1:="=Prix d'ambiance"


        Set WSNew = Worksheets.Add(After:=Sheets(ActiveSheet.Index))

        sheetName = InputBox("Quel est le nom du nouveau classeur?", _
                             "Nommer le nouveau classeur")

        My_Range.Parent.AutoFilter.Range.Copy
        With WSNew.Range("A1")
            .PasteSpecial Paste:=8
            .PasteSpecial xlPasteValues
            .PasteSpecial xlPasteFormats
            Application.CutCopyMode = False
            .Select
        End With


    

    My_Range.Parent.AutoFilterMode = False


    My_Range.Parent.Select
    ActiveWindow.View = ViewMode
    If Not WSNew Is Nothing Then WSNew.Select
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = CalcMode
    End With

End Sub

En revanche, je n'ai pas réussi à faire de sorte que le filtre (ici "Prix d'ambiance") soit modulable en fonction de la sélection faite au préalable dans le userform.

Ci après le code du userform :

Code:

1
2
3
4
5
Private Sub UserForm_Initialize()
 
ListBox1.List() = Workbooks("CA _2nd semestre 2016.xlsx").Worksheets("CA 2nd semestre 2016").Range("A3:A40").Value
 
End Sub

Je vous remercie d'avance pour votre aide, je comprends la raison pour laquelle vous n'allez pas ouvrir les fichiers.

arochab