mise en forme conditionnelle selon une autre cellule

  • Initiateur de la discussion Initiateur de la discussion andersfriden
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

andersfriden

Guest
bonjour !

dans mon fichier joint, j'ai deux colonnes de saisie : Prix d'achat (PA) et Prix de vente (PV). Le tableau marche à l'envers : le PV conditionnera le PA, mais cela importe peu. PV reste toujours blanche, alors que PA est grisée s'il n'y a rien de saisi, et devient blanche si on en saisit un. A partir de là, j'aimerais deux choses :

1. je souhaiterais mettre une formule en PA pour que les cellules soient dégrisées si un PV est saisi.
2. la feuille va être verrouillée pour ne pas saisir de données dans les mauvaises colonnes. Seulement PV et PA resteront déverrouillés. Et là, j'aimerais faire en sorte que tout gardant en permanence PV déverrouillé, je voudrais, de la même manière que dans le 1., PA se déverrouille si un PV est saisi.

Merci d'avance !
 

Pièces jointes

Re : mise en forme conditionnelle selon une autre cellule

euh en fait, je souhaite que la colonne jaune reste jaune. quand je saisis des valeurs en PA et PV, les cellules à droite se dégrisent comme prévu, mais la colonne jaune est redevenue blanche. Qu'est-ce qu'il faut retirer dans le code pour que ça ne se produise pas ?
 
Re : mise en forme conditionnelle selon une autre cellule

bonsoir,
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column <> 1 Or Target.Row < 2 Then Exit Sub
ActiveSheet.Unprotect
If Target <> "" Then
Range("C" & Target.Row).Interior.ColorIndex = 0
Range("C" & Target.Row).Locked = False
Else
Range("C" & Target.Row).Resize(1, 4).Interior.ColorIndex = 15
Range("C" & Target.Row).Locked = True
End If
ActiveSheet.Protect
End Sub
A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Retour