Discussion :

[oligig]

Bonjour,

je voudrais savoir comment il est possible de déplacer le positionnement courant d'une cellule vers la droite.

Merci

[aalex_38]

Bonjour,

Plusieurs solutions dépendent de ce que tu veux faire.

Tu peux regarder Cells Range et offset dans l'aide VBA

déplacer le positionnement courant d'une cellule

Que veux tu dire, je ne comprend pas très bien ?

[Gorfael]

Salut oligig et le forum
Bien que ça n'ait pas beaucoup d'utilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

selection.offset(0,1).select

A+

[oligig]

en fait je voudrais que le curseur, dans l'hyptohèse où il soit sur "A1" soit déplacé en "B1"

[Krovax]

Regarde cette discutions
Sinon pour ton exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Not IsNull(Intersect(Target, Range("A1"))) Then
    Range("B1").Select
    'ou
    selection.offset(0,1).select
End If

Edit : je viens de penser que cela seffectuera dès que A1 appartient a la selection. Je vais essayer de régler le problème

Edit 2 : voila je n'ai pas trouvé plus élégant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_selectionChange(ByVal Target As Range)
 
If Not IsNull(Intersect(Target, Range("A1"))) and Target.Rows.Count = 1 And Target.Columns.Count = 1Then
    Range("B1").Select
End If
 
endsub

[oligig]

merci.

J'ai trouvé un exemple qui me convient bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Pour écrire dans la cellule A2 (ligne 2, colonne 1) :
 R = 2
 C = 1
 Cells(R,C)="bonjour"

Cela me permet d'utiliser un compteur pour mes colonnes

[Gorfael]

Salut oligig et le forum

J'ai trouvé un exemple qui me convient bien :

Ton exemple n'a rien à voir avec ta demande.
Explique ton but et on t'aidera à faire une macro pour le réaliser.
A+

[oligig]

Ton exemple n'a rien à voir avec ta demande.

Si, cela correspond à ce que je veux, pouvoir écrire dans une cellule, puis celles qui lui sont adjacentes. Mon exemple me permet de gérer ça avec une boucle, ce qui correspond d'ailleurs à mon code.