MCF: montant négatif si autre cellule contient texte
dolly
-
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai eu beau chercher je n'ai pas trouvé la solution.
Est il possible que le montant saisi en cellule B2 se mette automatiquement en négatif si la cellule A2 contient le texte "dépenses" (et reste en positif si c'est le texte "Recettes"?
Merci pour votre aide
J'ai eu beau chercher je n'ai pas trouvé la solution.
Est il possible que le montant saisi en cellule B2 se mette automatiquement en négatif si la cellule A2 contient le texte "dépenses" (et reste en positif si c'est le texte "Recettes"?
Merci pour votre aide
merci pour votre retour. J'avais pensé à cette formule également mais c'est pour le suivi du budget de notre association et la colonne intermédiaire risque d'être perturbante ;)
Mais si pas d'autre solution je ferai ça.
Merci encore
dans votre feuille: clic droit sur le nom d'on,glet
sélectionnez "visualiser le code"
coller le libellé en gras ci dessous
dans ce libellé les lignes qui apparaitront en vert vous préciseront ce qu'il faut modifier si besoin d'ajuster les adresses
avec ce libellé,"à double action" la valeur en B s'inscrira en négatif si dépense est inscrit en A, ou passera en négatif si le montant existe et que l'on rajoute dépense enB
Private Sub Worksheet_Change(ByVal Target As Range)
'affectation de l'action "montant" à la colonne B (Columnn 2)
If Target.Column = 2 Then
'détection du texte de la colonne A sur la ligne activée
If Target.Cells.Offset(0, -1).Value = "dépense" Then
'affectation de la valeur négative dans la cellule active
Target.Cells.Value = -Target.Cells.Value
End If
End If
'affectation de l'action "dépense" à la colonne A
If Target.Column = 1 Then
If Target.Cells.Value = "dépense" Then
'affectation de la valeur négative dans la cellule à droite
Target.Cells.Offset(0, 1).Value = -Target.Cells.Offset(0, 1).Value
End If
End If
End Sub
</gras>
crdlmnt