Nuage de points VBA

[richert90]

Bonjour,

Voici mon problème:

J’aimerais faire un nuage de points en VBA, j'ai enregistré une macro que j'ai ensuite adaptée sauf que je n'ai que des valeurs 0 pour "chaque valeur en abscisse". Je vous joint ce fichier avec le code , ce sera plus simple ainsi qu'une copie du graphique que j’obtiens

Merci d'avance pour votre aide

 

[titiborregan5]

Re : Nuage de points VBA

Bonjour richert, le forum,
Je ne peux pas faire tourner ta macro...
Mais en regardant le code, ton i pour les lignes est déclaré nulle part, c'est normal?
A+

 

[richert90]

Re : Nuage de points VBA

Oui je vous ai juste joint le code, pour le "i" j'ai une procédure que j'appelle, le code "il marche" parce que j'ai bien un graphique mais le problème vient des points de ce dernier.

Je vous rejoins le fichier avec les procédures pour que vous puissiez l’exécuter directement

 

[richert90]

Re : Nuage de points VBA

Je me permets de relancer le sujet, car j'ai l'impression d'avoir tout essayer pour comprendre et résoudre ce problème mais je n'y arrive toujours pas et c'est assez important...

Tiens en envoyant ce message, je crois avoir une piste de l'erreur: je crois que les nombres sont stockés sous forme de texte. il faudrait que j'arrive à les convertir en format nombre automatiquement sous Excel: comment faire svp (si c'est bien l'erreur que je pense ?..)

Merci de m'aider 🙄

PS: je rejoins le fichier, avec un bouton test vous verrez directement le graphique que j'ai qui est faux donc..

Cordialement,

 

[mapomme]

Re : Nuage de points VBA

Bonjour richert90,

Les données de la colonne H semblent être interprétées comme du texte. Après conversion des valeurs de la colonne H en nombres (via le menu Données/convertir), la macro construit un graphique plus conforme à ce qu'on peut attendre être un honnête graphique.

 

[Modeste geedee]

Re : Nuage de points VBA

Bonsour®

je crois que les nombres sont stockés sous forme de texte. il faudrait que j'arrive à les convertir en format nombre automatiquement sous Excel: comment faire svp (si c'est bien l'erreur que je pense ?..)

il faut surtout utiliser un séparateur décimal en adéquation avec les options EXCEL et/ou system !!!

plage de données
Menu Edition, Remplacer "." par ","

 

[richert90]

Re : Nuage de points VBA

Bonjour,

Merci de vos réponses

J'ai donc enregistré une macro qui permet de remplacer le "." par "," . Quand j'exécute cette macro et celle du graphique, j'obtiens toujours ce graphique avec des valeurs 0!
Je repense à ce que tu m'a dit Modeste geedee:

il faut surtout utiliser un séparateur décimal en adéquation avec les options EXCEL et/ou system !!!

Ça vient peut être des options system alors? Comment faire pour régler ça?

Merci d'avance

 

[Modeste geedee]

Re : Nuage de points VBA

Bonsour®
les valeurs des cellules concernées ne sont pas modifiées ????

peut on voir la macro ???

Sub Macro2()
    Range("A1:K271").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("M1") = 1
    Range("M1").Copy
    Range("A1").CurrentRegion.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
    SkipBlanks:=False, Transpose:=False
    
    Call Nuage_Temps
End Sub

 

[job75]

Re : Nuage de points VBA

Bonjour,

Dans la feuille "database", pour transformer les valeurs textes en nombres :

Sub Virgule()
Cells.Replace ",", ".", xlPart
End Sub

Fonctionne quel que soit le séparateur décimal de l'ordi.

A+

 

[mapomme]

Re : Nuage de points VBA

re,

As-tu essayé de convertir la colonne des valeurs par le menu "Données / Convertir "options avancées" ?

 

[job75]

Re : Nuage de points VBA

Re,

As-tu essayé de convertir la colonne des valeurs par le menu "Données / Convertir "options avancées" ?

Il y a 5 colonnes à convertir, c'est un peu fastidieux.

Ca ne coûte vraiment rien d'ajouter dans la macro de création du graphique :

Sheets("database").Cells.Replace ",", ".", xlPart

A+

 

[mapomme]

Re : Nuage de points VBA

Bonjour job75 et les autres...

(...) Il y a 5 colonnes à convertir, c'est un peu fastidieux. (...)

J'avoue, piteusement, que je n'avais pas regardé ce que contenaient les autres colonnes. 🙁

(...) Ca ne coûte vraiment rien d'ajouter dans la macro de création du graphique (...)

Sheets("database").Cells.Replace ",", ".", xlPart

(...)

C'est pas faux! 🙂

 

[richert90]

Re : Nuage de points VBA

Merci pour vos réponses.
Juste avant de faire le graphique j'ai appelé la macro suivante:

    Columns(lettre2 & ":" & lettre2).Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Là ça a marché,

Merci pour votre aide 😉

 

[richert90]

Re : Nuage de points VBA

Bonjour à tous,
Je reviens vers vous sur ce sujet pour une question.
En fait j'ai voulu réutiliser le code :

    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

Sauf que ça n'a pas marché (alors que ça avait marché il y a une semaine pour un autre fichier...)

J'ai essayer ça:

    Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

et ça a marché. Pouvez vous m'expliquer comment ça se fait ? J'ai peur que ça dépende de la langue d'excel ou une configuration de ce genre .. Car je dois donner mon fichier à quelqu'un qui a Excel en Anglais donc si ça ne marche pas pour à cause du format , ça m’embêterait..
Merci d'avance