Excel : histogramme

Fermé
CISCO - Modifié le 7 juin 2019 à 21:13
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019 - 11 juin 2019 à 10:13
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??
A voir également:

9 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
8 juin 2019 à 08:59
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
0
Bonjour, je vous remercie pour votre aide. mais j'avoue que j'y suis pas arrivé.
0
Je ne vois pas l'option filtre ''avancé''.
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
Modifié le 9 juin 2019 à 11:29
Bonjour,

Là:



avec l'exemple de mon fichier


Cdlt
0
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?
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 juin 2019 à 11:59
oui
0
votre mail svp
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
9 juin 2019 à 12:36
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
0
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019
10 juin 2019 à 11:49
le compte a été créé, je vous ai même contacté en MP
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
Modifié le 10 juin 2019 à 12:12
je n'ai pas reçu le fichier
0
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019
10 juin 2019 à 12:23
pourrais-je vous envoyer le fichier?
merci
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
10 juin 2019 à 12:35
j'ai bien reçu votre message en MP mais il n'y avait pas le fichier joint
0
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019
10 juin 2019 à 12:41
comment pourrais-je envoyer le fichier?
0
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019
10 juin 2019 à 13:50
https://mon-partage.fr/f/QFGnBasu/
0
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019
10 juin 2019 à 13:56
je voudrais que ces valeurs soient en abscisse
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
10 juin 2019 à 13:43
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
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
10 juin 2019 à 20:02
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
0
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019
10 juin 2019 à 20:22
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
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
11 juin 2019 à 04:01
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
0
CISCO1985 Messages postés 7 Date d'inscription dimanche 9 juin 2019 Statut Membre Dernière intervention 11 juin 2019
11 juin 2019 à 10:13
je vous remercie pour votre disponibilité et votre promptitude. Vous m'avez beaucoup aidé
0