Condition de valeur sur cellule EXCEL
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
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
1 réponse
-
ModérateurBonjour,
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
