Encadrer valeurs dans cellule en fonction autre

Bonsoir oui effectivement j'ai essayé d'adapter ta macro mais sans succès.

Je pensais rappeler les mêmes macro mais lorsque la cellule que j'ai nommé "Apport" changeait.

Dans mon fichier j'ai nommé les cellules le G7 était pour tenter d expliquer.

La macro qui appelle les 3 autres :

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect Password:="ttt"

'Variables

Dim Clt As String

'Valeur Variable

Clt = Range("Choix").Value

'Réinitialisation du Choix si Changement de montant

If Not Intersect(Target, Range("Montant")) Is Nothing Then
Range("Choix").Value = "Choix"
End If

'Fixation du pourcentage maximum de la cellule Depot

If Not Application.Intersect(Target, Range("Depot")) Is Nothing Then
If Target > 0.15 Then
Target = 0.15
MsgBox ("Attention au Pourcentage Maximum")
End If
End If

'Appel Macro en fonction de la cellule nommée Choix

If Not Application.Intersect(Target, Range("Choix")) Is Nothing Then

If Clt = "Particulier" Then
Call Apport_Particulier
Else

If Clt = "Pro - de 2 ans" Then
Call Apport_Prof_Moins_2
Else

If Clt = "Pro + de 2 ans" Then
Call Apport_Prof_Plus_2


End If
End If
End If

End If

End Sub

Un exemple de code appelé

Sub Apport_Prof_Plus_2()

'Détermination des Variables

Dim CellApp As Variant
Dim ValLim As Single

'Plafond : Formule utilisée

ValLim = Range("Montant").Value * 0.25

'Boîte de dialogue : Insertion Montant

CellApp = InputBox("Rappel,l’apport maximum autorisé est de 25% soit un montant de " & " " & ValLim & " " & "€ (Insérez le montant en €)", "Pro de + 2 ans")

'Gestion du caractère "."

CellApp = Replace(CellApp, ".", ",")

'Utilisation de annuler : Gestion du msg d'erreur 13 ( Variable Variant )

If CellApp = "" Then Exit Sub

' Renseignement de la cellule G23 (LOA + Crédit Bail)

If IsNumeric(CellApp) And CellApp >= 0 And CellApp <= ValLim Then
Range("Apport").Value = CellApp
Selection.Copy

Else

'Avertissement erreur montant saisi

MsgBox ("Montant supérieur à la limite autorisée")

End If

'Cellules Déselectionnées

Application.CutCopyMode = False

Range("G28").Select
Range("Depot").Value = ("0")
Range("Depot").Locked = True

ActiveSheet.Protect Password:="ttt"

End Sub


Cdt

Oui c'est la macro de départ située sur la feuille contenant les cellules à modifier.
Ca marche parfaitement !
Elle appelle 3 macros. ( B7 et G7 c'était juste pour expliquer)

Elles alimentent la cellule "Apport" suivant des formules différentes.

Mon problème c'est de réussir à inverser la logique !

La cellule "Apport" devient la cellule à l'origine des limites quand on saisit directement dedans,
mais reste dépendante de la cellule " choix ".

Je ne vois vraiment pas comment faire ...

J'ai essayé de te faire un fichier exemple

https://www.cjoint.com/c/HDjvCKCX1aZ

C'est la cellule "Apport" qui doit être complétée, mais qui est limitée en fonction de la cellule "Choix"

Encore merci de ton aide