les range

[cvs]

bonjour

que dois je ecrire pour selectionner le range a droite ou a gauche de celui selectionné sans le nommer cad quelle que soit la cellule selectionné 'va un range a droite' par ex

je sais pas si je me suis bien fait comprendre on verra bien


merci

 

[mutzik]

Bonjour cvs

par ex :
tu es en B6
pour selectionner C6, il faut (on peut) utiliser la syntaxe suivante :
cells(avticecell.row,activecell.column + 1)

 

[_Thierry]

Bonjour Mutzik, CVS, le Forum

Ne pas oublier, mon cher Mutzik, la propriété OffSet ultra ultile pour les délacements dans les objets 'Range'.

Sub OffsetMethod()

If Not ActiveCell.Column = 256 Then
    MsgBox 'Cellule de Droite ' & ActiveCell.Offset(0, 1).Address(0, 0)
End If

If Not ActiveCell.Column = 1 Then
    MsgBox 'Cellule de Gauche ' & ActiveCell.Offset(0, -1).Address(0, 0)
End If

If Not ActiveCell.Row = 1 Then
    MsgBox 'Cellule du Dessus ' & ActiveCell.Offset(-1, 0).Address(0, 0)
End If

If Not ActiveCell.Row = 65536 Then
    MsgBox 'Cellule du Dessous ' & ActiveCell.Offset(1, 0).Address(0, 0)
End If

End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

 

[AV]

Salut,


'Une colonne à droite (même ligne)
ActiveCell.Offset(0, 1).Select
ActiveCell(1, 2).Select

'Une colonne à gauche (même ligne)
ActiveCell.Offset(0, -1).Select
ActiveCell(1, 0).Select

AV [aaa]

 

[_Thierry]

Bonsoir Alain

Limite de la Collision en Offset lol

[ol]@+Thierry[/ol]

 

[AV]

Ave Thierry,

''...Limite de la Collision en Offset..''

Bientôt (XL12) on va pouvoir ''décaler dur'' en colonnes et lignes... ;-)

AV [aaa]

 

[cvs]

merci tous le monde je vais tester tout ca

une question bébête supplémentaire

en admettant que je cherche la derniere cellule vide de la colonne A
que je mette la valeur de mon textbox1 dans cette cellule puis que je veuille mettre la valeur de mon textbox2 dans la cellule a droite sur cette même ligne est il necessaire d'avoir la cellule de la colonne A active ? si non comment aller a droite sans cellule active ? la cellule est juste determiné par le recherche


je suis deja en train d'essayer ca dans un button_click et ca ne marche pas pouvez vous me dire pourquoi

Range('A65536').End(xlUp).Row = ComboBox1.Value

ca non plus ca veut pas
Range('A65536').End(xlUp).Row.select = ComboBox1.Value

bouhouhou je rame

en fait ca devrait me donner un truc dans le style

Range('A65536').End(xlUp).Row = ComboBox1.Value
'selection cellule suivante remplissage
ActiveCell.Offset(0, 1).Select
ActiveCell(1, 2).Select = textbox1
'selection cellule suivante remplissage
ActiveCell.Offset(0, 1).Select
ActiveCell(1, 2).Select =textbox2
'selection cellule suivante remplissage
ActiveCell.Offset(0, 1).Select
ActiveCell(1, 2).Select =textbox3

etc
si l'on pouvait eviter le select ce serait nikel
mais bon je crois pas que comme ca ca va fonctionner

merci

Message édité par: cvs, à: 24/04/2006 10:24

Message édité par: cvs, à: 24/04/2006 10:25