Ka, Ben j'en ai oublié une partie dans mon précédent message (voilà ce que c'est d'envoyer sans essayer)... Alors je corrige:
Private Sub ListBox1_Click()
i = ListBox1.ListIndex ActiveSheet.Cells(1, 1).Value = ListBox1.List(i)
End Sub
Bonne soirée. RV
"ka" a écrit dans le message de news: 449cf96c$0$856$
Bonjour,
je cherche à faire du drag and drop depuis une listbox vers une cellule de la feuille.
merci de votre aide
a+
Rai
Bonjour,
je cherche à faire du drag and drop depuis une listbox vers une cellule de la feuille.
merci de votre aide
a+
Bonjour,
Comme RV je propose une solution qui n'est pas du véritable drag'n drop. Néanmoins, avec ce qui suit on clique sur la liste, puis on clique sur la cellule destination et celle-ci reçoit la valeur. On peut même remplir des plages entières avec cette méthode (enlever les ' des lignes concernées) :
Public MaValeurDeListe As Variant 'Variant car je ne connais pas la nature du contenu de ta liste
Private Sub ComboBox1_Click() MaValeurDeListe = ComboBox1.Value End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not IsNull(MaValeurDeListe) Then 'If Target.Cells.Count = 1 Then 'activer ligne ci-dessus pour limiter drag'n drop à 1 cellule Target = MaValeurDeListe MaValeurDeListe = Null 'End If 'activer ligne ci-dessus pour limiter drag'n drop à 1 cellule End If End Sub
Ca convient ?
Bonne fin de journée
Rai
Bonjour,
je cherche à faire du drag and drop depuis une listbox vers une cellule de
la feuille.
merci de votre aide
a+
Bonjour,
Comme RV je propose une solution qui n'est pas du véritable drag'n drop.
Néanmoins, avec ce qui suit on clique sur la liste, puis on clique sur
la cellule destination et celle-ci reçoit la valeur.
On peut même remplir des plages entières avec cette méthode (enlever les
' des lignes concernées) :
Public MaValeurDeListe As Variant
'Variant car je ne connais pas la nature du contenu de ta liste
Private Sub ComboBox1_Click()
MaValeurDeListe = ComboBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsNull(MaValeurDeListe) Then
'If Target.Cells.Count = 1 Then
'activer ligne ci-dessus pour limiter drag'n drop à 1 cellule
Target = MaValeurDeListe
MaValeurDeListe = Null
'End If
'activer ligne ci-dessus pour limiter drag'n drop à 1 cellule
End If
End Sub
je cherche à faire du drag and drop depuis une listbox vers une cellule de la feuille.
merci de votre aide
a+
Bonjour,
Comme RV je propose une solution qui n'est pas du véritable drag'n drop. Néanmoins, avec ce qui suit on clique sur la liste, puis on clique sur la cellule destination et celle-ci reçoit la valeur. On peut même remplir des plages entières avec cette méthode (enlever les ' des lignes concernées) :
Public MaValeurDeListe As Variant 'Variant car je ne connais pas la nature du contenu de ta liste
Private Sub ComboBox1_Click() MaValeurDeListe = ComboBox1.Value End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not IsNull(MaValeurDeListe) Then 'If Target.Cells.Count = 1 Then 'activer ligne ci-dessus pour limiter drag'n drop à 1 cellule Target = MaValeurDeListe MaValeurDeListe = Null 'End If 'activer ligne ci-dessus pour limiter drag'n drop à 1 cellule End If End Sub