Astuce à la souris : deselection multiple...

bonjour MV
essaie de coller cela dans un module et tu pourras ainsi sélectionner et
désélectionner à la souris tout ce qu'il te plaira...si ensuite tu ne veux
pas le coller, tu supprimes la fin de la macro dont tu te doutes qu'elle
n'est pas de moi mais qu'est-ce qu'elle peut me servir, palsambleu!
jps

Sub SelectionZonesDiscontinues()
Dim MaPlage As Range, mazone As Range
Dim i As Integer
Dim X
Dim derligne
With Application
.DisplayAlerts = False
Set MaPlage = .InputBox(prompt:="Sélectionnez les cellules
et/ou les plages discontinues tout en appuyant sur la touche CTRL",
Title:="Sélection Zones Discontinues", Left:="200", Top:="-90", Type:=8)
.ScreenUpdating = False
Worksheets.Add
End With
With ActiveSheet
For Each mazone In MaPlage.Areas
mazone.Copy
Cells(Range("A1").SpecialCells(xlLastCell).Row + X, 1).Select
X = 1
.Paste
Next
derligne = ActiveSheet.Range("A65536").End(xlUp).Row
Range("A1:C" & derligne).Select
Selection.Copy
End With
End Sub
"MV" <mv@yahoo.fr> a écrit dans le message de
news:cgktbr$d6r$1@news-reader1.wanadoo.fr...

Bonjour,

Savez vous s'il est possible lors d'une sélection disjointe (avec la
touche

Ctrl quoi) de désélectionner une cellule ou une plage ?
Parfois ca serait pratique quand la sélection est vaste et fastidieuse...

MV

Salut,

Pour désélectionner une cellule, tu places ton curseur sur celle-ci et tu
invoques la macro suivante:

Sub Deselectionne()
Dim c As Range, ret As Range, aa As String

If Selection.Cells.Count = 1 Then Exit Sub
aa = ActiveCell.Address
For Each c In Selection
If c.Address <> aa Then
If ret Is Nothing Then
Set ret = c
Else
Set ret = Union(ret, c)
End If
End If
Next c
ret.Select
Set ret = Nothing
End Sub

Salutations,

Daniel M.

"MV" <mv@yahoo.fr> wrote in message news:cgktbr$d6r$1@news-reader1.wanadoo.fr...

Bonjour,

Savez vous s'il est possible lors d'une sélection disjointe (avec la touche
Ctrl quoi) de désélectionner une cellule ou une plage ?
Parfois ca serait pratique quand la sélection est vaste et fastidieuse...

MV