activation des cellules à partir des conditions

Pierrot93

XLDnaute Barbatruc

• 22 Août 2013

• #2

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" :

Code:

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

dans le module de la feuille :

Code:

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
@+

 

Pièces jointes

• classeur1.xls

  34 KB · Affichages: 39
• classeur1.xls

  34 KB · Affichages: 33
• classeur1.xls

  34 KB · Affichages: 41

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 22 Août 2013

• #3

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

 

Pièces jointes

• EXEMPLE.xls

  29 KB · Affichages: 39
• EXEMPLE.xls

  29 KB · Affichages: 43
• EXEMPLE.xls

  29 KB · Affichages: 42

Vote positif 0 Vote négatif

J

juju_69

XLDnaute Occasionnel

• 22 Août 2013

• #4

Re : activation des cellules à partir des conditions

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Août 2013

• #5

Re : activation des cellules à partir des conditions

Re, bonjour juju🙂

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

 

Vote positif 0 Vote négatif

R

rakoto be

Guest

• 22 Août 2013

• #6

Re : activation des cellules à partir des conditions

Pierrot93 à dit:

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" :

Code:

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

dans le module de la feuille :

Code:

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
@+

Cliquez pour agrandir...

merci beaucoup pour le code mon ami pierrot.

 

Vote positif 0 Vote négatif

R

rakoto be

Guest

• 22 Août 2013

• #7

Re : activation des cellules à partir des conditions

Bonjour Juju,

c'est excellent, je vous remercie. @+

Be.🙂

 

Vote positif 0 Vote négatif

R

rakoto be

Guest

• 22 Août 2013

• #8

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.

 

Vote positif 0 Vote négatif