Bonjour
deja , je le dis tout de suite, c est un fichier partagé , donc pas de reponse du genre , deprotege la cellule, reprotege , patati patata
En gros, qd une cellule E1 est remplie, je veux que cela empeche la modification des cellules F1-G1-H1
et cela jusqu a la ligne 10
comment faire en VBA , car j ai essayé avec une validation ca marche uniquement si la cellule F/G/H est vide , je ne peux rien ecrire mais si la cellule est remplie ,je peux faire la modif .
En VBA , je ne vois pas comment faire, a part empecher ptet de cliquer dessus ou de dire que la cell est verrouillé des que E1 est remplie , mais je sais pas comment faire , merci
voici mon code , mais ca marche pas a cause que je dois proteger le fichier ( pour la verrouille marche ) et partagé et la bang marche plus
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E11:E100")) Is Nothing Then
For i = 7 To 29
If Target <> "" Then Cells(Target.Row, i).Select = False
Next i
End If
End Sub
deja , je le dis tout de suite, c est un fichier partagé , donc pas de reponse du genre , deprotege la cellule, reprotege , patati patata
En gros, qd une cellule E1 est remplie, je veux que cela empeche la modification des cellules F1-G1-H1
et cela jusqu a la ligne 10
comment faire en VBA , car j ai essayé avec une validation ca marche uniquement si la cellule F/G/H est vide , je ne peux rien ecrire mais si la cellule est remplie ,je peux faire la modif .
En VBA , je ne vois pas comment faire, a part empecher ptet de cliquer dessus ou de dire que la cell est verrouillé des que E1 est remplie , mais je sais pas comment faire , merci
voici mon code , mais ca marche pas a cause que je dois proteger le fichier ( pour la verrouille marche ) et partagé et la bang marche plus
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E11:E100")) Is Nothing Then
For i = 7 To 29
If Target <> "" Then Cells(Target.Row, i).Select = False
Next i
End If
End Sub
Dernière édition: