XL 2016 Données contenu dans une ListBox à remettre dans TxtBox lors d'un clic

[SebFox]

Si vous avez des exemple, je bloque complètement sur ce sujet, il est vrai que j'ai encore beaucoup de mal avec les boucles Next, ...

Merci beaucoup 😉

 

[Staple1600]

Bonjour le fil, SebFox

SebFox
Bah, alors on se relâche ?
C'est vrai que c'est le week-end 😉

Mais quand même, on peut ne pas oublier le point 3) de la charte du forum, hein ? 😉

 

[Calvus]

Bonjour @SebFox et bienvenue sur le forum, le forum,

Plus vague comme question, c'est dur...
Des exemples il y en a plein ici, mais il faudrait savoir ce que tu veux exactement.
Alors une recherche te donnera certainement des résultats, sinon l'envoi d'un fichier pour t'aider.

En attendant, voici un exemple, mais ça ne vaudra rien sans fichier...

Private Sub ListBox1_Click()                                'Attribution des noms des étiquettes
Dim k As Single, valeur As Range, f As Worksheet, ville As Range, cel As Variant
    On Error Resume Next
    Set f = Sheets("Clients")
If OptionButton1 Then
    Set valeur = f.Range("B:B").Find(Me.ComboBox1, Lookat:=xlWhole)
Else
    Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(1), Lookat:=xlWhole)
        If valeur Is Nothing Then
            Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(0), Lookat:=xlWhole)
        End If
            If valeur Is Nothing Then
                Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(2), Lookat:=xlWhole)
            End If
End If

If valeur Is Nothing Then
    Set f = Sheets("Prospects")
        If OptionButton1 Then   'Bouton Société
            Set valeur = f.Range("B:B").Find(Me.ComboBox1, Lookat:=xlWhole)
        Else
        Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(1), Lookat:=xlWhole)
        End If
            If valeur Is Nothing Then
                Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(0), Lookat:=xlWhole)
            End If
                If valeur Is Nothing Then
                    Set valeur = f.Range("B:B").Find(Me.ListBox1.Column(2), Lookat:=xlWhole)
                End If
End If


For Each cel In [Donnees].Columns(2).SpecialCells(xlVisible)
        If OptionButton1 Then
            Set ville = f.Range("B:B").Find(Me.ComboBox1, Lookat:=xlWhole).Offset(, 9)
        Else
            Set ville = f.Range("B:B").Find(Me.ListBox1.Column(0), Lookat:=xlWhole).Offset(, 9)
            Set ville = f.Range("B:B").Find(Me.ListBox1.Column(1), Lookat:=xlWhole).Offset(, 9)
            Set ville = f.Range("B:B").Find(Me.ListBox1.Column(2), Lookat:=xlWhole).Offset(, 9)
        End If
            For k = 6 To 8
                Me("Label" & k) = valeur.Offset(, k - 6)
            Next k
                For k = 9 To 12
                    Me("Label" & k) = valeur.Offset(, k - 5)
                Next k
        For k = 19 To 19
            Me("Label" & k) = ville
        Next k
Next cel
End Sub

A+

EDIT : Hello @Staple my friend !!! 🙂🙂🙂

 

[Staple1600]

Bonjour Calvus

Je plussoie
C'est mieux quand il y a petit fichier fourni dès le départ par le demandeur 😉
(sans oublier le pt'tit Bonjour qui va bien 😉)

• Ça me permet d'économiser un peu de temps pour mon compteur Fainéantise 😉
et de pencher fortement vers le concept du slow movement 😉 )

 

[Calvus]

Re,

Ha ! Mais tel que je te connais, ça va être dur pour toi de te pencher vers le slow food !! 😉😀😀

 

[Staple1600]

Re

Calvus
Tant qu'il y aura de la Slow Beer, je suis sauvé 😉

Bon bah, on digresse, on digresse, du coup, on a perdu SebFox en route 😉

 

[Calvus]

Re,

C'est vrai on a perdu SebFox, mais c'est pas parce qu'on digresse, mais plutôt parce qu'on dégraisse après toutes ces bières et toute cette bouffe ! 😛

 

[Staple1600]

Re

Ah, j'ai retrouvé SebFox (et le petit Bonjour 😉

SebFox

Bonjour à tous, Je suis débutant en vba Excel, et j'essaie actuellement de faire un petit programme pour un ami ;) Merci déjà pour votre aide futur. ;)

www.excel-downloads.com

Manque plus que le fichier... ou pas 😉