activé la cellule du bas

[astralon]

Bonjour a tous

je recherche en VBA la commande qui le permet de selectionner la cellule qui se trouve juste en bas de la mienne ex si je suis en A1, je vais en A2

j'ai essayer ceci, mais VBA est pas flexible ^^

ActiveCell.Down.Activate

alors, si vous avez la bonne commande merci pour l'info

 

[ninbihan]

Re : activé la cellule du bas

Bonjour Astralon,


Tu peux essayer

activecell.offset(1,0).select

Bonne journée,

Ninbihan

 

[astralon]

Re : activé la cellule du bas

Bonjour ninbihan,

ça fonctionne bien merci, mais est-ce que c'est ce qu'il y a de mieux, parce que les selects dans une prog, il parait que c'est pas top

 

[ninbihan]

Re : activé la cellule du bas

Re,

Ben çà dépend ce que tu veux faire...
Ici tu demandes:

je recherche en VBA la commande qui le permet de selectionner la cellule qui se trouve juste en bas de la mienne ex si je suis en A1, je vais en A2

Je t'indique donc comment sélectionner

Dis nous plus,

@+

Ninbihan

 

[astralon]

Re : activé la cellule du bas

re

ok, c'est parfait, j'ai même fini mon application (j'en suis fier)

 

[astralon]

Re : activé la cellule du bas

Bonjour,

dans le même genre de demande, je voudrais que mon curseur se déplace de 12 cases vers la droite
ex : si je suis en A1 => A12 => A24.....

 

[CelluleVide]

Re : activé la cellule du bas

Bonjour Astralon, le forum,

Pour décaler ta selection vers la droite:

Activecell.Offset(0,12).Select

 

[Cousinhub]

Re : activé la cellule du bas

Bonjour,
tu aurais dit A1 -> A12 -> A23 ou A1 - > A13 -> A25, tu aurais pu faire :

ActiveCell.Offset(0, 11).Select   ou
ActiveCell.Offset(0, 12).Select

Offset(nb_de_lignes, nb_de_colonnes)

 

[Dan]

Re : activé la cellule du bas

Bonjour,

Vers la droite ??? Dans ton exemple c'est vers le bas là (A1;A12;A24
essaye ce code :
1. Vers le bas

Sub test()
'Macro par Dan pour XLD - astralon le 05/03/08
Dim a As Byte
If ActiveCell.Row = 1 Then
a = 11
Else: a = 12
End If
ActiveCell.Offset(a, 0).Select
End Sub

2. vers la droite

Sub test()
'Macro par Dan pour XLD - astralon le 05/03/08
Dim a As Byte
If ActiveCell.Row = 1 Then
a = 11
Else: a = 12
End If
ActiveCell.Offset(0, a).Select
End Sub

Espérant t'avoir aidé

Amicalement

Dan

 

[astralon]

Re : activé la cellule du bas

Bonjour a tous

merci pour les infos et Surtout Merci a DAN qui a vu que .... j'avais fais une betise

Je teste le tout et encore merci beaucoup