double liste deroulante

[STEPHANE786]

Bonsoir a tous

besoin de votre aide
je n arrive pas a faire fonctionner une double liste deroulante quand des cellules sont fusionnés
voir dans fichier joint feuille livraison cellule a15 b15


je pense que le soucis viens de
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub

Merci d avance

le code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
Static IsOn As Boolean
If IsOn Then
IsOn = False
Exit Sub
End If
Set Isect = Application.Intersect(Target, Range("livre2"))
If Isect Is Nothing Then Exit Sub


With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
If .Value = "" Then Exit Sub
Sheets("liste deroulante").Range("A300").Value = .Value
With .Validation
.Modify Formula1:="=Listename2"
End With
End With
SendKeys "%{DOWN}", False
IsOn = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Isect As Range
Set Isect = Application.Intersect(Target, Range("livre2"))

If Isect Is Nothing Then Exit Sub

With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
With .Validation
.Modify Formula1:="=ListeAlpha2"
End With
End With
SendKeys "%{DOWN}", False
End Sub

 

[djidji59430]

Re : double liste deroulante

si tu veux absolument 2 colonnes,
http://cjoint.com/?DIbsZ7NDnJp
tu auras 2 cellules

 

[STEPHANE786]

Re : double liste deroulante

bonsoir
ta solution est interessante mais ne fonctionne pas
d autre idee

merci a tous

 

[STEPHANE786]

Re : double liste deroulante

bonsoir
je suis vraiment concé si pas de solution

Merci a tous pour votre aide

 

[STEPHANE786]

Re : double liste deroulante

bonjour a tous
la solution etait toute simple !!!

If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub

pour 3 cellules fusionne de la liste deroulante mettre le chiffre 3 dans change et selection change

If .Rows.Count > 3 Or .Columns.Count > 3 Then Exit Sub

merci a tous