XL 2016 curseur sur prochaine cellule vide à la saisie

[abouttheweather]

Bonjour,

Je joinds un fichier.

Dans une plage de cellule (entourée de la bordure noire) lorsque je remplis la valeur d'une des cases vides, en l'occurence pour l'exemple la case rouge, le curseur devrait se positionner automatiquement dans la première case vide suite à un scanner de la plage de haut en bas (depuis le coin en haut à gauche) puis de gauche à droite (de colonne à colonne), en l'occurence la case verte dans l'exemple.

Auriez-vous une macro à la racine de la feuille, accomplissant celà ?

Merci beaucoup

 

[Lone-wolf]

Bonsoir abouttheweather

Code à voir dans le module standard, sinon

Private Sub Worksheet_Change(ByVal Target As Range)
Set cel = [C3:E8].Find("", , , xlByColumns, xlNext)
cel.Activate
End Sub

 

[abouttheweather]

Merci c'est top !

 

[abouttheweather]

Bug spotted : si la plage est remplie et qu'il ne reste que la dernière cellule à renseigner, la macro renvoit une erreur. Idéalement il faudrait une absence de bug et que le curseur reste sur cette dernière case.

 

[Si...]

Salut

Lone-wolf : « sale temps pour les mouches…»

Si, en plus, on veut se restreindre à un changement dans la plage (encadrée)

Private Sub Worksheet_Change(ByVal R As Range)
    If Intersect(R, [C3:E8]) Is Nothing Then Exit Sub
   Set C = [C3:E8].Find("", , , 2, 2)
   If C Is Nothing Then R.Select Else C.Select
End Sub