XL 2010 Afficher des valeurs dans un textbox

Ryadhb13 · 2 Février 2021

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,

sylvanu · 2 Février 2021

Ryadhb13 à dit:
Presque exactement ce que je veux

Du post #1 il eût fallu être cartomancienne pour comprendre.
Un nouvel essai en PJ.

sylvanu · 2 Février 2021

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

Ryadhb13 · 2 Février 2021

su

sylvanu à dit:

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

sylvanu · 2 Février 2021

Ryadhb13 à dit:
Presque exactement ce que je veux

Du post #1 il eût fallu être cartomancienne pour comprendre.
Un nouvel essai en PJ.

Ryadhb13 · 2 Février 2021

ça fonctionne très bien merci beaucoup

XL 2010 Afficher des valeurs dans un textbox

Ryadhb13

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Ryadhb13

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Ryadhb13

XLDnaute Nouveau

Discussions similaires

XL 2010 Afficher des valeurs dans un textbox

Ryadhb13

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Ryadhb13

XLDnaute Nouveau

​

sylvanu

XLDnaute Barbatruc

Pièces jointes

Ryadhb13

XLDnaute Nouveau

Discussions similaires