XL 2016 curseur sur prochaine cellule vide à la saisie

abouttheweather · 1 Février 2017

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 · 2 Février 2017

Bonsoir abouttheweather

Code à voir dans le module standard, sinon

VB:

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

abouttheweather · 2 Février 2017

Merci c'est top !

abouttheweather · 2 Février 2017

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... · 2 Février 2017

Salut

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

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

VB:

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

XL 2016 curseur sur prochaine cellule vide à la saisie

abouttheweather

XLDnaute Nouveau

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

abouttheweather

XLDnaute Nouveau

abouttheweather

XLDnaute Nouveau

Pièces jointes

Si...

XLDnaute Barbatruc

Discussions similaires