Sylvain M.
XLDnaute Nouveau
Bonjour à tous,
Je viens d'adapter l'excellent modèle de Jacques Boisgontier (à cette adresse) aux communes Françaises.
Ça fonctionne très bien !!! (merci à Jacques !)
Cependant, je constate un comportement étrange de la feuille de calcul où est placée ce code VBA* : il devient impossible de faire le moindre copier/coller. A chaque clic dans une cellule, le contenu du presse papier semble effacé.
Est-ce que ça vous le fait aussi ?
Et voyez vous comment conserver le presse papier malgré tout ?
* voici le code en question :
Je viens d'adapter l'excellent modèle de Jacques Boisgontier (à cette adresse) aux communes Françaises.
Ça fonctionne très bien !!! (merci à Jacques !)
Cependant, je constate un comportement étrange de la feuille de calcul où est placée ce code VBA* : il devient impossible de faire le moindre copier/coller. A chaque clic dans une cellule, le contenu du presse papier semble effacé.
Est-ce que ça vous le fait aussi ?
Et voyez vous comment conserver le presse papier malgré tout ?
* voici le code en question :
Code:
Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([e2:e10], Target) Is Nothing And Target.Count = 1 Then
a = Application.Transpose(Sheets("données").Range("maliste").Value)
Me.ComboBox1.List = a
Me.ComboBox1.Height = Target.Height + 3
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1 = Target
Me.ComboBox1.Visible = True
Me.ComboBox1.Activate
Me.ComboBox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)
Else
Me.ComboBox1.Visible = False
End If
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
Else
ActiveCell = Me.ComboBox1
End If
End Sub