Discussion :

[daniel1965]

Bonjour,

j'ai récupérer un code sur ce site que j'ai modifié afin de ma combobox se lance sur plusieurs colonne. mais je souhaiterais que sur certaines cellules (ou ligne) des ces colonnes ne lance pas la combobox pour lancer un autre userform. je cherche sur le net mais rien, si quelqu'un pouvait me diriger?
d'avance merci à tous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
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

[Invité]

Bonjour,

Une solution pourrait consister à tester la couleur de fond des cellules comme dans ce code où toutes les cellules sur fond jaune sont exclues :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
        If Target.Count > 1 Then GoTo Fin
 
        If Not Intersect([C:C,D:D,E:E,F:F,G:G,H:H,I:I], Target) Is Nothing And Target.Interior.Color <> RGB(255, 255, 0) Then
 
           '.....
 
        End If
 
Fin:
 
End Sub

[boisgontierjacques]

Bonjour,

Dans votre fichier, il y a des cellules fusionnées.
AND Target.Count = 1 n'est pas compatible puisqu'il y a plusieurs cellules sélectionnées (Ce code, c'est vous qui l'avez imaginé).


Boisgontier

[daniel1965]

Bonjour,

Oui il y avait des cellules fusionnées,
Quant à la couleur du fond de cellules ceci me parait peut etre une bonne piste mais VBA bloque à "GoTo Fin" avec un signalement d'erreur " erreur de compilation etiquette non définie? je vous remercie de votre aide.

daniel