XL 2010 Ventes clients

dysorthographie

XLDnaute Accro

• 19 Décembre 2023

• #2

Bonjour,
Textbox1= turc et na!

 

Dernière édition: 19 Décembre 2023

Vote positif 0 Vote négatif

H

hema300

XLDnaute Nouveau

• 19 Décembre 2023

• #3

J'ai joint le fichier, aidez-moi s'il vous plaît

 

Pièces jointes

• selse.xlsm

  20.9 KB · Affichages: 5

Vote positif 0 Vote négatif

H

hema300

XLDnaute Nouveau

• 19 Décembre 2023

• #4

 

Vote positif 0 Vote négatif

H

hema300

XLDnaute Nouveau

• 20 Décembre 2023

• #5

VB:

Private Sub ComboBox1_Change()
Dim ws2 As Worksheet
    Set ws2 = Sheets("Sheet2")
    Dim lastrow As Long
    lastrow = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    Dim i As Integer
    Dim foundValue As String
    TextBox1.Value = ""
    For i = 2 To lastrow
        If ws2.Cells(i, 1).Value = ComboBox1.Value Then
            foundValue = ws2.Cells(i, 2).Value
        End If
    Next i
    TextBox1.Value = foundValue
    End Sub

 

Vote positif 0 Vote négatif

Solution

H

hema300

XLDnaute Nouveau

• 20 Décembre 2023

• #6

Bonjour
Ezra, parce que j'étais pressé
Parce que mes frères sur ce forum sont occupés
je demande pardon
Le problème a été résolu en dehors du forum et je voulais partager la solution avec vous

 

Vote positif 0 Vote négatif