XL 2010 Récupérer selection d'une ListBox

[Monster93]

Bonjour,

Je m'initie à la programmation VBA alors j'ai créé une petite macro qui copie la feuille d'un classeur fermé et la colle dans autre classeur ouvert( où est exécuter la macro). Jusqu'ici tout va bien et tout marche bien.
Voilà où commence les problèmes, je voulu améliorer cette macro en affichant une fenêtre au debut qui permettrait de choisir quel feuille du classeur à copier.
Mon problème actuel est que je n'arrive pas à récupérer la sélection de la ListBox pour ainsi la stocker dans une variable.
Quelqu'un peut-il m'aider ?

Voici ma macro

Public Sub MiseàJour()
   
    'Prépare 2 objets
    Dim ClasseurFerme As Object
    Dim FeuilleFermee As Object
    Dim nom_feuilleFermee As String
    Dim ws As Worksheet
   
   
   
    'Affecte le classeur à l'objet
    Set ClasseurFerme = GetObject("F:\TAFF du 04_12_2017\Recurring info.xlsx")
    UserForm1.Show

   
    Do While rep_ok = False
   
    nom_feuilleFerme = ListBox1.SelectedItem.ToString()
   
    'Parcours l'ensemble des feuilles du classeur
    For Each ws In ClasseurFerme.Worksheets
        If ws.Name = nom_feuilleFerme Then
            Set FeuilleFermee = ws
            rep_ok = True
        End If
    Next
    If rep_ok = False Then
        MsgBox "Nom de feuille introuvable", vbInformation, "Oupss!"
    End If
    Loop
    'puis la feuille
    'Set FeuilleFermee = ClasseurFerme.Worksheets("nom_feuilleFerme")
   
    'Copie une plage
    FeuilleFermee.Range("A2:AA500").Copy
   
    'et la colle dans la feuille active (Classeur contenant la macro)
    ActiveSheet.Range("A2:AA500").Select
    ActiveSheet.Paste

    'Libère les variables
    Set FeuilleFermee = Nothing
    Set ClasseurFerme = Nothing

End Sub

Voici mon le code mon Userform

Private Sub UserForm_Initialize()
With Me.ListBox1
    .AddItem "Table Operateurs"
    .AddItem "Country"
    .AddItem "Operateur Simplifie"
    .AddItem "Bioss Rate Plan"
    .AddItem "Table OPE Interco DF"
    End With
End Sub



 
Private Sub OKButton_Click()
    Dim SelectedItems As String
    Dim i As Integer
   
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
           SelectedItems = SelectedItems & ListBox1.List(i) & vbNewLine
    End If
    Next i

    If SelectedItems = "" Then
         MsgBox "Nothing selected"
    Else
         MsgBox "Selected Items: " & vbNewLine & SelectedItems
    End If
   
    Unload UserForm1
End Sub

 

[sousou]

Bonsoir
Rien de plus simple.
Si ta liste s'appelle listbox1
tu fait mavariable=listbox1 et c'est tout
mavariable sera égale à la ligne de ta listbox selectionner
cela dans le cas d'une selection non multiple

 

[Monster93]

Bonjour Sousou,

Ta solution m'a un peu debuggé, car maintenant lorsque je sélectionne une ligne et que je valide. Il y a ma fenetre qui s'affiche et qui me dit que la feuille est introuvable alors qu'elle est bien présente. Et puis juste après j'ai l'erreur d'execution "91" Variable objet ou Variable de bloc With non défini

Merci de m'aider

 

[sousou]

Bien mais il manque des infos.
Si tu veux que nous puissions voir envoi ton fichier avec les feuilles qui vont bien

 

[Monster93]

Bonjour Sousou,

Voici les deux fichiers
"Recurring info" est le classeur fermé où je veux copier une feuille pour la dans le classeur où la macro est exécuter. Mais maintenant lorsque je veux récuperer la selection de la listBox afin de la stocker dans la variable nom_feuilleFerme pour ensuite comparer ça ne focntionne pas

Cordialement,

 

[sousou]

Bonsoir
1: nom_feuilleFermee = UserForm1.ListBox1.Value
Tu dois préciser le nom du userform qui contient ta listebox
2: Remplace unload userform1 par userform1.hide
Hide ferme le userform sans le décharger, ce qui te permet d'utiliser son contenu

 

[Monster93]

Bonjour Sousou,

Tu m'as été d'une grande utilité, ma macro fonction maintenant.
Je t'en suis vraiment reconnaissant.

 

[sousou]

Apprendre en expérimentant, et surtout en pensant bien à l'organisation de tes macros.
a+

 

[Monster93]

reBonjour Sousou,

J'ai une autre demande à te soumettre, en effet j'ai voulu améliorer mon code. En effet je souhaiterais que ma macro sélectionne automatiquement toute la partie à copier ( de la cellule A2 jusqu'à la dernière cellule non vide). J'utilise donc UsedRange.SpecialCells(xlCellTypeLastCell) mais cela ne fonctionne pas
Voici le code :

Public Sub MiseàJour()
   
    'Declaration
    Dim ClasseurFerme As Object
    Dim FeuilleFermee As Object
    Dim nom_feuilleFermee As String
    Dim ws As Worksheet
    Dim r As Range
   
   
    'Affecte le classeur à l'objet
    Set ClasseurFerme = GetObject("T:\RIA\Analyse de marché\Recurring info.xlsx")
    UserForm1.Show

    nom_feuilleFerme = UserForm1.ListBox1.Value
   
    'Parcours l'ensemble des feuilles du classeur
    For Each ws In ClasseurFerme.Worksheets
        If ws.Name = nom_feuilleFerme Then
            Set FeuilleFermee = ws
            rep_ok = True
           
           
            Set r = FeuilleFermee.UsedRange.SpecialCells(xlCellTypeLastCell)
            Debug.Print r.Address
 

           ' Copie une plage
           FeuilleFermee.Range("A2:r").Copy
       

   
            'et la colle dans la feuille active (Classeur contenant la macro)
            ActiveSheet.Range("A2:r").Select
            ActiveSheet.Paste
        End If
    Next
    If rep_ok = False Then
        MsgBox "Vous n'avez sélectionner aucune feuille, à bientôt !", vbInformation, "Oupss !"
    End If

    'Libère les variables
    Set FeuilleFermee = Nothing
    Set ClasseurFerme = Nothing

End Sub

 

[sousou]

Bonjour
Pour t'aider à simplifier tes codes, tu trouveras ci-joint un fichier que j'ai remanié.
Tu verras qu'il ne reste plus beaucoup de lignes.
Pense à choisir si tu veux insèrer les données, ou les copier
Si j'ai compris je pense que c'est une insertion dont tu as besoin

 

[Monster93]

Bonjour Sousou,

J'ai un peu remanié ton code, vu qu'il ne faisait pas totalement ce que je désire faire, mais je me retrouve encore avec une erreur :

  FeuilleFermee.UsedRange.Copy ActiveSheet.Range("A2") 'Copie toute les cellule de la cellule a partir de la ligne A2
            'et la colle dans la feuille active (Classeur contenant la macro)
            ActiveSheet.Range("A2:IV65536").Select 'Selectionne une plage
           ActiveSheet.Paste

Je me retrouve avec une erreur à ActiveSheet.Past alors que tout me semble correct

l'erreur : La methode paste de la classe worksheet à échoué

 

[sousou]

cela doit suffir le reste ne sert à rien:
le principe:
source as range.copy(destination as range)
Dans ton cas
FeuilleFermee.UsedRange.Copy (ActiveSheet.Range("A2"))

 

[Monster93]

Juste une petite derniere avant que je te laisse tranquille.

Pourquoi ça me copie aussi le header (alors que je ne le veux pas) de la feuille Ferme sachant que j'ai preciser ("A2")

 

[sousou]

Dans ta formule tu copies usedrange, donc toutes les valeur de la feuille y compris le header
Si tu ne veux pas de la première ligne, voici un petit test qui te permettra de corriger
utilisation de la propriété end
range(cells(2,1),cells(dernièreligne,dernièrecolonne)
Zone représentant les cellule à copier.
Sub test()
With Workbooks("Recurring info.xlsx").Sheets("feuil5")
Set zone= .Range(.Cells(2, 1), .Cells(.UsedRange.Columns(1).End(xlDown).Row, .UsedRange.Rows(2).End(xlToRight).Column))
MsgBox zone.Address
End With
End Sub