Formules spécifiques

Bonjour,

Je suis nouveau sur le forum et il s'agit de mon 1er message. Je ne sais pas trop comment qualifié mon besoin.

En fait, je dois préparer un tableau de coût qui se présentera de la manière suivante :

Véhicule ville Prêt Assurance GO Entretien Divers Total Restant à payer

Voiture 1

Voiture 2

Voiture 3

Dans la partie "total" il s'agira de la somme de Prêt + assurance + Go + Entretien + Divers. Ça ok.

C'est dans la case "restant à payer", que j'aimerai si possible, une fois qu'on met un montant en gras ou autre mise en forme que ce dernier se déduise automatiquement.

Restant à payer = somme des montant pas en gras

En espérant avoir été clair , et que vous puissiez me venir en aide.

D'avance merci.

Arnaud

Bonjour

Envoie ton fichier (En xls, si possible, car tous ne peuvent lire les xlsx)

Nous t'aiderons à réaliser les formules

Cordialement

Bonjour,

Veuillez trouvez ci-joint le fichier.

En espérant que vous puissiez m'aider.

Merci d'avance.

Arnaud

Bonjour Arnaud,

J'ai créer cette fonction qui te permets dans ton total de ne prendre en compte que les montants en gras

Function GRAS(CL As Range)

If CL.Font.Bold = False Then
    GRAS = 0
Else: GRAS = CL.Value
End If

End Function

Par contre la formule pour le total est

=GRAS(B2)+GRAS(C2)+GRAS(D2)+GRAS(E2)+GRAS(F2)+GRAS(G2)+GRAS(H2)

je ne comprends pas pourquoi

=SOMME(GRAS(B2:H2))

ne fonctionne pas. Quelqu'un a une idée ?

De plus, autre question. La formule fonctionne bien mais si je remet une celle en gras par la suite je suis obligé d'aller dans la cellule de resatnt à payer puis de faire "entrée" pour mettre à jour le résultat. Est-ce normal ?

Bonjour

Une fonction similaire un peu plus courte. (La formule plus courte)

Pour ne pas avoir à revalider la formule après chaque "mise en gras", Code de Feuil1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Calculate

End Sub

Cordialement

Aucun moyen n'existe pour que le résultat se mette à jour dès qu'on met ou retire une cellule en gras ?

Bonjour

Avec le code d'Amadeus, il suffit de faire ENTREE

Amicalement

Nad

Bonjour Sebmince, bonjour Nad

Effectivement, c'est de ma faute. La zone de texte bleue laissée dans le classeur est à supprimer car elle induit en erreur et en sélectionnant normalement n'importe qu'elle cellule, le calcul s'effectue grace au Code de Feuil1.

Cordialement

Ok merci pour la précision Amadéus.

Je pense connaître la réponse du coup, mais il n'existe pas de moyen de mettre à jour le résultat dès que l'on clic sur la mise en gras ?

Bonjour

On tourne en rond..

C'est justement mon précédent message où je parle d'une cellule quelconque

Essaie et tu verras bien que cela fonctionne

Cordialement

J'ai bien compris mais chez moi ça ne fonctionne pas.

La mise à jour du résultat se fait après avoir cliqué sur la mise en gras puis après avoir sélectionné une autre cellule et non avoir simplement cliqué sur la mise en gras.

Je sais bien qu'il n y a pas grande différence mais je voulais juste savoir si techniquement c'était possible.

Bonjour

Parce que le Code spécifie le changement de cellule pour calculer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

Et que, de toute façon, une cellule dans laquelle tu entres une info n'est validée que:

• Soit après la validation avec la touche Entrée
• Soit après une nouvelle sélection.

Bonjour,

Merci à tous le monde. C'est exactement ce qu'il me fallait.

C'est incroyable ce qu'on peut tirer d'Excel. Étant plutôt novice dans ce genre de formule, suis surpris.

Merci à vous.

Bonne soirée.

Arnaud

@++