Excel 365 : Comment faire une échelle Covid19 sur Excel en moins de 12 min.

Problème :

Comment avoir une échelle de facteur risque? Comment la tracer?

Exemple factice pour la démo : utilisation de macro, graphique histogramme empilé, utilisation de la fonction SI

Excel 365 : Comment faire une échelle Covid19 sur Excel en moins de 12 min.
Excel 365 : Comment faire une échelle Covid19 sur Excel en moins de 12 min.

Excel 365 : Comment faire une échelle Covid19 sur Excel en moins de 12 min.
Excel 365 : Comment faire une échelle Covid19 sur Excel en moins de 12 min.

Solutions :

Les étapes :

Excel 365 : Comment faire une échelle Covid19 sur Excel matrice de choix
Excel 365 : Comment faire une échelle Covid19, matrice de choix
  • Données sous forme de liste
  • Graphique histogramme groupé, et courbe avec marqueur
  • Utilisation d’une zone nommée
  • Utilisation de la fonction =SI(J8=”ü”;K8;””) avec police Wingdings
  • Mise en forme conditionnelle sur les plages
  • Ajout liste : données/outil de données/liste
  • Macro VBA pour changement automatique au double click dans la cellule.
Excel 365 : Comment faire une échelle Covid19 sur Excel type de graphique
Excel 365 : Comment faire une échelle Covid19 ,détail graphique
Excel 365 : Comment faire une échelle Covid19 ,détail graphique
Excel 365 : Comment faire une échelle Covid19 ,détail graphique
Utilisation de la fonction =SI(J8="ü";K8;"") avec police Wingdings
Utilisation de la fonction =SI(J8=”ü”;K8;””) avec police Wingdings
Excel 365 : Comment faire une échelle Covid19 caractères spéciaux
Excel 365 : Comment faire une échelle Covid19 caractères spéciaux
Excel 365 : Comment faire une échelle Covid19 exemple de critère
Excel 365 : Comment faire une échelle Covid19 exemple de critère

TUTO :

Code source VBA :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("COCHE")) Is Nothing Then Exit Sub
If Target.Value = "ü" Then
Target.Value = "û"
Else
Target.Value = "ü"
End If
Cancel = True
End Sub
Sub Macro3()
'ré initialisation cellule

    Range("J9:J16").Value = "û"
    Range("J19:J23").Value = "û"
    Range("J26:J36").Value = "û"
    Range("J32:J37").Value = "û"
    
    Range("N9:N16").Value = "û"
    Range("N19:N24").Value = "û"
    
    Range("R9:R13").Value = "û"
    Range("R19:R23").Value = "û"
    
   MsgBox "Initialisation", 0 + 64 + 0 + 0 + 4096, "Infos User"
   
End Sub

Version YOUTUBE :

Recevoir la newsletter

Inscrivez-vous maintenant et recevez un e-mail les fois où je publie du contenu.

I agree to have my personal information transfered to AWeber ( more information )

Je hais les spams. Vous pouvez vous désinscrire à tout moment.

Taggé .Mettre en favori le Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *