Discussion :

[ayms75]

Bonjour à tous,

Voila j'ai un petit soucis quand je mets mes 2 macros sur un bouton où je recréais une troisième macro que j'attribue au bouton et qui fait appel au 2 macro dont j'ai besoin.

Les 2 macros marchent bien indépendamment mais quand je fais la troisième macro où je fais appel à eux, ça ne marche pas comme je le souhaite, quand j’appuie sur le bouton la première actualise des données et la deuxième change les points en virgule sauf qu'à la fin ça remet les virgules en point.

Je vous joins mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Refresh()
'
' donnée Actualisée
 
    ActiveWorkbook.RefreshAll
End Sub
 
Sub changer_point_en_virgule()
 
Columns("g:g").NumberFormat = "general"
Columns("g:g").Value = Columns("g:g").Value
 
End Sub
 
Sub bouton()
 
Call Refresh
 
Call changer_point_en_virgule
 
End Sub

Je souhaiterais avoir qu'un bouton

[Sebphyto]

salut ayms75,

Chez moi ça fonctionne???
Mais essais avec çà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Columns("G:G").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

à la place de ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("g:g").NumberFormat = "general"

seb

[Invité]

Non ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("g:g").NumberFormat = "general"
Columns("g:g").Value = Columns("g:g").Value

et ça c'est la même chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Columns("g:g").NumberFormat = "general"
Columns("G:G").Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Coté Excel le virgule est le caractère décimale alors quand vba c'est le point.

La vérité est ailleur!
Accessoirement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Columns("g:g").NumberFormat = "general"
Columns("g:g").Value = Columns("g:g").Value2

vue que la value de la cellule contient un [.] dll devient avec [,] d'ou la proposition du replace. Value2 retourne la valeur numérique!

Je fais parti de ceux qui veulent toujours avoir raison!

Le problème provient d'un import csv dans Excel par exemple. Si dans cette procédure tu ne précise pas que la colonne est numérique alors Excel voit les points comme du texte d'ou la conversion en numérique. Elle devrait intervenir qu'au moment de l'import! Alors que tu l'exécute plusieurs fois!

[ayms75]

Merci pour vos réponses, j'ai bien fait la modification rdurupt mais ça me fait toujours pareil.
Je vais chercher les données sur un site internet, c'est peut être pour ça, je te joins le fichier


Récupération de cours - Copie.xlsm

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub changer_point_en_virgule()
 
Columns("B:G").NumberFormat = "general"
Columns("B:G").Value = Columns("B:G").Value2
 
End Sub

[ayms75]

Toujours pareil rdurupt, quand j’appuie sur mon bouton, je me retrouve avec des points au lieu des virgules