Interdire la modification d'une plage de cellules si une autre est non vide

Bonjour à tous,

Je galère depuis plusieurs heures pour interdire la modification des cellule A4 à C4 si la cellule F4 est non vide

Et pareil jusque la ligne 33

J'ai fais ce code mais cela ne fonctionne pas... Et j'ai d'autres plages de cellules à proteger de la même manière alors pas sorti ^^

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 4 To 33
    If Cells(i, 6) = "" Then
        Cells(i, 1).Locked = False
        Cells(i, 2).Locked = False
        Cells(i, 3).Locked = False
    ElseIf Cells(i, 6) <> "" Then
        Cells(i, 1).Locked = True
        Cells(i, 2).Locked = True
        Cells(i, 3).Locked = True
    End If
End Sub

Est-ce que quelqu'un peut m'aider ?

N.B : Si une solution est trouvée, j'aimerais faire pareil pour les cellules I4 à I17 si les cellules J4 à J17 sont non vides

Les colonnes F et J servent de validation pour les congés. Une fois remplies, les cellules en bleue ne doivent plus être modifiées sans validation

A bientot !

Bonjour

Un fichier c'est mieux qu'une photo...

A+ François

Effectivement :)

Bonjour,

Sans fichier 0 garantie mais essai ça :

Tu dois d'abord utiliser une protection de feuille si tu veux que ça fonctionne, l'intégrer dans ta macro et ne pas oublier le next.

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect
Dim i As Integer
For i = 4 To 33
    If Cells(i, 6) = "" Then
        Cells(i, 1).Locked = False
        Cells(i, 2).Locked = False
        Cells(i, 3).Locked = False
    ElseIf Cells(i, 6) <> "" Then
        Cells(i, 1).Locked = True
        Cells(i, 2).Locked = True
        Cells(i, 3).Locked = True
    End If
Next i
    ActiveSheet.Protect
End Sub

Ca doit le faire, a toi de voir pour les autres colonnes.

A+

Edit: nos messages se sont croisés

Deverouille les colonnes commande comme la F de base et ça fonctionnera.

Ca fonctionne niquel, je te remercie beaucoup pour ton aide.

A bientot :)