Discussion :

[DeerData]

Bonjour à tous !

Mon problème VBA (j'espère avoir posté au bon endroit) est simple mais je ne trouve pas de solution, et ce n'est pas faute d'avoir cherché.

Je demande à l'utilisateur de la macro de sélectionner des cellules (1 cellule, une plage de cellule, ou plusieurs cellules séparées). Je voudrais afficher leurs valeurs (.value) dans une listbox dans un userform.

Ce que j'ai trouvé pour l'instant :

Selection.Item(Numéro de l'item).value
Selection(Numéro de l'item).value

Ces propriétés fonctionnent mais seulement si l'utilisateur a selectionné une seule cellule ou une plage de cellule. Dans le cas de plusieurs cellules séparées ca ne fonctionne pas.

Imaginons que l'utilisateur selectionne A1 et C4 (en gros à l'aide de la touche ctrl) j'ai :

Selection(1).row = 1 'Pour la cellule A1, la première sélectionnée
Selection(2).row = 2 'Pour la cellule C4 alors qu'il me faudrait = 4 (C4)

En fait, ça fait comme si j'avais sélectionné une plage de cellule dont la première est A1 et la deuxième est A2.

Je vous remercie par avance pour votre aide, je trouve rien du tout sur le net !!!

[Docmarti]

Bonsoir DeerData

Voici une piste que tu dois adapter.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub tt()
 
For i = 1 To Selection.Areas.Count
 
Set ar = Selection.Areas(i)
 Cells(i, 5).Value = ar.Address
 
 nbr = 0
For Each c In ar
 nbr = nbr + 1
 Cells(i, 5 + nbr).Value = c.Address
Next
 
Next
 
End Sub

[Theze]

Bonjour,

Dans le même esprit que Docmarti. Attention, la plage de sélection est parcourue de haut en bas et de gauche à droite donc, si C4 et B10 sont sélectionnées, la ligne 10 sera inscrite en premier et ensuite, la ligne 4 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'à l'ouverture de la Form
Private Sub UserForm_Initialize()
 
    Dim Cel As Range
 
    For Each Cel In Selection '<-- sur la feuille active
 
        Me.ListBox1.AddItem Cel.Row
        'Me.ListBox1.AddItem Cel.value
 
    Next Cel
 
End Sub

Hervé.

[DeerData]

Super !!!

Merci beaucoup à tous les deux Docmarti et Theze pour votre etonnante rapidité

Je vais utiliser la deuxième méthode parce qu'elle renvoi .row comme .value très facilement alors que la première m'a renvoyé $E$2 par exemple... De plus j'avoue ne pas maitriser .Areas() ni .Address...

Bonne continuation !!!