Discussion :

[clarinnette]

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

[pijaku]

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

Code :

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

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...

[Theze]

Bonsoir,

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

Code :

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

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é.

[Theze]

Re,

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

Code :

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

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é.

[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 !!

[Theze]

Bonjour Clarinnette,

Tu dis :

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é

[clarinnette]

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 !