Formulaire complexe - Option button

Éditer le messageMarquer ce sujet comme étant non résoluRapporter le messageRépondre en citant le messagepar grenoble87 » Hier, 10:50

Pour commencer bonjour à tous!

Je vous joins mon fichier

Je développe un fichier client avec deux interfaces (Useform) et un tableau (Base de données)

La première useform me permet d'ajouter un client avec toutes les infos le concernant (via une multitude de textbox) et l'ajoute à la suite dans la base de données. Dans cette useform j'i ajouter 4 optionbutton pour affecter une couleur seulement sur la cellule "nom de l'entreprise" (Colonne A). Jusqu'ici pas de problème: la couleur choisi avec les optionsbutton se place bien dans la base de données.

Mon probléme concerne la deuxième useform qui me permet de rechercher et de modifier des clients existant avec une combobox regroupant tous les noms de client de la base de données et d'afficher les informations du client dans les textbox.

Toutes les infos remontent bien par contre:

Serait il possible, selon la couleur du client éxistant, de cocher la optionbutton automatiquement?

En gros:

Dans ma "Useform" modif et recherche, je selectionne "CLient1" (On va dire qu'il est BLEU)

dans la combobox. J'aimerais que la optionbutton1 (Qui correspond au client bleu) se coche automatiquement.

Merci par avance

Il suffit de tester dans le combobox_change la propriété .interior.color de la cellule et avec un select case choisir les options buttons que tu veux.

Bonjour et merci pour cette réponse.

Par contre je suis un peu bloqué quand a la construction de ce petit bout de code. J'ai bien saisi que combobox change va récup la valeur de la cellule mais je n'arrive pas à traduire tout cela en code..

non combobox change ne va rien récupérer... c'est une macro évenementielle.. Je ne peux pas ouvrir les fichiers 7z et ne peux donc pas t'aider

Désolé, Voici un fichier en exemple: J'ai effacer la USF Ajouter un client , j'ai seulement laisser la USF ou j'aimerais que les optionbutton se cochent selon la couleur du client.

Merci par avance

Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer
   If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  Select Case Ws.Cells(Ligne, 1).Interior.ColorIndex
  Case 6
  OptionButton8.Value = True
  Case 3
  OptionButton6.Value = True
  Case 4
  OptionButton5.Value = True
  Case 23
  OptionButton7.Value = True
  End Select
  For I = 1 To 2
    Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)
  Next I
End Sub

Merci beaucoup c'est exactement ça!