Figer un texte dans une Combobox et
Bonjour à tous
1°) C'est ma première et je veux évoluer mais je bloque , alors ma question est , comment je peux figer le Titre dans mes Combobox en cochant la case qui est à coté , c'est à dire je choisis AAAAAA je coche la case et le AAAAAA reste toujours après chaque saisie et quand je décoche je mets CCCCCC et recoche pour la figer , c'est possible ou une autre solution ?
2°) Pourriez vous m'aidez pour la formule pour que mes notes s'ajoutent sur plusieurs lignes en poussant vers le bas , donc la dernière saisie sera sur la première ligne , j'ai testé plusieurs formule que j'ai trouvé mais à chaque fois j'ai un bug , je dois mal m'y prendre c'est sur .
D'avance Merci .
Philou
Salut PhilNord,
première partie de ta demande.
Attention : en mode création, cale la propriété ENABLED de ta CheckBox1 sur FALSE.
Le code suivant est à coller dans le module VBA de la USF.
Private Sub ComboBox1_Change()
'
Me.CheckBox1.Enabled = IIf(Me.ComboBox1.Text = "", False, True)
If Me.CheckBox1.Enabled = False Then Me.CheckBox1.Caption = ""
If Me.CheckBox1.Value = True Then Me.ComboBox1.Text = Me.CheckBox1.Caption
If Me.CheckBox1.Value = False Then Me.CheckBox1.Caption = Me.ComboBox1.Text
'
End SubA+
Bon je dois vraiment mal m'y prendre ou alors j'ai pas compris le sens du fil , je vous ai mis en PJ se que j'ai fais mais ça fonctionne pas le texte ne reste pas figé il part dès que c'est enregistré , donc si vous pouvait regarder ou ça coince ou j'ai fais une mauvaise manip ?
Philippe .
Salut PhilNord,
mieux comme ceci, je pense mais... que fais-tu du contenu de ComboBox1 ?
Private Sub CommandButton1_Click()
'
If Me.TextBox1.Text <> "" And Me.TextBox2.Text <> "" Then
With Worksheets("TEST")
iRow = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & iRow).Value = Me.TextBox1.Text
.Range("C" & iRow).Value = Me.TextBox2.Text
End With
End If
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
If Me.CheckBox1.Value = False Then Me.ComboBox1.Text = ""
'
End SubA+