XL 2010 Afficher des valeurs dans un textbox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
256
Réponses
4
Affichages
580
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Retour