étendre la sélection autour de la cellule active

[daniel]

Bonjour le forum !

Une petite question... En VBA, comment faire pour sélectionner, à partir de la cellule active une plage de cellules environnantes ?
Par exemple, je suis en B25 et je voudrais sélectionner la plage de cellules 'A2525').

Merci de votre aide...

Bonne journée !

Daniel

 

[porcinet82]

salut

en fait ca depend, si t cellules sont des cellules vides, pleines. comment est ce que définit ta plage?
sinon un code pour sélectionner une plage de cellule : Selection.Range('A2525').Select

a+

 

[daniel]

Bonjour !

Mes cellules sont toutes pleines. Mais la sélection passe par un code en fonction de la cellule active. Je ne peux donc pas faire référence directement aux numéros de cellule...

Daniel

 

[dg62]

Bonjour Daniel, Porcinet, le forum



Ta plage est-elle fixe ?

 

[daniel]

Hello,

en fait, j'ai un code qui cherche une donnée dans une feuille (consituée de 4 colonnes, toutes pleines).

La donnée cherchée est dans la colonne B. Je voudrais qu'une fois trouvée, les cellules adjacentes (à savoir la A, C et D - de la ligne où se trouve la donnée) soient sélectionnée.

Est-ce possible ?...

Daniel

 

[Bernard_XLD]

Bonjour Daniel, Porcinet82, Dg62

voici un code faisant cela gérant également une cellule active en colonne 1 ou 256.

Sub essai()
Dim Compteur As Integer, Compteur2 As Integer
Compteur = -1
Compteur2 = 1
Select Case ActiveCell.Column
Case Is = 1
Compteur = 0
Case Is = 256
Compteur2 = 0
Case Else
End Select
Range(ActiveCell.Offset(0, Compteur).Address & ':' & ActiveCell.Offset(0, Compteur2).Address).Select
End Sub

Cordialement, A+

PS: les sélections sont la plupart du temps inutiles et couteuses en temps.

Message édité par: yeahou, à: 30/03/2005 09:45

 

[daniel]

Ca marche parfaitement !!! Un grand merci, vraiment, ça va me faire gagner un temps fou dans mon travail...

Heureusement que vous êtes là !

Bonne journée

Daniel

 

[dg62]

RE


un peu plus court

Sub selection()
Dim CelDepart As Integer
CelDepart = ActiveCell.Offset(0, -1).Row
Range('A' & CelDepart, 'd' & CelDepart).Select

End Sub

Message édité par: DG62, à: 30/03/2005 10:01