bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne que
sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne que
sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne que
sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabelle
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u3%23A$q8YGHA.3848@TK2MSFTNGP05.phx.gbl...
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabelle
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column - 2).Select
End Sub
merci
c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabelle
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u3%23A$q8YGHA.3848@TK2MSFTNGP05.phx.gbl...
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabelle
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
oui car celui-ci sur les autres colonne fonctionne d'ou mon probleme c'est
qu'il se déplace que sur la droite pour les autres colonnes alors que sur
les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
oui car celui-ci sur les autres colonne fonctionne d'ou mon probleme c'est
qu'il se déplace que sur la droite pour les autres colonnes alors que sur
les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eYLik88YGHA.428@TK2MSFTNGP02.phx.gbl...
c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabelle
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u3%23A$q8YGHA.3848@TK2MSFTNGP05.phx.gbl...
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabelle
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
oui car celui-ci sur les autres colonne fonctionne d'ou mon probleme c'est
qu'il se déplace que sur la droite pour les autres colonnes alors que sur
les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le déplacement
de
cellule en cellule se fasse automatiquement à chaque fois que la donnée
est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se déplacement
il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et a
se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée choie,
il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur plusieurs
colonnes. les colle concernées sont :c-d, h-i, m-n, r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelleoui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et
a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur
plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n, r-s,
w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelle
oui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eYLik88YGHA.428@TK2MSFTNGP02.phx.gbl...
c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabelle
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u3%23A$q8YGHA.3848@TK2MSFTNGP05.phx.gbl...
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabelle
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et
a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur
plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n, r-s,
w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelleoui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et
a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur
plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n, r-s,
w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
J'ai essayé mais non ça ne fonctionne pas, j'au juste le tableur ou en
colonne c1d1-h1i1.....j'ai donc 1 de marqué, plus bas la correspondance
des multiples mais rien ne se passe meme si je change le chiffre en
cellule y a rien. Peut-etre ai-je oublié une manip??
"isabelle" a écrit dans le message de news:je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelleoui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne
E, donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée
et a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette
en c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne
fonctionne que sur 2 colonnes je voudrais que se code fonctionne donc
sur plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n,
r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
J'ai essayé mais non ça ne fonctionne pas, j'au juste le tableur ou en
colonne c1d1-h1i1.....j'ai donc 1 de marqué, plus bas la correspondance
des multiples mais rien ne se passe meme si je change le chiffre en
cellule y a rien. Peut-etre ai-je oublié une manip??
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
ODMLiN9YGHA.3532@TK2MSFTNGP05.phx.gbl...
je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelle
oui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eYLik88YGHA.428@TK2MSFTNGP02.phx.gbl...
c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne
E, donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabelle
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u3%23A$q8YGHA.3848@TK2MSFTNGP05.phx.gbl...
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabelle
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée
et a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette
en c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne
fonctionne que sur 2 colonnes je voudrais que se code fonctionne donc
sur plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n,
r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
J'ai essayé mais non ça ne fonctionne pas, j'au juste le tableur ou en
colonne c1d1-h1i1.....j'ai donc 1 de marqué, plus bas la correspondance
des multiples mais rien ne se passe meme si je change le chiffre en
cellule y a rien. Peut-etre ai-je oublié une manip??
"isabelle" a écrit dans le message de news:je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelleoui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne
E, donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée
et a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette
en c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne
fonctionne que sur 2 colonnes je voudrais que se code fonctionne donc
sur plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n,
r-s, w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
J'ai essayé mais non ça ne fonctionne pas, j'au juste le tableur ou en
colonne c1d1-h1i1.....j'ai donc 1 de marqué, plus bas la correspondance des
multiples mais rien ne se passe meme si je change le chiffre en cellule y a
rien. Peut-etre ai-je oublié une manip??
"isabelle" a écrit dans le message de news:je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelleoui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et
a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur
plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n, r-s,
w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
J'ai essayé mais non ça ne fonctionne pas, j'au juste le tableur ou en
colonne c1d1-h1i1.....j'ai donc 1 de marqué, plus bas la correspondance des
multiples mais rien ne se passe meme si je change le chiffre en cellule y a
rien. Peut-etre ai-je oublié une manip??
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
ODMLiN9YGHA.3532@TK2MSFTNGP05.phx.gbl...
je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelle
oui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
eYLik88YGHA.428@TK2MSFTNGP02.phx.gbl...
c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabelle
j'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
u3%23A$q8YGHA.3848@TK2MSFTNGP05.phx.gbl...
bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabelle
bonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et
a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur
plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n, r-s,
w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
J'ai essayé mais non ça ne fonctionne pas, j'au juste le tableur ou en
colonne c1d1-h1i1.....j'ai donc 1 de marqué, plus bas la correspondance des
multiples mais rien ne se passe meme si je change le chiffre en cellule y a
rien. Peut-etre ai-je oublié une manip??
"isabelle" a écrit dans le message de news:je t'ai mis un fichier exemple ici : http://cjoint.com/?ettdug0f5P
chez moi cela foctionne bien, dit moi si c'est pareil pour toi ?
isabelleoui car celui-ci sur les autres colonne fonctionne d'ou mon probleme
c'est qu'il se déplace que sur la droite pour les autres colonnes alors
que sur les première c'est bien comme je le souhaitais.
Peut-etre faut-il rentrer tous les multiples 10, 15 20, 25....?
"isabelle" a écrit dans le message de news:c'est pour vérifier si le numéro de colonne est un multiple de 5
Target.Column Mod 5 = 0
c'est à dire : si le reste de la division Target.Column / 5 = 0
une fois la donnée en colonne "D" validé, le target est sur la colonne E,
donc un multiple de 5
c-d e = colonne 5
h-i j 10
m-n o 15
r-s t 20
w-x y 25
ab-ac ad 30
est ce que le déplacement vers la droite est bien activé ?
isabellej'ai essayé mais toujours pas. une autre idée?
Que veux dire column mod 5 = 0?
merci
"isabelle" a écrit dans le message de news:
u3%23A$bonjour tania,
essai comme ça,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column Mod 5 = 0 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
isabellebonjour,
j'ai un tableaux ou je rentre des heures. je souhaite que le
déplacement de
cellule en cellule se fasse automatiquement à chaque fois que la
donnée est
choisie.
J'ai réussi le déplacement vers la droite seulement apres se
déplacement il
faudrait qu'il se déplace d'une cellule à gauche; exemple:
c10 (1iere donnée choisie, déplacement en d10), en d10 autre donnée et
a se
moment la je voudrais qu'il se mette en c11. puis en c11 (donnée
choie, il
se déplace en d11)une fois la donnée de d11 choisi qu'il se remette en
c12
et ainsi de suite......
On m'a répondu avec un code qui fonctionne mais voila il ne fonctionne
que sur 2 colonnes je voudrais que se code fonctionne donc sur
plusieurs colonnes. les colle concernées sont :c-d, h-i, m-n, r-s,
w-x, ab-ac.
Que rajouter à se code?
Sub DeplacementVersLaDroite()
With Application.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight
End With
End Sub
et copie celle ci sur la page code de la feuille,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Then Cells(Target.Row + 1, Target.Column -
2).Select
End Sub
merci
