XL pour MAC Cellules sélectionnées automatiquement après avoir choisi un élément dans une liste de choix

[Valter]

Bonjour le forum,

Comme dit dans le titre, je me demande s' il est possible de sélectionner automatiquement la cellule suivante après avoir choisi un élément dans une liste de choix, ceci pour faciliter las saisie .... je joins un petit fichier d'exemple

Merci ....

 

[sylvanu]

Bonsoir Valter,
Avec une petite procédure VBA :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    ValA = Target.Address
    If ValA = "$E$6" Then Range("$G$6").Select
    If ValA = "$G$6" Then Range("$I$6").Select
End Sub

Par contre il vous faut autoriser les macros.

 

[job75]

Bonsoir Valter, sylvanu,

A placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E6,G6]) Is Nothing Or Target(1) = "" Then Exit Sub
On Error Resume Next
[E6,G6,I6].Find("", [I6], xlValues).Select
End Sub

A+

 

[Valter]

Merci job75 et sylvanou, cela fonctionne parfaitement, mais une chose que je n'ai pas pensé de dire de suite est que il faut que cela fonctionne sur une centaine de lignes, en faisant recopier vers le bas, cela ne fonctionne plus... comment modifier le code pour que cela fonctionne sur une centaine de lignes ?

 

[sylvanu]

Bonsoir Valter, Job,
La ça marche sur toutes cellules des colonnes E G I

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 5 Then Cells(Target.Row, 2 + Target.Column).Select
    If Target.Column = 7 Then Cells(Target.Row, 2 + Target.Column).Select
End Sub

 

[Valter]

Génial sylvanou, c'est exactement ce que il me faut. Merci beaucoup

 

[job75]

Même méthode qu'au post #3, fichier (2) et la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target(1), [E6:E1000,G6:G1000]) Is Nothing Or Target(1) = "" Then Exit Sub
On Error Resume Next
Intersect(Target(1).EntireRow, [E6:E1000,G6:G1000,I6:I1000]).Find("", Intersect(Target(1).EntireRow, [I6:I1000]), xlValues).Select
End Sub

Adaptez la dernière ligne 1000.