[vba/Excel] récuperer valeur listbox
Fermé
antic80
Messages postés
4785
Date d'inscription
lundi 30 mai 2005
Statut
Contributeur
Dernière intervention
9 septembre 2009
-
27 nov. 2008 à 18:22
herod1983 Messages postés 193 Date d'inscription jeudi 2 octobre 2008 Statut Membre Dernière intervention 3 août 2012 - 7 déc. 2008 à 21:28
herod1983 Messages postés 193 Date d'inscription jeudi 2 octobre 2008 Statut Membre Dernière intervention 3 août 2012 - 7 déc. 2008 à 21:28
A voir également:
- Récupérer les données d'une listbox vba
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Recuperer video youtube - Guide
- Récupérer au terminal de fret - Forum Consommation & Internet
- Comment récupérer un compte facebook piraté - Guide
- Impossible de récupérer mon compte gmail - Guide
1 réponse
herod1983
Messages postés
193
Date d'inscription
jeudi 2 octobre 2008
Statut
Membre
Dernière intervention
3 août 2012
5
7 déc. 2008 à 21:28
7 déc. 2008 à 21:28
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
