Combobox intuitive sur plusieurs colonne sauf certaines cellules

bonjour,

j'ai trouvé ce code sur le net afin de lancer une combobox à partir de plusieurs colonnes mais je souhaiterais que la combobox ne se lance pas sur certaines cellules car je voudrais y lancer un autre userform. quelqu'un peut essayer de me mettre sur la piste?

D'avance merci de votre aide

Daniel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect([C:C,D:D,E:E,F:F,G:G,H:H,I:I], Target) Is Nothing And Target.Count = 1 Then

UserForm1.Left = Target.Left + 150

UserForm1.Top = Target.Top + 90 - Cells(ActiveWindow.ScrollRow, 1).Top

UserForm1.Show

End If

End Sub

Bonjour,

Sans fichier?

Ceuzin

re bonjour,

Et voici le fichier joint.

D'avance merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect([C7:I3000], Target) Is Nothing And Target.Count = 1 Then
  If Target.Interior.Color = vbWhite Then
    UserForm1.Left = Target.Left + 150
    UserForm1.Top = Target.Top + 90 - Cells(ActiveWindow.ScrollRow, 1).Top
    UserForm1.Show
  End If
 End If
End Sub

L'auteur du code de recherche intuitive est J.Boisgontier

Ceuzin

super merci cela fonctionne a merveille!

un grand grand merci!

bon courage à tous

re bonjour,

je fais la meme chose avec la couleur des cellules grises mais cela ne fonctionne pas. j'ai ecris "vbgrey" ?

besoin encore un peu de votre aide, merci

14277081

Ceuzin

merci bonne fin de journee