récupérer sélection multiple par souris

Version imprimable

17/03/2011, 16h46
clarinnette

récupérer sélection multiple par souris

Bonjour,
Comme l'indique le titre, j'ai un programme dans lequel l'utilisateur va sélectionner plusieurs cellules qui peuvent être discontinues.
Mais "Selection" ne prend en compte que la 1ère partie de la sélection et je ne trouve aucun moyen de récupérer la ou les autres parties sélectionnées (par un n° de ligne ou autre).

La sélection faite par l'uilisateur est complètement aléatoire, je n'ai pas moyen d'automatiser cela. HELP : je n'ai aucune solution !!
Merci d'avance

Bonjour,
J'ai trouvé au hasard de mes pérégrinations sur ce site : http://ericrenaud.fr/ ce code :
Code:

1 2 3 4 5 6 7 8 9 10 Sub SelectionPlageAvecSourisetrestitution() Dim MonTableau() As String Dim Plage As Range Dim j As Integer Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8) MonTableau = Split(Plage.Address, ",") For j = 0 To UBound(MonTableau) MsgBox MonTableau(j) Next j End Sub
Vous le lancez, et à l'affichage de l'InputBox sélectionnez votre plage discontinue avec la souris et la touche CTRL...

Bonsoir,

Pour récupérer la sélection dans une plage :
Code:

1 2 3 4 5 6 Dim Plage As Range Set Plage = Selection Debug.Print Plage.Address 'récup dans la fenêtre d'exécution, à adapter
Hervé.

Re,

Tu peux parcourir les cellules sélectionnées avec une boucle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Test()
 
    Dim Cel As Range
 
    For Each Cel In Selection
 
        MsgBox Cel.Address
 
    Next Cel
 
End Sub

Hervé.

18/03/2011, 10h24
clarinnette

Bonjour et merci à vous 3 !
Je suis en train d'adapter mon programme avec "plage.adress", split et compagnie; ce qui me permet de récupérer les n° de lignes qui ont été sélectionnées.
Je voulais éviter de passer les lignes les unes après les autres comme le suggère Thèze car j'ai souvent des gros fichiers (+ de 1000 lignes).
Merci beaucoup pour votre aide
Clarinnette, une autodidacte pas du tout confirmée !!
18/03/2011, 14h32
Theze

Bonjour Clarinnette,

Tu dis :

Citation:

Mais "Selection" ne prend en compte que la 1ère partie de la sélection et je ne trouve aucun moyen de récupérer la ou les autres parties sélectionnées (par un n° de ligne ou autre).

c'est pour cette raison que j'ai pris en exemple une boucle For Each, pour prendre en compte toutes les cellules sélectionnées. Comme tu ne donne pas trop d'explications, on est un peu dans le vague pour t'aider de façon plus précise.

Hervé
18/03/2011, 16h44
clarinnette

:D Pas de problème, Theze : c vrai que j'ai pas été bien précise et pourtant, vous avez bien compris le problème. Merci encore !