Problème avec une listbox

[sarah.geek]

Bonjour,

j'ai besoin d'une petite aide pour ma listbox :

Pour résumé j'ai une liste déroulante je choisis un critère,
ensuite ma listbox affiche plusieurs autres critères selon un onglet ,

j'ai écrit ce bout de code mais quand je clique sur un paramètre de la listbox ce dernier disparaît je en peux pas le sélectionner et donc le récupérer ....

Private Sub UserForm_Initialize()
 
ActiveWorkbook.Worksheets("liste").Activate
Dim DerLig As Integer, i As Integer, j As Integer
 
DerLig = Range("A1000").End(xlUp).Row
ComboBox1.Clear
    i = 2
        Do While i <= DerLig
         ComboBox1.AddItem Range("A" & i)
    i = i + 1
Loop
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets("Factu_GALI").Activate
 
For j = 2 To 50 'si tu as 20 lignes
'si A1 est différent de B1
  If nomConsultant = Cells(j, 2) Then plusieurspc = Cells(j, 4).Value
 
 
Next j
End With
End Sub

Private Sub ListBox1_Click()
ListBox1.Clear
ListBox1.AddItem plusieurspc
pc = ListBox1.Value
End Sub

 

[Robert]

Re : Problème avec une listbox

Bonjour Sarah, bonjour le forum,

Difficile de comprendre sans le fichier qui va avec le code... que sont nomConsultant et plusieurspc ?

 

[sarah.geek]

Re : Problème avec une listbox

Nomconsultant est ma variable de la première ComboBox, quand je clique sur un nom j'ai plusieurs choix qui doivent s'afficher dans la listbox ( jusque la ça fonctionne) par contre quand je click sur un choix ( variable plusieusrpc) il s'efface ..... alors que je voudrais que la sélection d'un critère s'intègre dans ma variable pc

 

[Robert]

Re : Problème avec une listbox

Bonjour Sarah, bonjour le forum,

Tu persistes à ne pas envoyer de fichier exemple et malgré tes explications je ne comprends ni le code fourni ni le problème... Donc c'est comme tu veux... La balle est dans ton camp !

 

[sarah.geek]

Re : Problème avec une listbox

Regarde la pièce jointe Fichier test macros3.xlsm

Ci-joint le fichier concerné, le problème se situe dans la feuille du code 'demandeadm'

 

[frangy]

Re : Problème avec une listbox

Bonjour,

J’aurais bien vu les 3 étapes suivantes :

Première étape : initialisation

Private Sub UserForm_Initialize()
Dim DerLig As Integer, i As Integer, j As Integer
    ActiveWorkbook.Worksheets("liste").Activate
    DerLig = Range("A1000").End(xlUp).Row
    ComboBox1.Clear
    i = 2
    Do While i <= DerLig
         ComboBox1.AddItem Range("A" & i)
        i = i + 1
    Loop
End Sub

Deuxième étape : le nom est sélectionné dans la ComboBox
On renseigne la ListBox avec tous les PC associés au nom

Private Sub ComboBox1_Change()
Dim j As Integer, DerLig As Integer
    nomConsultant = ComboBox1.Value
    ListBox1.Clear
    With ActiveWorkbook.Worksheets("Factu_GALI")
        DerLig = .Range("B" & .Rows.Count).End(xlUp).Row
        For j = 2 To DerLig
            If nomConsultant = .Cells(j, 2) Then
                pc = .Cells(j, 4).Value
                ListBox1.AddItem pc
            End If
        Next j
    End With
End Sub

Troisième étape : le PC est sélectionné dans la ListBox
On récupère la donnée choisie

Private Sub ListBox1_Click()
    pc = ListBox1.List(ListBox1.ListIndex)
    MsgBox "Vous avez sélectionné " & pc
    ListBox1.Clear
End Sub

Cordialement.

 

[sarah.geek]

Re : Problème avec une listbox

Ca fonctionne bien mais j'ai une question subsidiaire 🙂, comment récupérer la valeur dans la meme ligne mais une colonne en moins de la variable PC ?

 

[Robert]

Re : Problème avec une listbox

Bonjour le fil, bonjour le forum,

Sarah il faudrait que tu prennes le temps de lire la Lien supprimé. Ton fichier original est lourd et contient des données peut-être confidentielles... Un petit exemple, avec juste deux onglets, l'Userform et une poignée de données anonymes, aurait largement suffit pour résoudre ton problème.

En piece jointe une autre approche sans boucle avec la méthode Find et qui répond à ton deuxième soucis. Je n'ai modifié que l 'Initialisation, la Combobox1 et la ListBox1...
Le fichier :

 

[sarah.geek]

Re : Problème avec une listbox

Merci beaucoup Robert

 

[sarah.geek]

Re : Problème avec une listbox

Et comment récupérer ensuite le numéro de ligne pour l'utiliser ensuite du style

sheets(onglet1).range(Li &"3").value=variable