importer ligne entière dans une zone de liste..vb excel

Question

Bonjour a tous,
je travaille sur excel,j'ai une feuille CLIENT a 9 colonnes et je m'int&#233;resse au deux premi&#232;res colonnes c'est a dire le CODECLIENT et le NOMCLIENT.
En faite j'ai des centaines de noms et moi je veux juste que ca affiche dans une liste modifiable tous les noms commencant par les premi&#232;res lettres saisies dans la zone de texte avec les renseignements suppl&#233;mentaire se trouvant a la meme ligne.La liste sera affich&#233; dans un autre userform apart
Ex: je saisie dans la zone de texte du 1er Userform1
           BAR puis j'appuies sur un bouton OK et apr&#232;s ca m'affiche tous les noms des clients commencant par BAR dans le 2&#232;me userform.
Les noms des clients ne sont pas rang&#233;s dans l'ordre alphab&#233;tique.
Je vous fournis mon code pour le moment.Pour le moment il marche nikel mais ca importe uniquement les noms ou le code client suivant l'option de recherche choisis.Et moi je souhaiterais que ca importe les lignes enti&#232;res.
MERCI 

Dim oCel As Range
    
    ListeClt.lstclt.Clear
    txtrech.Text = UCase(txtrech.Text)
    If txtrech.Text = "" Then
        txtrech.SetFocus
        MsgBox "Aucun crit&#232;re de recherche saisi !", vbCritical
        Exit Sub
    End If
    Worksheets("CLIENT").Select
    If (rdcodclt.Enabled = True) Then
        For Each oCel In ActiveSheet.Range("A2:A" & ActiveSheet.Range("A65536").End(xlUp).Row)
            If oCel.Value Like txtrech.Text & "*" Then
                ListeClt.lstclt.AddItem oCel.Value
            End If
        Next oCel
    ElseIf (rdnom.Enabled = True) Then
        For Each oCel In ActiveSheet.Range("B2:B" & ActiveSheet.Range("B65536").End(xlUp).Row)
            If oCel.Value Like txtrech.Text & "*" Then
                ListeClt.lstclt.AddItem oCel.Value
            End If
        Next oCel
    End If
    If ListeClt.lstclt.ListCount = 0 Then
        With txtrech
            .SelStart = 0
            .SelLength = Len(txtrech.Text)
            .SetFocus
        End With
        MsgBox "Aucun client trouv&#233; !", vbCritical
    Else
        ListeClt.lstclt.ListIndex = 0
        ListeClt.Show
        ListeClt.lstclt.Enabled = True
    End If
End Sub

cs_wape · Answer

Bonjour,

Si ce n'est pas d&#233;j&#224; fait, il faut modifier la propri&#233;t&#233; "ColumnCount" de la ListBox en y mettant la valeur 9. Puis adapter le code comme suit :

        For Each oCel In ActiveSheet.Range("A2:A" & ActiveSheet.Range("A65536").End(xlUp).Row)
            If oCel.Value Like txtRech.Text & "*" Then
               With ListeClt.lstclt
                  .AddItem Cells(oCel.Row, 1).Value
                  For iCol = 2 To 9
                     .List(.ListCount - 1, iCol - 1) = Cells(oCel.Row, iCol).Value
                  Next iCol
               End With
            End If
        Next oCel

Idem pour la recherche dans la colonne B.

wape

erti1711 · Answer

Merci beaucoup ca marche nikel,
et juste une derni&#232;re question.Comment on fait pour que ca importe les donn&#233;es par la suite sur la feuille de devis a des emplacements pr&#233;cise??
Je m'explique:
Je s&#233;lectionne dans la liste le client qui m'int&#233;resse puis je clik sur bouton ok et ensuite ca renvoit ,le nom pr&#233;nom adresse cp ville etc... sur la feuille DEVIS dans des emplacements pr&#233;cise.Merci beaucoup

cs_wape · Answer

Re,

Essaye qqch du genre :

Private Sub cmdOK_Click()


'S&#233;lectionner la feuille DEVIS
Worksheets("DEVIS").Select


With ListeClt.lstclt
   'Mettre la valeur de la 1&#232;re colonne dans la cellule A1
   ActiveSheet.Range("A1").Value = .Text
   'Mettre la valeur de la 2&#232;me colonne dans la cellule B5
   ActiveSheet.Range("B5").Value = .List(.ListIndex, 1)
   'Mettre la valeur de la 3&#232;me colonne dans la cellule C9
   ActiveSheet.Range("C9").Value = .List(.ListIndex, 2)
   'Et ainsi de suite...
End With

End Sub

wape

Importer ligne entière dans une zone de liste..vb excel

3 réponses

Discussions similaires