combobox

[jopont]

bonsoir dans le code suivant j'ai le problème suivant :

Lorsque que je clique bouton droit j'ai un débogage sur la ligne
ComboBox1.Top = Target.Offset(0, 1).Top

et les combo apparaissent à côté alors qu'elles ne concernent que la zone DV3😀V65

merci de votre aide

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
init
If Not Intersect(Target, [DV3😀V65]) Is Nothing Then
ComboBox1.Visible = True
ComboBox2.Visible = True
ComboBox3.Visible = True
ComboBox1.Left = Target.Left 'Offset(0, 1).
ComboBox2.Left = ComboBox1.Left + ComboBox1.Width
ComboBox3.Left = ComboBox2.Left + ComboBox2.Width
ComboBox1.Top = Target.Offset(0, 1).Top
ComboBox2.Top = ComboBox1.Top
ComboBox3.Top = ComboBox2.Top
End If
Application.ScreenUpdating = True
End Sub

 

[kjin]

Re : combobox

Bonsoir,
Tel quel le code ne pose pas de pb

Lorsque que je clique bouton droit...

Lequel !

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
....
init
...
End Sub

Kesako ?
Je pense que le fichier et le code complet seraient bienvenus
A+
kjin

 

[jopont]

Re : combobox

Je parlais de la ligne d'une feuille de mon classeur. Au niveau des adresses de ligne