Verrouillage de cellules sous condition

Bonjour le forum

J'ai une problématique qui à mon avis peut se résoudre par du VBA.

Ayant des connaissances trés limitées, je me permets de vous faire cette demande.

Je souhaiterais pouvoir verrouiller des cellules par ligne lorsque la colonne D est renseignée.

Je vous joins le fichier pour plus de clarté.

Merci pour votre aide

cordialement

Eric

Bonjour,

essaye ceci :

Option Explicit
Sub test()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(i, 1).Resize(, 4).Locked = Not IsEmpty(Cells(i, 4))
Next i
End Sub

bon après midi

@+

Bonjour le Forum

Bonjour Pierrot93

J'ai intégré la macro mais ca ne fonctionne pas, les cellules ne se verrouillent pas lorsque la colonne D est renseignée.

j'ai essayé de décrypter mais je n'y parviens pas

merci de votre retour

cordialement

Eric

Re,

bah... fonctionne chez moi... les cellules sont bien vérouillées.... mais pour que cela fonctionne il faut que la feuille soit protégée.... A noter le code serait mieux, placé dans un module standard....

Bonjour le Forum

Bonjour Pierrot

Sous vos recommandation j'ai mis la macro dans un module mais sans résultat.

je souhaiterais une macro événementielle qui puisse modifier les colonne A B C lorsque les cellules dans la colonne D est "oui"

Est ce possible?

je vous remercie

cordialement

Eric