Déplacement auto du curseur à la ligne suivante

bonjour,

J'ai trouvé dans votre forum une réponse à ma recherche mais il me manque un complément de code pour y répondre totalement.

Mita a donné le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 8 Then Target.Offset(1, -6).Select

End Sub

1/ je souhaiterais que ce code s'applique :

après avoir validé par "entrée" dans la colonne 8, également sur la colonne 7.

Il s'agit d'une application ou je saisi en colonne 7 des débits et en colonne 8 des crédits, toutes les fois que les saisies auront été faites

mon curseur devra se positionner sur la ligne suivante (1, -6)

merci pour votre aide

mibri

Bonjour

Dans la ligne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

supprime Selection

Private Sub Worksheet_Change(ByVal Target As Range)

Cordialement

bonjour Amadeous et merci de ta réponse rapide mais je ne comprends pas, je suis navré mais que faut il modifier à mon code afin qu'il réponde à ma recherche

cordialement

Bonjour

Le Code initial

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 8 Then Target.Offset(1, -6).Select

End Sub

Le nouveau code

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 8 Then Target.Offset(1, -6).Select

End Sub

Cordialement

merci, c'est clair pour la colonne 8, mais comme je te le dis précédemment, je voudrais la même fonction pour la colonne 7

cordialement

Bonjour

Et bien, tu remplaces 8 par 7

bonjour

j'ai essayé de créer un nouveau code (car il s'agit d'une autre fonction..??) en changeant le n° de la code ainsi que le retrait, mais ce nouveau code est refusé en fichier joint un fichier du message

cordialement

mibri

Bonjour,

je pense avoir trouvé en fait il ne faut plus inscrire "Private Sub Worksheet_Change(ByVal Target As Range)"

confirme moi STP si cela suffit

cordialement et remerciement pour ton aide

mibri

Bonjour

C'est normal

Tu ne peux mettre qu'une seule Private sub de ce type par feuille.

La solution est de compliler en mettant les é lignes If à la suite sur le même Code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then Target.Offset(1, -9).Select
If Target.Column = 10 Then Target.Offset(1, -8).Select
End Sub

Cordialement

bonjour

Il me semblait avoir résolu totalement ma recherche mais j'ai encore un petit empêchement car cette feuille est déjà munie d'un code, je te transmets un fichier image afin que tu m’apportes tes conseils, merci

cordialement

mibri

Bonjour

Tu mets tes 2 lignes en début pour avoir

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then Target.Offset(1, -9).Select
If Target.Column = 10 Then Target.Offset(1, -8).Select
If Target.Column = 2 Then
Select Case Target.Value
Case 1: Target.Interior.ColorIndex = 4
Case 2: Target.Interior.ColorIndex = 40

etc....

Cordialement

merci pour ta réponse, extra, ça marche

cordialement

mibri

Bonjour Amadeous et merci beaucoup pour ta réponse, tout ça fonctionne

cordialement

mibri