OVH Cloud OVH Cloud

Pas de doublons

2 réponses
Avatar
Linebaker
Bonsoir

Dans mon userform je sélectionne une donnée à l'aide des 3 combobox.

Je veux ajouter des informations dans les 3 textbox mais sans avoir de
doublons (les données des combobox).

Le code ne fonctionne pas.

Quelqu'un pourrait m'aider ?

Voir le fichier joint SVP.

http://cjoint.com/?dDmp7phpdL

Merci

2 réponses

Avatar
Youky
Ce n'est pas trés explicite, donc peut être ceci t'aidera
sous le bouton VALIDER
Youky
Private Sub CmdValider_Click()
Dim k As Integer
Dim Ligne As Integer
With Sheets("Inventaire")
For k = 2 To .Range("A65536").End(xlUp).Row
If .Cells(k, 1) = Me.Combo1.Text Then
If .Cells(k, 2) = Me.Combo2.Text Then
If .Cells(k, 3) = Me.Combo3.Text Then
Ligne = k
End If
End If
End If
Next
If Ligne = 0 Then Ligne = .Range("a65536").End(xlUp).Row
.Range("a" & Ligne) = Me.Combo1
.Range("b" & Ligne) = Me.Combo2
.Range("c" & Ligne) = Me.Combo3
.Range("d" & Ligne) = Me.ListBox1
.Range("e" & Ligne) = Me.ListBox2
.Range("f" & Ligne) = Me.ListBox3
.Range("g" & Ligne) = Me.ListBox4
.Range("g" & Ligne).Offset(, 1) = Trim(TextBox1)
.Range("g" & Ligne).Offset(, 2) = Trim(TextBox2)
.Range("g" & Ligne).Offset(, 3) = Trim(TextBox3)
End With
End Sub


"Linebaker" a écrit dans le message de news:
9wEWf.120102$
Bonsoir

Dans mon userform je sélectionne une donnée à l'aide des 3 combobox.

Je veux ajouter des informations dans les 3 textbox mais sans avoir de
doublons (les données des combobox).

Le code ne fonctionne pas.

Quelqu'un pourrait m'aider ?

Voir le fichier joint SVP.

http://cjoint.com/?dDmp7phpdL

Merci



Avatar
Linebaker
MERCI.

C'est exactement cela que je cherchais. :))))


"Youky" a écrit dans le message de news:

Ce n'est pas trés explicite, donc peut être ceci t'aidera
sous le bouton VALIDER
Youky
Private Sub CmdValider_Click()
Dim k As Integer
Dim Ligne As Integer
With Sheets("Inventaire")
For k = 2 To .Range("A65536").End(xlUp).Row
If .Cells(k, 1) = Me.Combo1.Text Then
If .Cells(k, 2) = Me.Combo2.Text Then
If .Cells(k, 3) = Me.Combo3.Text Then
Ligne = k
End If
End If
End If
Next
If Ligne = 0 Then Ligne = .Range("a65536").End(xlUp).Row
.Range("a" & Ligne) = Me.Combo1
.Range("b" & Ligne) = Me.Combo2
.Range("c" & Ligne) = Me.Combo3
.Range("d" & Ligne) = Me.ListBox1
.Range("e" & Ligne) = Me.ListBox2
.Range("f" & Ligne) = Me.ListBox3
.Range("g" & Ligne) = Me.ListBox4
.Range("g" & Ligne).Offset(, 1) = Trim(TextBox1)
.Range("g" & Ligne).Offset(, 2) = Trim(TextBox2)
.Range("g" & Ligne).Offset(, 3) = Trim(TextBox3)
End With
End Sub


"Linebaker" a écrit dans le message de news:
9wEWf.120102$
Bonsoir

Dans mon userform je sélectionne une donnée à l'aide des 3 combobox.

Je veux ajouter des informations dans les 3 textbox mais sans avoir de
doublons (les données des combobox).

Le code ne fonctionne pas.

Quelqu'un pourrait m'aider ?

Voir le fichier joint SVP.

http://cjoint.com/?dDmp7phpdL

Merci