un petit probleme avec combobox

[aime_jeux]

salam voila mon blm avec combobox
par exemple
combobox1 avec rowsource B3:B13
et je veus verifie avec ComboBox1_Change si la case selectionne est vide il doit la remplace... par le mot case vide
remarque disant que les deux case avant la case selectionne et qui sont vide eux sont remplacer par le mot "case vide" par contre la case selectionne non
votre aide...... please
et un grand merci a vous
voila mon exemple

 

[Cousinhub]

Re : un petit probleme avec combobox

Bonsoir,

si tu ne veux charger ton combobox que des valeurs non vides, tu peux mettre ce code, à l'initialisation de l'usf :

Private Sub UserForm_Initialize()
For i = 1 To [B65000].End(xlUp).Row
    If Cells(i, 2).Value <> "" Then Me.ComboBox1.AddItem Cells(i, 2).Value
Next i
End Sub

et tu supprimes le RowSource du combobox.....

Sinon, je ne comprends pas bien ton souci....

Bonne soirée

 

[aime_jeux]

Re : un petit probleme avec combobox

merci pour la réponse mais ce que je cherche c'est bien de remplacer la case vide selectionne "seulement"
pas pour ne pas les avoir ces cases vides par l'initialisation de usf
merci a vous

 

[Gael]

Re : un petit probleme avec combobox

Bonsoir Aime_jeux, Bhbh,

Pas sur d'avoir bien compris mais tu peux essayer:

Private Sub ComboBox1_Change()
If Range("B" & ComboBox1.ListIndex + 3).Value = "" Then
Range("B" & ComboBox1.ListIndex + 3) = Range("A3")
End If
End Sub

@+

Gael

 

[Temjeh]

Re : un petit probleme avec combobox

Désolé mauvais post

 

[tora]

Re : un petit probleme avec combobox

j'ai dù mal interpréter le précédent post ...
oubliez celui-ci également .... 😱

 

[aime_jeux]

Re : un petit probleme avec combobox

Bonsoir Aime_jeux, Bhbh,

Pas sur d'avoir bien compris mais tu peux essayer:

Private Sub ComboBox1_Change()
If Range("B" & ComboBox1.ListIndex + 3).Value = "" Then
Range("B" & ComboBox1.ListIndex + 3) = Range("A3")
End If
End Sub

@+

Gael

merci a vous sincerement ce que je cherchais
merci

 

[aime_jeux]

Re : un petit probleme avec combobox

Bonsoir Aime_jeux, Bhbh,

Pas sur d'avoir bien compris mais tu peux essayer:

Private Sub ComboBox1_Change()
If Range("B" & ComboBox1.ListIndex + 3).Value = "" Then
Range("B" & ComboBox1.ListIndex + 3) = Range("A3")
End If
End Sub

@+

Gael

salam merci a vous prblm regle avec ton aide
merci bcp🙂🙂