CALCUL en automatique

[julie91]

Bonjour,

Quelqu'un peux m'aider svp sur ce fichier pour calcul en automatique avec SMILEY selon le cas de figure merci beaucoup pour votre aide.

Julie

 

[julie91]

Re : CALCUL en automatique

Quelqu'un peux m'aider SVP

 

[Dull]

Re : CALCUL en automatique

Salut Julie91, le Forum

Essaye le fichier joint à base de formules et de MFeC

Bonne Journée

 

[julie91]

Re : CALCUL en automatique

Merci

Mais en faite je ne veux de menu déroulant pour les MOIS je veux qu'il m'affiche automatiquement le mois en cours (ex:Novembre) et si en dessous du mois de novembre j'ai pas de VALEUR il m'affiche la valeur du mois précédent. (Ex:OCT )

Pour les SMILEY,

j'ai besoin des smiley PLEIN comme sur mon fichier est-ce possible ?


Merci pour ton aide


Julie

 

[job75]

Re : CALCUL en automatique

Bonjour julie91, salut Dull 🙂

[Edit] Formule en B12 :

=INDEX(1:1;EQUIV(9^9;A2:INDEX(2:2;MOIS(AUJOURDHUI()))))

Formule en B13 :

=INDEX(2:2;EQUIV(9^9;A2:INDEX(2:2;MOIS(AUJOURDHUI()))))

Pour le smiley en B20, si l'on ne veut pas des caractères J K L de la police Wingdings, il faut y introduire l'une des 3 images en fonction du résultat.

Pour cela il faut une macro déclenchée par l'un des évènements Change, SelectionChange, ou Calculate.

C'est un peu casse-pieds, cherchez sur le forum.

A+

 

[job75]

Re : CALCUL en automatique

Re julie,

Je viens de voir ce fil :

https://www.excel-downloads.com/threads/aide-svp-sur-calcul-automatique.152125/

Je comprends que vous êtes pressée, et que vous ne voulez pas chercher sur le forum 🙄

Alors du tout roti sur le fichier joint, avec cette macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Calculate()
Dim n As Integer, i As Integer
n = IIf([B13] > 10000, 1, IIf([B13] >= 5000, 2, 3))
For i = 1 To 3 'éventuellement renommer les formes automatiques
  With Me.Shapes("Forme automatique " & i)
    .Visible = i = n
  End With
Next
End Sub

A+