Excel : histogramme

-
Bonjour,
J'ai une colonne de 730 mesures allant de 0,9 à 6,96 mm, j'aimerai faire un histogramme où en abscisse j'ai 0,9 ...jusqu'à 6,96 mm et en ordonnée le nombre de fois où j'ai le chiffre en question qui apparait.
Comment y arriver??
Afficher la suite 

9 réponses

Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
Bonjour,

exemple:
1) faire un filtre "avancé" sans doublons des mesures (colonne A) et coller en colonne E
2) en D2, formule =NB.SI(A:A;E2), à tirer vers le bas
3) sélectionner les données des colonnes D et C, puis insertion graphique histogramme
4)clic droit sur le graphique, choisir "Sélectionner des données", cliquer sur "Nbre" puis sur le bouton "supprimer".

Voir exemple fichier joint
https://mon-partage.fr/f/p7hbfoqu/

cdlt
Bonjour, je vous remercie pour votre aide. mais j'avoue que j'y suis pas arrivé.
Je ne vois pas l'option filtre ''avancé''.
Commenter la réponse de Frenchie83
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
Bonjour,

Là:



avec l'exemple de mon fichier


Cdlt
Commenter la réponse de Frenchie83
0
Merci
oui je vois de voir mais l'histogramme ne donne pas ce que je veux. pourrais-je vous envoyer la matrice par votre mail svp?
Commenter la réponse de CISCO
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
oui
Commenter la réponse de Frenchie83
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
On ne donne pas son mail sur les forums.
Vous ne pouvez pas envoyer de Message Privé tant que vous n'aurez pas créé votre propre compte utilisateur.
Dès que vous serez inscrit, cliquer sur mon pseudo pour me contacter en MP.

Mais avant de passer par les messages privés, il serait préférable que vous fournissiez votre fichier sans données confidentielles tout en conservant la même structure, ainsi d'autres intervenants pourront vous répondre et vous proposer des solutions différentes. Les messages privés ne sont à utiliser que dans les cas exceptionnels.

Cdlt
CISCO1985
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
11 juin 2019
-
le compte a été créé, je vous ai même contacté en MP
Frenchie83
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230 -
je n'ai pas reçu le fichier
CISCO1985
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
11 juin 2019
-
pourrais-je vous envoyer le fichier?
merci
Commenter la réponse de Frenchie83
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
j'ai bien reçu votre message en MP mais il n'y avait pas le fichier joint
CISCO1985
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
11 juin 2019
-
comment pourrais-je envoyer le fichier?
CISCO1985
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
11 juin 2019
-
CISCO1985
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
11 juin 2019
-
je voudrais que ces valeurs soient en abscisse
Commenter la réponse de Frenchie83
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
Pour joindre un fichier via mon-partage.fr :

Étape 1 : clic sur la grande case longue, ou sur le bouton jaune
"CHOISIR UN FICHIER" sélectionnez le fichier à joindre.

Étape 2: clic sur le bouton jaune "Uploader" en bas, attendre que le fichier soit chargé.
copier le lien de téléchargement obtenu et coller dans le message à envoyer
Commenter la réponse de Frenchie83
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
Voilà
Excusez pour la réponse tardive, mais j'étais parti
https://mon-partage.fr/f/ErFzDTEl/

Vu la quantité de valeurs en abscisses et les écarts entre chaque valeurs, il est impossible d'afficher les valeurs sur l'axe des abscisses.

Cdlt
CISCO1985
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
11 juin 2019
-
je vous remercie pour l'aide. j'ai vu le graphe et c'est ce genre de diagramme que je voulais.
Je voudrais savoir savoir si vous pouvez me détailler comment avez-vous fait? Ainsi, si je revoyais la quantité des valeurs à la baisse, je pourrai refaire moi même le diagramme.
merci beaucoup pour tout, c'est cool de votre part
Commenter la réponse de Frenchie83
Messages postés
2001
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
16 octobre 2019
230
0
Merci
Bonjour,

Le principe:
Faire un filtre avancé sur les mesures (voir explications au post 5), résultats copiés en colonne E
en colonne F, application de la formule =NB.SI(A:A;$E2) pour comptage du nombre de valeurs.
Sélections des valeurs des colonnes E et F pour créer le graphique.
Clic droit sur la graphique, "Sélectionner des données".
-Clic sur "Nbre", puis sur le bouton supprimer .
-Clic sur le bouton "Changer de ligne ou de colonne".

Pour vous simplifier la vie, toutes ces actions sont enregistrées dans une macro, il ne vous reste plus qu'à rentrer les nouvelles mesures et faire un clic sur le graphique pour le mettre à jour.

Le fichier
https://mon-partage.fr/f/LtAZnLUG/

Les valeurs sur l'axe des abscisses correspondent à l'emplacement de la valeur dans la liste colonne E (N° de ligne -1)

Pour info, voici le code utilisé:
Sub Graphique()
    Dim DerLig As Long
    Application.ScreenUpdating = False
    Columns("E:F").ClearContents
    'Dernière ligne de la liste de mesures
    DerLig = [A10000].End(xlUp).Row
    Range("A1:A" & DerLig).Select
    
    'Filtre avancé sans doublons
    Range("A1:A" & DerLig).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1"), Unique:=True
    Range("F1") = "Nbre"
    
    'Dernière ligne de la liste de mesures filtrées
    DerLig = [E10000].End(xlUp).Row
    
    'Formules de comptage des mesures
    Range("F2:F" & DerLig).FormulaR1C1 = "=COUNTIF(C[-5],RC5)"
    
    'Mise à jour graphique
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SetSourceData Source:=Range("E1:E" & DerLig)
    [A1].Select
End Sub


Cdlt
CISCO1985
Messages postés
7
Date d'inscription
dimanche 9 juin 2019
Statut
Membre
Dernière intervention
11 juin 2019
-
je vous remercie pour votre disponibilité et votre promptitude. Vous m'avez beaucoup aidé
Commenter la réponse de Frenchie83