Verrouille + Formule dans une cell en fonction d'une autre

Bonjour,

Dans le fichier ci joint j'aimerai automatiser une cellule en fonction d'une autre.

La colonne PV se calcul soit par la colonne déboursé multipliée par la colonne indice de PV soit elle prend la valeur de la colonne Prix fixe

Le but est que la colonne indice de PV soit utilisé manuellement s'il n'y a pas de Prix fixe. Cependant s'il y en a un, elle devrait être verrouillée, remplie en gris et calculer toute seule l'indice de PV soit le PV divisé par le déboursé si le déboursé est différent de zéro.

Merci beaucoup pour votre aide.

Cordialement.

Bonjour,

un essai (il reste encore un peu de nettoyage et d'optimisation à faire):

1test-verrcell.xlsm (15.44 Ko)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cellule As Range
ActiveSheet.Unprotect
For Each cellule In Range("E8:E100")
If Cells(cellule.Row, 5) = "" Then
Cells(cellule.Row, 6) = ""
Cells(cellule.Row, 6).Locked = False
Cells(cellule.Row, 6).Interior.Color = xlNone
Exit For
Else
If Cells(cellule.Row, 7) = "" Or Cells(cellule.Row, 4) = "" Then
Exit For
Else
Cells(cellule.Row, 6) = Cells(cellule.Row, 7) / Cells(cellule.Row, 4)
Cells(cellule.Row, 6).Locked = True
Cells(cellule.Row, 6).Interior.Color = RGB(150, 150, 150)
End If
End If
Next
ActiveSheet.Protect
End Sub

Bonjour Numéro 2,

C'est pas mal du tout même très efficace mais ça ralenti énormément la feuille.

S'il y a d'autres idées je suis preneur!!

Numéro 2,

J'essaye de l'adapter et ça ne fonctionne pas.

Je ne suis pas sûr que ton code fonctionne vraiment finalement.

Re

effectivement il faut supprimer le 1er Exit For

Si ton fichier de base contient bcp de données ça va poser problème effectivement, je m'adapte au fichier que j'ai ...

Avec du dynamique pas sur de pouvoir être beaucoup plus rapide, la question est déjà de savoir si ça a réellement besoin d'être dynamique ? En d'autres termes, une cellule vide dans "prix fixe" peut elle devenir pleine et inversement ?

Car si non, le code sera totalement différent et bcp plus rapide

Si oui je ne vais pas pouvoir aller plus loin, ou alors proposer de partir plus sur une macro à déclencher en manuel ...

Bonjour Numéro 2.

En effet ça marche beaucoup mieux

Ce que j'ai fait finalement c'est que j'ai mêlé ton code avec de la mise en forme conditionnelle quand c'est possible et ça marche plutôt pas trop mal.

En tout cas tu as totalement répondu à ma question et merci beaucoup car j'aurai pu tourné en rond très longtemps!!!

Merci!!

Rechercher des sujets similaires à "verrouille formule fonction"