Condition de valeur sur cellule EXCEL Fermé

Question

Bonjour, 

Je voudrais mettre une condition sur une cellule excel. En fait, ma cellule dépend d'une liste qui est dans une autre cellule et je voudrais qu'en fonction du choix de ma liste, soit je rentre une donnée à la main, soit elle le calcule automatiquement. 
Je ne peux pas mettre de formule dans ma cellule car quand je dois rentrer la valeur moi-même, cela supprime forcément ma formule.
Comment faire ? 

Merci de votre aide ! 
Bonne journée

Configuration: Windows 7 / Firefox 30.0

pijaku · Answer

Bonjour,

Ce code, placé dans le module de la feuille concernée devrait fonctionner :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
    Case "choix1": [F4].Formula = "=SUM(A1:B5)"
    Case "choix2": [F4].Formula = "=SUM(A1:B6)"
    Case "choix3": [F4].Formula = "=SUM(A1:B7)"
    Case "choix4": [F4].Formula = "=SUM(A1:B8)"
    Case "choix5": [F4] = "": [F4].Select: MsgBox "Saisissez une valeur en F4"
    Case Else: [F4] = ""
End Select
Application.EnableEvents = True
End Sub 
 
A ADAPTER, bien entendu.

Un fichier exemple

Condition de valeur sur cellule EXCEL

1 réponse

Discussions similaires