activation des cellules à partir des conditions

[rakoto be]

bonjour à tous,

j'aimerai bien connaitre la formule qui me permet de faire une saisie dans les cellules d'une colonne suivant des conditions d'une autre colonne et de m’interdire à saisir dans le cas contraire.

je vous envois un fichier pour donner plus d'explication à ma demande.

je vous remercie d'avance.

be.

 

[Pierrot93]

Re : activation des cellules à partir des conditions

Bonjour,

ton fichier en retour, une solution vba, les cellules de la colonne A doivent être dévérrouillées, la feuille doit être protégée et ce par le code, dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Feuil2.Protect "toto", userinterfaceonly:=True
End Sub

dans le module de la feuille :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Target.Offset(0, 1).Locked = Target = "A" Or Target = "C" Or Target = "F"
End Sub

bonne journée
@+

 

[juju_69]

Re : activation des cellules à partir des conditions

Bonjour,

Pour ton besoin j'utiliserai les données validation en effectuant une restriction sur la saisie en fonction de la cellule a coté.

Ton exemple complété et joint, @ +

Juju

 

[juju_69]

Re : activation des cellules à partir des conditions

Salut Pierrot, désolé pour le téléscopage

 

[Pierrot93]

Re : activation des cellules à partir des conditions

Re, bonjour juju

pas de souci, au contraire, bien vu la validation de données....

 

[rakoto be]

Re : activation des cellules à partir des conditions

Bonjour,

ton fichier en retour, une solution vba, les cellules de la colonne A doivent être dévérrouillées, la feuille doit être protégée et ce par le code, dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Feuil2.Protect "toto", userinterfaceonly:=True
End Sub

dans le module de la feuille :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Target.Offset(0, 1).Locked = Target = "A" Or Target = "C" Or Target = "F"
End Sub

bonne journée
@+

merci beaucoup pour le code mon ami pierrot.

 

[rakoto be]

Re : activation des cellules à partir des conditions

Bonjour Juju,

c'est excellent, je vous remercie. @+

Be.

 

[rakoto be]

Re : activation des cellules à partir des conditions

rebonjour Pierrot,

juste pour reconfirmer mon remerciement pour le code car je ne sais pas encore le fonctionnement de notre forum.

merci beaucoup.

Be.