Sélection Range en VBA

Pierrot93

XLDnaute Barbatruc

• 10 Novembre 2011

• #2

Re : Sélection Range en VBA

Bonjour,

bah... comme ceci...

Code:

Range("M2:M6").Select

bien que les "select" en vba soient rarement nécessaires...

bon après midi
@+

 

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 10 Novembre 2011

• #3

Re : Sélection Range en VBA

OK..j'ai pas été très claire !
Effectivement c'est bien Range ("M2:M6").Select que je veux.
Par contre, j'aimerais pouvoir récupérer le début et la fin de ma plage automatiquement à partir de Range("M2,M3,M4,M5,M6").Select car ma sélection peut changée (ex : Range("M28,M29,M30,M31,M32").Select ce qui donnerait Range ("M28:M32").Select)

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 10 Novembre 2011

• #4

Re : Sélection Range en VBA

re-bonjour famu, salut Pierrot 🙂

Y aurait-il un lien avec cette autre discussion? Pourquoi ne pas tenter d'être plus précis et de répondre à certaines questions?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Novembre 2011

• #5

Re : Sélection Range en VBA

Bonjour famu, Pierrot, Modeste 🙂

Peut-être ceci :

Code:

Sub a()
Range("M2,M3,M4,M5,M6").Select 'selection multiple
Range(Replace(Selection.Address, ",", ":")).Select 'une seule zone sélectionnée
End Sub

A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 10 Novembre 2011

• #6

Re : Sélection Range en VBA

Bonjour famu

Salut Pierrot

Pas vraiment compris le but de la manoeuvre , mais teste etudie la macro suivante :

Code:

Sub test()
Set plage = Range("M28,M29,M30,M31,M32")
x = plage.Row
y = plage.Count
Set plageb = Range(Cells(x, plage.Column), Cells(x + y - 1, plage.Column))
MsgBox (plageb.Address(0, 0))
plageb.Select
End Sub

Edit: Salut ami job 🙂 🙂

 

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 10 Novembre 2011

• #7

Re : Sélection Range en VBA

Bonjour à tous,
Oui Modeste, il y avait bien un rapport mais j'avais avancé dans mes recherches et, de ce fait, la question n'était plus la même.
Voici le code "terminé" que je vais pouvoir poursuivre dans une autre macro :

Sub CellulesValeurDeterminee3()

'Séléctionner les UGP1

Range("M2:M200").Select
LaValeur = "UGP1"

For Each cell In Selection
If cell.Value = LaValeur Then plg = plg & cell.Address() & ","
Next cell
If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).Select 'sélection multiple


Range(Replace(Selection.Address, ",", ":")).Select 'une seule zone sélectionnée

End Sub

Merci à vous tous et bonne fin de semaine,
Famu

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Novembre 2011

• #8

Re : Sélection Range en VBA

Re,

J'ai donné une autre solution (avec la fonction Union) au post #4 du fil indiqué par Modeste :

https://www.excel-downloads.com/threads/selection-plage-cellules-sous-condition.172842/

Merci Modeste 🙂

A+

 

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 10 Novembre 2011

• #9

Re : Sélection Range en VBA

Aaaaahhhhh !!!! Mon code
If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).Select
bloque au-delà de 44 valeurs à sélection multiple !!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Novembre 2011

• #10

Re : Sélection Range en VBA

Re,

famu à dit:

Aaaaahhhhh !!!! Mon code
If Len(plg) > 0 Then Range(Left(plg, Len(plg) - 1)).Select
bloque au-delà de 44 valeurs à sélection multiple !!!

Cliquez pour agrandir...

Tout à fait normal, c'est pourquoi il ne faut pas concaténer des adresses de cellules mais unir des plages.

Vous auriez pu lire mon post #8 et aller voir l'autre fil 🙄

A+

 

Vote positif 0 Vote négatif