combobox et message suivant condition

[GHISLAIN]

Bonjour a tous

je souhaiterai lorque je clique sur la combobox de mon userform et que je selectionne une numero qui est en rouge sur ma feuille excel qu'il apparraise a l'ecran un messagebox me disant que ce numero ne peut etre selectionné pour X raison et quand meme temps ça me vide le combobox


merci scincerement de votre aide


amicalement ghislain

 

[porcinet82]

Re : combobox et message suivant condition

Salut,

Essaye le code suivant, ca devrait le faire :

Private Sub ComboBox1_Change()
Dim i%
For i = 2 To Range("A65536").End(xlUp).Row
    If Val(ComboBox1.Value) = Cells(i, 1).Value And Cells(i, 1).Interior.Color = vbRed Then
        MsgBox "Ne peut pas etre selectionné"
        ComboBox1.Value = ""
        Exit Sub
    End If
Next i
End Sub

@+

 

[lapix]

Re : combobox et message suivant condition

Bonjour,

Pour vider le combobox, il te faut :
me.ComboBox1.Clear

Pour le reste, si la couleur est un discriminant visuel facile, c'est plus dur en programmation.

Il te faut introduire une autre notion car le combo ne gere pas les elements colorés de cette facon.
Tu peux peut etre dans ton combo introduire une colonne qui contiendrait l'info "rouge" ou peut etre ne pas mettre dans ton combo les rouges...

Dis voire

 

[pierrejean]

Re : combobox et message suivant condition

bonjour ghislain

vois si cela te convient


edition:
salut a porcinet et lapix

pas rafraichi !!

 

[porcinet82]

Re : combobox et message suivant condition

re,

Arf Pierrejean, je ne pense jamais a utiliser le ListIndex qui est plus rapide et plus propre notamment dans ce cas. 😉

@+

 

[GHISLAIN]

Re : combobox et message suivant condition

bien bonjour a tous

je suis ravi de votre rapidité de reponse , lol

je tien a vous remercier tous pour votre aide

amicalement

ghislain