VBA Excel, problème de filtre avec valeurs décimales

VBA Excel, problème de filtre avec valeurs décimales - VB/VBA/VBS - Programmation

Marsh Posté le 02-03-2008 à 21:12:04    

bonjour
dans excel sous VBA
j'ai une colonne avec des nombres de 0 à 100 avec des virgules
En haut de la colonne j'ai mis un scrollbar me permetant de selectionner rapidement une valeur
En G7, j'ai le resultat du scrollbar (ex : 14,7)
 
Dans la foulée un filtre est exécuté sur la colonne G
Je voudrais que toutes les valeurs à +ou- 0.5 de la valeur de G7 reste affichées dans mon filtre
et ca ne marche pas
 
 

Code :
  1. Private Sub ScrollBar1_Change()
  2.     Range("G1" ).Select
  3.     dia1 = ">=" & ActiveCell.Value - 0.5
  4.     dia2 = "<=" & ActiveCell.Value + 0.5
  5.     Selection.AutoFilter Field:=7, Criteria1:=dia1, Operator:=xlAnd, Criteria2:=dia2
  6. End Sub

Reply

Marsh Posté le 02-03-2008 à 21:12:04   

Reply

Marsh Posté le 02-03-2008 à 21:16:46    

Indice  :wahoo:  
Le problème est du aux . ou ,  
mon fichier a comme séparateur des ,
mais j'ai un peu de mal a jongler avec tout ça

Reply

Marsh Posté le 03-03-2008 à 23:11:32    

personne ?

Reply

Marsh Posté le 04-03-2008 à 07:38:54    

Remplacer les points par des virgules ? (menu Edition>Remplacer)... A automatiser avec une macro si ça marche.


---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Marsh Posté le 12-03-2008 à 22:27:07    

ho !!
désolé pour le retard
en effet j'ai testé, ca marche, mais je voudrais ne pas trop toucher au séparateur décimaux (qui sont des virgules sur tout mes fichiers)  
 
Je me suis apercu que la macro fonctionnait, mais que le filtre n'était pas appliqué
quand je vais manuellement dans mon filtre, je vois que les valeurs on bien été inséré, mais ca na pas fonctionné
 
SAUF,  
si je met un filtre avec une valeur seulement
et que cette valeur est sans virgule
 

Code :
  1. Private Sub ScrollBar1_Change()
  2. Range("G1" ).Select
  3. dia1 = "=" & ActiveCell.Value
  4. Selection.AutoFilter Field:=7, Criteria1:=dia1
  5. End Sub


Message édité par daniel-12 le 12-03-2008 à 22:27:55
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed