Condition de valeur sur cellule EXCEL
Paupau
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
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
A voir également:
- Condition de valeur sur cellule EXCEL
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
1 réponse
Bonjour,
Ce code, placé dans le module de la feuille concernée devrait fonctionner :
A ADAPTER, bien entendu.
Un fichier exemple
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
