Re : [VBA] graphiques & format
Bonjour Gael,
Je crois que j'ai trouvé une facon de résoudre mon problème (même si c'est pas la plus estétique)
)
Voila un exemple de mon fichier excel
20070326 truc 0.161214 0.491596 0.474818
20070730 truc 0.149777 1.156918 0.486869
20070727 truc 0.153334 0.107677 0.452372
20071203 truc 0.129508 1.415533 0.650088
20070723 truc 0.170668 0.529860 0.529154
20071128 truc 0.113825 0.932746 0.541953
20070405 truc 0.168080 2.131541 0.603063
Les dates, ca fonctionne car elles ne sont pas importées avec des "." en revanche, c'est pas le cas des données "valeurs"
je suis donc en train de transformer tout ca ^^ puisque quand je transforme manuellement le point en virgule, ca remet bien en format "nombre".
Alors pour ca j'ai essayé deux méthodes :
Je selectionne puis je change
méthode 1 :
Sub tranformationnnn()
Range("C4", Range("C4").End(xlDown)).Select
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
=> ne fonctionne directement car ca ne prend pas mon fameux "val" ^^
méthode 2 :
Sub tranformationnnn2()
Dim Cell As Range
Range("C4", Range("C4").End(xlDown)).Select
For Each Cell In Selection
If InStr(1, Cell.Text, ".") > 0 Then
Cell.Value = CDbl(Val(Cell.Text))
End If
End Sub
Ca marche
Mais c'est moins joli donc ca doit prendre un peu plus de temps si il y a trop de cellules à scanner mais bon dans mon cas, le nombre reste raisonnable
Il ne me reste plus qu'à selectionner plusieurs colonnes et à rajouter des décimaux car lors de la transformation en nombre le "format" se remet automatiquement à 2
Enfin je me rapproche du bout, ca fait plaisir
Merci d'avoir répondu en tout cas!!!
Je vais aussi voir ce que sont ces fameuses "plages variables"
Ce site est formidable