[vba/Excel] récuperer valeur listbox
antic80
Messages postés
4877
Statut
Contributeur
-
herod1983 Messages postés 200 Statut Membre -
herod1983 Messages postés 200 Statut Membre -
Bonjour,
j'ai une listbox avec environ 50 lignes
imaginons que je selectionne la ligne 1, 10 et 25, je souhaiterais afficher dans une cellule excel les 3 valeurs selectionnées en les séparants par le symbole /
merci pour votre aide
j'ai une listbox avec environ 50 lignes
imaginons que je selectionne la ligne 1, 10 et 25, je souhaiterais afficher dans une cellule excel les 3 valeurs selectionnées en les séparants par le symbole /
merci pour votre aide
A voir également:
- Récupérer les données d'une listbox vba
- Fuite données maif - Guide
- Récupérer au terminal de fret - Forum Consommation & Internet
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Comment recuperer une video sur youtube - Guide
- Supprimer les données de navigation - Guide
1 réponse
Salut
Réponse tardive mais c'est toujours sa:
Chaque n° de ligne sont d'abord inscrit dans des cellules, j'ai pas pu faire autrement
à la limite tu pourra les mettre en cellule A3000 comme ça tu ne les verra pas.
Tu aura juste a double cliquer sur chaque ligne que tu veux
A mettre dans:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'désactivation de l'écran
Application.ScreenUpdating = False
'appel de la macro
'enregistre n° ligne
'dans variable target
Call essai(Target)
End Sub
A mettre dans un module:
Sub essai(Target As Range)
'déclare variable
'target et r sont des valeur de cellules
Dim r As Range
'enregistre la valeur de la cellule double cliqué
Set r = Target
'boucle ajoute valeur
'de ligne si cellule vide
For i = 1 To 2 'ligne 1 a 3
'abscisse variable i, ordonné 1 = A
If Cells(i, 1).Value = "" Then Exit For
Next i
Sheets("feuil1").Cells(i, 1).Value = r.Row
'si les 3 coordonnées sont complétées
If Range("A3").Value <> "" Then
'alors cellule B1 = valeur
'des autres cellules
Range("B1").Value = Range("A1").Value & "/" & Range("A2").Value & "/" & Range("A3").Value
End If
'mise a jour de l'écran activée
Application.ScreenUpdating = True
End Sub
Réponse tardive mais c'est toujours sa:
Chaque n° de ligne sont d'abord inscrit dans des cellules, j'ai pas pu faire autrement
à la limite tu pourra les mettre en cellule A3000 comme ça tu ne les verra pas.
Tu aura juste a double cliquer sur chaque ligne que tu veux
A mettre dans:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'désactivation de l'écran
Application.ScreenUpdating = False
'appel de la macro
'enregistre n° ligne
'dans variable target
Call essai(Target)
End Sub
A mettre dans un module:
Sub essai(Target As Range)
'déclare variable
'target et r sont des valeur de cellules
Dim r As Range
'enregistre la valeur de la cellule double cliqué
Set r = Target
'boucle ajoute valeur
'de ligne si cellule vide
For i = 1 To 2 'ligne 1 a 3
'abscisse variable i, ordonné 1 = A
If Cells(i, 1).Value = "" Then Exit For
Next i
Sheets("feuil1").Cells(i, 1).Value = r.Row
'si les 3 coordonnées sont complétées
If Range("A3").Value <> "" Then
'alors cellule B1 = valeur
'des autres cellules
Range("B1").Value = Range("A1").Value & "/" & Range("A2").Value & "/" & Range("A3").Value
End If
'mise a jour de l'écran activée
Application.ScreenUpdating = True
End Sub
