Afficher des valeurs dans un textbox

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim ligne As Range
   If Target.Count = 1 Then
      ligne = Range("A" & Rows.Count).End(xlUp).Row
      If ligne.Offset(, 5).Select <> "" Then
      TextBox1.Value = ligne.Offset(, 11) & ligne.Offset(, 12).Value

      End If
   End If
End Sub

Bonsoir a tous,

voilà mon problème :

J'ai une feuille excel avec un tableau. En gros ce que je veux faire une

recherchev lorsque je selectionne une cellule dans le tableau affichera

la valeur de la collone 1 et la colone 2 dans un texte box .

Voila j'espère avoir été assez clair dans mes explications et si vous voulez des détails je manquerais pas de vous répondre

Cordialement.

Bonjour

Essayez votre code comme ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
TextBox1 = ""
With ListObjects("Tableau2").DataBodyRange
    If .Item(Target.Row - 9, 6) <> "" Then
        TextBox1.Value = .Item(Target.Row - 9, 12) & vbCrLf & _
                .Item(Target.Row - 9, 13) & vbCrLf & _
                .Item(Target.Row - 9, 14)
    End If
End With
End Sub

Remarque : Attention que dans les propriétés de la Texbox vous devez mettre l'option Multiline à la valeur TRUE

Cordialement

super merci bcp

C'est presque exactement ce que je veux, c'est Juste je souhaite aussi afficher les comptes sans auxiliaire.

merci Comme même

Très bonne soirée à vous DAN

je souhaite aussi afficher les comptes sans auxiliaire.

Vous aviez mis une condition de valeur non vide en colonne 5. J'ai donc considéré aussi ce cas.

Si vous voulez afficher aussi quand cette colonne est vide, modifiez le code comme ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
TextBox1 = ""
With ListObjects("Tableau2").DataBodyRange
        TextBox1.Value = .Item(Target.Row - 9, 12) & vbCrLf & _
                .Item(Target.Row - 9, 13) & vbCrLf & _
                .Item(Target.Row - 9, 14)
End With
End Sub