XL 2010 Afficher des valeurs dans un textbox

Ryadhb13

XLDnaute Nouveau
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
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim ligne As Target
   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

Cordialement,
 

Pièces jointes

  • TEST.xlsm
    107.8 KB · Affichages: 17

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Ryadhb13,
Je suppose que les données à remonter sont celles de la feuille BD ?
En PJ un essai avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim N, Val1, Val2
   If Target.Count = 1 Then
    If Application.CountIf(Sheets("BD").Range("A:A"), Sheets("Saisie").Cells(Target.Row, "E")) > 0 Then
        N = Application.Match(Sheets("Saisie").Cells(Target.Row, "E"), Sheets("BD").Range("A:A"), 0)
        Val1 = Sheets("BD").Cells(N, "A")
        Val2 = Sheets("BD").Cells(N, "B")
        TextBox1 = Val1 & vbCrLf & vbCrLf & Val2
    Else
        TextBox1 = ""
    End If
   End If
End Sub
 

Pièces jointes

  • TEST (24).xlsm
    108 KB · Affichages: 3

Ryadhb13

XLDnaute Nouveau
su
Bonjour Ryadhb13,
Je suppose que les données à remonter sont celles de la feuille BD ?
En PJ un essai avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim N, Val1, Val2
   If Target.Count = 1 Then
    If Application.CountIf(Sheets("BD").Range("A:A"), Sheets("Saisie").Cells(Target.Row, "E")) > 0 Then
        N = Application.Match(Sheets("Saisie").Cells(Target.Row, "E"), Sheets("BD").Range("A:A"), 0)
        Val1 = Sheets("BD").Cells(N, "A")
        Val2 = Sheets("BD").Cells(N, "B")
        TextBox1 = Val1 & vbCrLf & vbCrLf & Val2
    Else
        TextBox1 = ""
    End If
   End If
End Sub
super merci bcp
Presque exactement ce que je veux
.Juste dans la première ligne, je veux collecter le compte et son description avec leur solde en mentionnant solde débit ou crédit . Concernant la deuxième ligne, la même chose avec le compte, mais cette fois avec l'auxiliaire s'il est présent sur la ligne, sinon la ligne deuxième restera vide.
merci comme meme
Très bonne soirée à vous sylvanu

 

Statistiques des forums

Discussions
312 177
Messages
2 085 971
Membres
103 073
dernier inscrit
MSCHOE16