Activer une cellule vide

Bonjour à tous, voici mon problème

Voici mon code qui me permet de masquer les lignes renseignées

Range("B149", Range("B149").End(xlDown)).EntireRow.Select

Selection.EntireRow.Hidden = True

Après je voudrais activer la cellule vide dans la colonne B

Merci de votre aide

Bonjour,

Si j'ai bien compris

Sub test()
Dim DerCel As Range
    Set DerCel = Range("B149").End(xlDown)
    Range(Range("B149"), DerCel).EntireRow.EntireRow.Hidden = True
    DerCel.Offset(1, 0).Select
    Set DerCel = Nothing
End Sub

A+

Merci exactement cà.

Encre besoin d'aide

Maintenant que j'ai determiné la cellule vide de "B"

Je vourais qu'apres avoir renseigner "B" en validant (Enter) on passe à la cellule suivante dans la même ligne "C" puis "D" Etc.... Le but étant de ne pas donner le choix et d'obliger à remplir toutes le cellules determiner (sachant que je debloque tour à tour les cellule

ActiveSheet.Unprotect Password:="XXXX"

Re-Bonjour

Je pense avoir trouvé

Si quelqu'un à une solution plus simple, je suis preneur.

If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Count = 1 Then

With Target.Offset(0, 1).Select

Target.Locked = True

End With

End If

If Not Intersect(Target, Range("C:C")) Is Nothing And Target.Count = 1 Then

With Target.Offset(0, 1).Select

Target.Locked = True

End With

End If

If Not Intersect(Target, Range("D:D")) Is Nothing And Target.Count = 1 Then

With Target.Offset(0, 1).Select

Target.Locked = True

End With

End If

If Not Intersect(Target, Range("E:E")) Is Nothing And Target.Count = 1 Then

With Target.Offset(0, 1).Select

Target.Locked = True

End With

End If

Re,

Je crois comprendre que ton code est inclus dans une procédure évènementielle CHANGE.

As-tu essayé simplement avec

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:E")) Is Nothing And Target.Count = 1 Then
        Target.Offset(0, 1).Select
        Target.Locked = True
    End If
End Sub

A+

Merci, C'est tout bon

A+