Selection de cellules

-----Message d'origine-----
Bonjours à tous

Je souhaite créer un macro qui me permette de
selectionner les cellules

situées dans la première colonne à partir d'une
séléection

éventuellement multiple.
exemple: étant donnée la sélection C3:E8;C10:F12;E15
la macro me retournerais la sélection A3:A8;A10:A12;A15

Merci si qq1 peut m'aider

michel
.

Bonjour

Il y a sans doute plus simple mais ce code fonctionne :

Sub test()
Range("C3:E8,C10:F12,E15").Select
Dim LaSelection As String
For Each cel In Selection
If LaSelection = "" Then
LaSelection = "A" & cel.Row 'Pour éviter la ","
Else
LaSelection = LaSelection & ",A" & cel.Row
End If
Next
Range(LaSelection).Select
End Sub

Bon courage

Eric

Bonjour,

Une approche parmi d'autres, à partir d'une "sélection éventuellement multiple",
préalablement effectuée :

Sub test()
Dim Adr$, Adr2$
Adr = Selection.Address(0, 0)
Adr2 = Adr
For i = 1 To Len(Adr)
If Mid(Adr, i, 1) Like "[A-Z]" Then Mid(Adr2, i, 1) = "A"
Next
'pour voir la sélection initiale + le résultat
Range(Adr & "," & Adr2).Select
'résultat seul
Range(Adr2).Select
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Bonjours à tous

Je souhaite créer un macro qui me permette de selectionner les cellules
situées dans la première colonne à partir d'une séléection
éventuellement multiple.
exemple: étant donnée la sélection C3:E8;C10:F12;E15
la macro me retournerais la sélection A3:A8;A10:A12;A15

Merci si qq1 peut m'aider

michel

Alternative :
Sub zz_Select_Decal()
With Selection
For i = 1 To .Areas.Count
x = .Areas(i).Address
y = .Areas(i).Row
z = y + Evaluate("rows(" & x & ")") - 1
ad = ad & "A" & y & ":" & "A" & z & ","
Next
End With
Range(Left(ad, Len(ad) - 1)).Select
End Sub

AV

"Michel Folschweiller" <folschweiller.michel@wanadoo.fr> a écrit dans le message
news: folschweiller.michel-BA96B7.11422629072003@news.wanadoo.fr...

Bonjours à tous

Je souhaite créer un macro qui me permette de selectionner les cellules
situées dans la première colonne à partir d'une séléection
éventuellement multiple.
exemple: étant donnée la sélection C3:E8;C10:F12;E15
la macro me retournerais la sélection A3:A8;A10:A12;A15

Merci si qq1 peut m'aider

michel