Déplacement horizontal sur les cellules non protégées

escouger

XLDnaute Occasionnel
Bonjour,
Dans une macro, et à l'issue de la saisie d'une cellule je souhaite me positionner automatiquement sur la prochaine cellule non protégée de la même ligne.
Je suis dans une macro et je connais donc la cellule sur laquelle je suis positionné. J'avais espéré qu'en faisant +1 sur la colonne çà marcherait . (exemple si je suis en A10, je me positionne en C10 si B10 est protégée).
Hélas le positionnement se fait sur B10 malgré qu'elle soit protégée.
Ma question est la suivante : Comment identifier dans la macro, la prochaine cellule non protégée de la ligne courante ?
Merci d'avance de votre aide.
ESCOUGER
 

Jacky67

XLDnaute Barbatruc
Ma question est la suivante : Comment identifier dans la macro, la prochaine cellule non protégée de la ligne courante ?
ESCOUGER
Bonjour,
Ceci sélectionne la prochaine cellule non verrouillée à droite de la cellule active sur la même ligne
Code:
Sub prochaine()
Dim c As Range
For Each c In Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count))
If Not c.Locked Then c.Select: Exit For
Next
End Sub
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 920
Membres
101 840
dernier inscrit
SamynoT