Astuces Excel
  1. Astuces Excel
  3. Utilisation d'une Combobox à sélectionner et button d'option en excellent format d'user
Intereting Posts
Convertir une colonne de strings représentant des dates variées en format dans une colonne de dates Comment faire itérer à travers plusieurs lignes et appeler vba en fonction de quelle ligne est signalée Ouvrir un file Excel en lecture seule à l'aide de Python Abonnement hors gamme lorsque vous choisissez un classur Apache poi comment get des coordonnées cellulaires La feuille de calcul Excel non existante, mais les noms de formule et définis fonctionnent toujours? Table pivot de Excel: ne peut pas filterr les dates Comment formater un multidimensional array en fonction de ses valeurs de cellule? Excel VBA QueryTables TEXT vs URL Connections Créer des charts à l'aide de plages dynamics yii cgridview export vers excel ne fonctionne pas sur la pagination ExcelDNA / Managed XLL / Excel Interop Réglage du niveau de zoom de la feuille de calcul en fonction de la résolution de l'écran Ajouter une plage à une PrintArea existante avec VBA échoue avec erreur 400 Copiez la ligne entière d'une feuille de calcul vers une autre basée sur la colonne A de la feuille de calcul différente

Utilisation d'une Combobox à sélectionner et button d'option en excellent format d'user

Je suis nouveau sur vba et j'ai des problèmes avec un formulaire d'user. J'essaie de l'avoir pour que, lorsqu'une sélection dans un combobox contient une certaine lettre, un button d'option est sélectionné.

Le code que j'ai essayé d'utiliser est: – 

Private Sub ComboBox1_Change() If ComboBox1.Value = "*C*" Then OptionButton3.Value = True End If If ComboBox1.Value = "FR 850 C BLUE" Then TextBox2.Value = "BLUE" End If If ComboBox1.Value = "FR 850 C WHITE" Then TextBox2.Value = "WHITE" End If End Sub

Toutefois, TextBox2 n'est visible que comme suit: 

 Private Sub OptionButton3_Click() TextBox2.Visible = True With Me.TextBox2 .Value = "Colour here" .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End Sub

Voir cette image imprimée (voir ci-dessous) du formulaire d'user lorsqu'une option contenant "C" est sélectionnée – OptionButton3 rest non sélectionnée.

capture d'écran

J'ai également essayé de coder de sorte que lorsque "FR 850 C BLUE" est sélectionné, TextBox2 affichera "BLUE". Je soupçonne qu'une fois que je trouve un correctif à la première partie, cela fonctionnera mieux, mais, comme l'indique l' OptionButton3 (voir ci-dessous), si vous select OptionButton3 après "FR 850 C BLUE" dans TextBox2 , TextBox2 ne montre pas "BLEU" comme je le voudrais.

capture d'écran

Est-ce que quelqu'un peut aider? Je soupçonne que j'ai manqué quelque chose quelque part …

Tous les commentaires sont bienvenus!

Vous dites: 

 If ComboBox1.Value = "*C*" Then

Cela signifie que si ComboBox1.Value équivaut à "*C*" faites quelque chose.
Pour vérifier si une valeur correspond partiellement, vous utilisez Like : 

 If ComboBox1.Value Like "*C*" Then