étendre la sélection autour de la cellule active

porcinet82

XLDnaute Barbatruc

• 30 Mars 2005

• #2

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+

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 30 Mars 2005

• #3

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 30 Mars 2005

• #4

Bonjour Daniel, Porcinet, le forum



Ta plage est-elle fixe ?

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 30 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 30 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 30 Mars 2005

• #7

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 30 Mars 2005

• #8

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

 

Vote positif 0 Vote négatif