Remplissage texbox si valeur ou vider textbex si valeur

Bonjour,

j'ai créé un petit fichier, je cherche à ne pas laisser les valeurs dans les tb 3 à 5 quand les pays ne correspondent pas avec CB1 et Cb2.

Une fois que le pays est identique (ex France) les données restent affichés dans les TB3 à tb5 passages d'id pays 11 à 12.

Si vous avez une idée car je ne vois pas.

Jean

Salut Jean,

modifie le code du Private Sub ComboBox2_Change() comme suivant:

Private Sub ComboBox2_Change()
Dim plage_2 As Integer, i As Integer
Dim Ligne_CB2 As Long
Ligne_CB2 = Me.ComboBox2.ListIndex + 2

    For i = 3 To 5
    Me.Controls("TextBox" & i) = ""
    Next i

If Me.ComboBox2.ListIndex = -1 Then Exit Sub
    For plage_2 = 3 To 5
    Me.Controls("TextBox" & plage_2) = Ws_feuil1.Cells(Ligne_CB2, plage_2)
    Next plage_2
End Sub

Bonne chance

salut à tous et à m3ellem1

Ton code fonctionne pour le CB1 et pour le cb2 par contre je cherche à faire la meme chose :

Si pas de correspondance pays vider TB 9 To 11

merci beaucoup.

Jean

salut Jean,

Jean 35 a écrit :

Si pas de correspondance pays vider TB 9 To 11

j'ai pas compris

bonjour, j'ai essayé et j'ai trouvé à voir fichier ça correspond à peu pres à ce que je veux.

Problème résolu.

jean