Doublons dans userform

[Mapat]

Bonjour

J'essaie de me faire un fichier pour une collection de capsules de champagne.
J'ai une page données, et sur la 2ème j'ai un bouton pour appeler un userform.
Sur cet userform, un combobox qui recherche le nom des propriétaires.
Beaucoup de propriétaires ont dans leur production plusieurs sortes de produits et donc plusieurs sortes de capsules.
Je voudrais qu'après avoir choisi le propriétaire, le choix se fasse par le numéro et là , je bloque.
Sur mon userform, j'ai un webBrowser qui me permet d'avoir la photo de la capsule recherchée. Les photos étant placées dans le même dossier que mon fichier xls.
Je joint ci-dessous mon code car mon fichier est trop lourd pour passer sur le forum

Option Explicit

Private Sub CommandButton1_Click()
Call Donnees
Unload Me
End Sub

Private Sub Couleur_Change()

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub J_ai_Change()

End Sub

Private Sub Buts_Change()

End Sub

Private Sub Nom_Change()

End Sub

Private Sub Description_Change()

End Sub

Private Sub Cote_Change()

End Sub

Private Sub J_ai_en_double_Change()

End Sub

Private Sub Code_Change()

End Sub



Private Sub Pays_Change()

End Sub

Private Sub Numero_Change()

End Sub

Private Sub Poste_Change()

End Sub

Private Sub Recherche_Change()

Dim Photo As String

With Feuil1
Nom = .Range("A" & Recherche.ListIndex + 2)
Code = .Range("B" & Recherche.ListIndex + 2)
Couleur = .Range("C" & Recherche.ListIndex + 2)
Description = .Range("D" & Recherche.ListIndex + 2)
Cote = .Range("E" & Recherche.ListIndex + 2)
J_ai = .Range("G" & Recherche.ListIndex + 2)
J_ai_en_double = .Range("I" & Recherche.ListIndex + 2)
Photo = .Range("J" & Recherche.ListIndex + 2)
End With

WebBrowser1.Navigate ThisWorkbook.Path & "\" & Photo


End Sub


Private Sub Label5_Click()

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Sortie_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()

End Sub



Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = [Data!K6000].Value
If [Data!K6000] = """" Then CheckBox1 = True

Dim Boucle As Integer
Dim Ligne As Integer

With Feuil1
Ligne = .Range("A65536").End(xlUp).Row
For Boucle = 2 To Ligne
Recherche.AddItem .Range("A" & Boucle)
Next Boucle
End With

End Sub


Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

End Sub

 

[Mapat]

Re : Doublons dans userform

Bonjour,

Ah , je n'ai pas eu de réponse alors je fais remonter le fil

Bonne journée

 

[bqtr]

Re : Doublons dans userform

Bonjour,

J'ai fait la modif pour la couleur, il y a des combobox à la place des textbox pour les valeurs OUI et NON (plus facile pour les modifications).

Pour les colonnes F et H quel genre de donnée tu vas y mettre ?
Si c'est toujours les mêmes (un choix dans une liste par exemple) un combobox sera plus approprié qu'un textbox.
Dis moi.

A+

 

[Mapat]

Re : Doublons dans userform

Bonjour btqr

Dans ces 2 colonnes il faut uniquement inscrire le chiffre 1 qui validera la valeur oui dans les colonnes G et I

 

[Mapat]

Re : Doublons dans userform

Re

J'ai essayé hier soir de modifier avec le formulaire la valeur des colonnes f et h par des cases à cocher ou des boutons d'option Mais je n'arrive à rien de bon.

 

[bqtr]

Re : Doublons dans userform

Re,

Donc si tu mets 1 en F ou G alors H et I passe à OUI sinon reste à NON c'est bien ca ?
Avec un optionbutton ou un checkbox c'est faisiable.


A+

 

[Mapat]

Re : Doublons dans userform

Re

Oui voilà c'est ça
L'userform permettra de rechercher une capsule et lorsque j'en ai une nouvelle de pouvoir changer le non en oui, et validera la base de données

 

[bqtr]

Re : Doublons dans userform

Re,

Ok, je te fais ca en fin de journée

A+

 

[bqtr]

Re : Doublons dans userform

Re,

Finalement je suis resté sur les combobox (OUI/NON) pour faire les modifs.
Le 1 se met ou pas en fonction des choix dans les combobox.

- Pour la colonne H tu ne peux pas mettre un 1 si le combobox3 n'est pas sur OUI. (si tu n'as pas déjà la capsule)
- La couleur jaune se met en fonction du OUI.
- Les changement sont répercutés sur la feuille automatiquement (le ou les 1 en colonne F et H)

Test et dis moi si cela te convient ou pas.

A+

 

[Mapat]

Re : Doublons dans userform

re le forum et btqr

C'est tout simplement "au poil"
J'aurais encore une question et je ne t'embête plus
Quand tu écris ComboBox3.BackColor = &HFFFF& je suppose que cela correspond à la couleur jaune, mais comment fait-on pour trouver ce genre de code

 

[bqtr]

Re : Doublons dans userform

Re,

Pour trouver le code de la couleur il suffit de sélectionner le contrôle puis dans la fenêtre de propriété sur le côte à gauche (appuis sur F4 si elle n'est pas présente) tu as la liste de toutes les propriétés du contrôle.

BackColor correspond à la couleur de fond, en face click sur le petit triangle noir et la palette des couleurs s'ouvre. Tu fais ton choix et tu as la le code de la couleur.

A+

 

[Mapat]

Re : Doublons dans userform

Re
Merci de toutes ces explications, de ton aide et de ta patience

Je pense que je doit etre au top
Bonne soirée