Problème de référence circulaire et macro

Résolu/Fermé

stephaka10 Messages postés 2 Date d'inscription samedi 10 octobre 2015 Statut Membre Dernière intervention 11 octobre 2015 - 10 oct. 2015 à 13:02
stephaka10 Messages postés 2 Date d'inscription samedi 10 octobre 2015 Statut Membre Dernière intervention 11 octobre 2015 - 11 oct. 2015 à 08:25

Bonjour,

J'ai besoin d'aide pour un tableau Excel.
Je souhaite que le montant saisis dans la cellule B4 reste celui que je saisis s'il est inférieur au montant du plafond (dans la cellule G17) ou se change s'il est supérieur en indiquant le montant du plafond.

exemple: plafond à 2600€
si j'entre 2500€ en B4, B4 reste à 2500€
si j'entre 2700€ en B4, B4 devient 2600€

Je sais qu'il y a un problème de référence circulaire, qu'il faut créer une macro,mais je ne sais pas faire.

Merci par avance

A voir également:

Problème de référence circulaire et macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Reference pto - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

3 réponses

Réponse 1 / 3

pépé35530 Messages postés 2942 Date d'inscription vendredi 1 mai 2009 Statut Membre Dernière intervention 19 mars 2016 1 382
10 oct. 2015 à 13:26

Bonjour,

Dans une cellule tu ne peux pas entrer un nombre et une formule.
D'une manière simple, ton problème ne peut être résolu à moins de créer une colonne supplémentaire qui prendra en compte les éléments souhaités (=SI...)

A+

pépé

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 10/10/2015 à 13:56

Bonjour,
comme le dit Pépé, il te faut une cellule autre que B4 pour le résultat

la formule
=MIN(B4;2600)

si tu veux une macro
à installer dans le module feuille concerné

Option Explicit
'-------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$4" Then
    Application.EnableEvents = False
        Target = Application.Min(Target, [G17])
    Application.EnableEvents = True
End If
End Sub

Sub SOS_macro()
 Application.EnableEvents = True
End Sub

Michel

Réponse 3 / 3

stephaka10 Messages postés 2 Date d'inscription samedi 10 octobre 2015 Statut Membre Dernière intervention 11 octobre 2015
11 oct. 2015 à 08:25

Bonjour,

Merci pour vos réponses.

Discussions similaires

Blocage sur tableau Excel par la mention "La référence n'est pas valide

comment mettre en ordre alphabétique

Erreur Automation

Excel référence circulaire

problème d'ouverture de compte

Discussions similaires

Newsletters