Cellule bloquée

Bonjour
Avec VBA ?
Dans le code de ta feuille (clic droit sur l'onglet puis Visualiser le code)
:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If Target.Offset(0, -1).Value <> "Revenue" Then
MsgBox "La valeur en A1 en incorrecte", vbInformation, "Erreur de saisie"
Application.EnableEvents = False
Target.Clear
Application.EnableEvents = True
End If
End Sub

Cordialement
Pascal

"serge" <serge@discussions.microsoft.com> a écrit dans le message de
news:0CDF86A7-80FC-4E5E-8F58-CFB2DEA7DAC8@microsoft.com...

Bonjour,

j'ai une cellule A1 avec une liste déroulante
l'ai une cellule B1 ou la personne doit mettre un montant.
Mais j'aimerai que si le choix de A1 n'est pas "Revenue", la cellule B1
soit

bloquée et qu'aucune valeur ne puisse être saisie...

comment puis-je faire çà??

merci d'avance.

serge

Ok merci,
je pensais éviter le VBA. Car en VBA le problème ce complique un peu.
en fait ce la colonne avec l'info "revenue" est la colonne B
et la colonne ou le nombre doit être saisie est N
mais il ya des lignes avec une liste déroulante comme je te l'est expliqué
et d'autres qui sont des totaux donc en gros le message d'erreurs apparaitra
pour ses lignes à moins que l'on puisse éviter le message pour les champs
calculé ou avec du texte...(colonne N ou doit s'afficher le message)...

merci encore.

"papou" wrote:

Bonjour
Avec VBA ?
Dans le code de ta feuille (clic droit sur l'onglet puis Visualiser le code)
:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
If Target.Offset(0, -1).Value <> "Revenue" Then
MsgBox "La valeur en A1 en incorrecte", vbInformation, "Erreur de saisie"
Application.EnableEvents = False
Target.Clear
Application.EnableEvents = True
End If
End Sub

Cordialement
Pascal

"serge" <serge@discussions.microsoft.com> a écrit dans le message de
news:0CDF86A7-80FC-4E5E-8F58-CFB2DEA7DAC8@microsoft.com...

Bonjour,

j'ai une cellule A1 avec une liste déroulante
l'ai une cellule B1 ou la personne doit mettre un montant.
Mais j'aimerai que si le choix de A1 n'est pas "Revenue", la cellule B1
soit

bloquée et qu'aucune valeur ne puisse être saisie...

comment puis-je faire çà??

merci d'avance.

serge

Bonjour,

Code sur la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.AddressLocal = "$A$1" Then
If Target <> "Revenue" Then ActiveSheet.Protect
End If
End Sub

Camille

-----Message d'origine-----
Bonjour,

j'ai une cellule A1 avec une liste déroulante
l'ai une cellule B1 ou la personne doit mettre un montant.
Mais j'aimerai que si le choix de A1 n'est pas "Revenue",
la cellule B1 soit

bloquée et qu'aucune valeur ne puisse être saisie...

comment puis-je faire çà ??

merci d'avance.

serge
.

Merci, mais je ne pense que ca soit la solution car ton code protège la
feuille.. ce qui n'était pas mon but.
merci quand même.

quelqu'un aurait une solution?
j'ai apporté d'autres commentaires dans mon post juste au-dessus...
merci

"Ellimac" wrote:

Bonjour,

Code sur la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.AddressLocal = "$A$1" Then
If Target <> "Revenue" Then ActiveSheet.Protect
End If
End Sub

Camille

-----Message d'origine-----
Bonjour,

j'ai une cellule A1 avec une liste déroulante
l'ai une cellule B1 ou la personne doit mettre un montant.
Mais j'aimerai que si le choix de A1 n'est pas "Revenue",
la cellule B1 soit

bloquée et qu'aucune valeur ne puisse être saisie...

comment puis-je faire çà ??

merci d'avance.

serge
.

Bonjour,
Sans vba !
Tu mets comme maximum de validation:
=SI($A$1<>"Revenue";0;1000000000)
et en minimum, 0 (si je comprends bien !)
A+
V.

-----Message d'origine-----
Bonjour,

j'ai une cellule A1 avec une liste déroulante
l'ai une cellule B1 ou la personne doit mettre un montant.
Mais j'aimerai que si le choix de A1 n'est pas "Revenue",
la cellule B1 soit

bloquée et qu'aucune valeur ne puisse être saisie...

comment puis-je faire çà ??

merci d'avance.

serge
.