Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comparer valeurs

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion piep14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

piep14

Guest
Bonjour, le problème du jour

J'ai deux colonnes avec dans la premiere des valeurs de 10 -> 95 et dans la seconde qui est en concoordance à la premiere des valeurs diverses de 0 à XX.

Je souhaite faire une comparaison pour ne réafficher que les lignes ne contenant pas de valeur 0

Voir l'exemple dans la piece jointe de ce que j'aimerais obtenir !

Tout ceci pour me permettre de fabriquer un graphique sans les lignes contenant les 0
 
Trier par date Trier par votes
Alors je pense que ce sera ma dernière question :


Comme on peut le voir, j'ai joins a nouveau le fichier, et on peut voir que je sélectionne la derniere ligne de la colonne M. Car pour faire mon graphique, je souhaite pour toutes les valeurs contenues dans les deux colonnes.

J'ai donc fais une macro qui se présente ainsi :




Code: 
Sub Graphique()
'
' Graphique Macro
' Macro enregistrée le 25/03/2005 par PIEPLU
'

'
    Dim DerLgn As Integer
    DerLgn = Range('O18').Select
    
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('L2:M' & DerLgn), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = 'Classement par Rayon'
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveWindow.Visible = False

End Sub

Mais cela pose problème ????? Mais je ne vois pas où !!! [file name=Copie de PetiteValeurSiPiepV2_20050325124138.zip size=8918]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Copie de PetiteValeurSiPiepV2_20050325124138.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour

Dans ton code tu fais référence à la cellule O18, or cette cellule ne contient aucune données, d'ou le bug.

Tu devrais faire référence à la cellule R2, qui elle contient le numéro de la dernière ligne utilisé dans la colonne M.

DerLgn = Range('R2')

Ne la sélectionne pas.

A plus
 
Vote positif 0 Vote négatif
Oui mais en faite j'avais déjà changer mais cela ne change rien

Code: 
Sub Graphique()
'
' Graphique Macro
' Macro enregistrée le 25/03/2005 par PIEPLU
'

'
    Dim DerLgn As Integer
    DerLgn = Range('R2').Select
    
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('L2:M' & DerLgn), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = 'Classement par Rayon'
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveWindow.Visible = False

End Sub
 
Vote positif 0 Vote négatif
re

dans mon précédent message je t'écrit : ne la sélectionne pas, et je te met le code : DerLgn = Range('R2')

Et toi tu la sélectionne, 🙂

utilise juste : DerLgn = Range('R2')

ainsi tu initialises ta variable derlgn, ou si tu veux faire référence à la cellule R2 comme cellule active :

range('R2').select

......

ActiveChart.SetSourceData Source:=Sheets(\\'Feuil1\\').Range(\\'L2:M\\' &
activecell), PlotBy _

voilà

a plus
 
Vote positif 0 Vote négatif
AHhhhhhhhhhhhhhhh excuse moi, mais je suis content tout marche comme je le souhaiter !!!! Vous étes super geniaux

Ah non, je viens de voir qu'il reste un dernier trucs a faire. Quand j'executer la macro, j'aurais aimé remplacer l'autre graphique

Message édité par: piep14, à: 25/03/2005 17:57
 
Vote positif 0 Vote négatif
re

voici ta macro modifiée, la taille du graphique est gérée par ScaleWidth et ScaleHeight, modifie ces valeurs pour atteindre la taille désirée.


Code: 
Sub Graphique()

ActiveSheet.ChartObjects.Delete

    
    Dim DerLgn As Integer
    DerLgn = Range('R2')
    
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('L2:M' & DerLgn), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = 'Classement par Rayon'
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveWindow.Visible = False
    ActiveSheet.Shapes(Selection.Name).ScaleWidth 1.21, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes(Selection.Name).ScaleHeight 1.29, msoFalse, msoScaleFromTopLeft
End Sub

A plus
 
Vote positif 0 Vote négatif
Bonjour

Réponse tardive, désolé.


Macro modifié pour que le graphique apparaisse en haut à gauche du tableau.

Code: 
 Sub Graphique()

ActiveSheet.ChartObjects.Delete

    
    Dim DerLgn As Integer
    DerLgn = Range('R2')
    
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('L2:M' & DerLgn), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = 'Classement par Rayon'
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveWindow.Visible = False
    ActiveSheet.Shapes(Selection.Name).ScaleWidth 1.21, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes(Selection.Name).ScaleHeight 1.29, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Shapes(Selection.Name).IncrementLeft -184.5
    ActiveSheet.Shapes(Selection.Name).IncrementTop -99.75
End Sub

En fait la méthode est simple : on crée le graphique puis on le déplace par IncrementLeft et IncrementTop, à toi de faire varié ces valeurs pour le placer exactement ou tu veux.

Salut
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Résolu(e)
Microsoft 365 Fusion de 2 tables
Réponses
6
Affichages
321
Amilo
A
W
  • Résolu(e)
XL 2019 Comparer deux listes pour répertorier les nouveaux
Réponses
14
Affichages
214
Webperegrino
W
N
  • Question Question
XL 2010 recherche formule
2
Réponses
23
Affichages
613
n_turf
N
  • Question Question
XL 2019 Extraire les valeurs de plusieurs plages identiques de plusieurs feuilles différentes
Réponses
12
Affichages
376
mapomme
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
256
alexga78
A
F
  • Question Question
XL 2016 Graphique avoir des blancs en non des valeurs à 0 quand la donnée est vide
Réponses
4
Affichages
249
JHA
J
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
413
safranien
S
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
763
benjy555
B
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
752
SAMUAL_2023
S
R
  • Question Question
XL pour MAC Ne pas afficher valeurs nulles dans un graphique
Réponses
5
Affichages
329
rtlv17
R
A
  • Résolu(e)
Microsoft 365 Fonction Recherche
Réponses
3
Affichages
165
Alain 79
A
  • Résolu(e)
XL 2013 Histogramme avec une seule barre par cellule
Réponses
6
Affichages
343
CISCO
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
738
Perceval973
P
Y
  • Question Question
Microsoft 365 Cdbl et nombres à virgules
Réponses
4
Affichages
275
Valtrase
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
398
agayet
A
Y
  • Question Question
XL 2019 macro pour dupliquer un tableau
Réponses
3
Affichages
552
Yogean
Y
M
  • Question Question
Microsoft 365 Comparer 2 onglets
Réponses
8
Affichages
672
matmac
M
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
334
p'tit vieux
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
1 K
richard31
R
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
426
fd.30
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…