Problème VBA

C

choupi_nette

XLDnaute Occasionnel

• 9 Février 2012

• #2

Re : Problème VBA

Bonjour,
Essaie:

Sheets("Sandrine2012").Select
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2").Select

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

L

lolo42

XLDnaute Occasionnel

• 9 Février 2012

• #3

Re : Problème VBA

Bonjour choupi_nette,

j' ai bien essayé ta proposition, mais ça ne fonctionne pas;
GRRRRR.... !!!

Je ne comprend pas pourquoi il y a Range("A2").Select ?

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 9 Février 2012

• #4

Re : Problème VBA

Bonjour lolo42,

Je suis partie de la macro qu'il y avait dans ton fichier et j'ai adapté... Ça semble fonctionner .

VB:

Sub essai()
Dim Cellule As Object
Dim Chaine As String
Dim Valeur As Single
For Each Cellule In Range("E6:E10")         ' Plage à adatper
    If InStr(1, Cellule.Text, ",") <> 0 Then    ' .text au lieu de .value
        Chaine = Replace(Cellule.Text, ",", ".")  ' .text au lieu de .value et inverser , et .
        Valeur = CDbl(Chaine)
        Cellule.Value = Valeur
        Cellule.NumberFormat = "0.00000"
    End If
Next Cellule
End Sub

A+

 

Vote positif 0 Vote négatif

L

lolo42

XLDnaute Occasionnel

• 9 Février 2012

• #5

Re : Problème VBA

Merci à toi pour ta réponse;
je l' ai testé mais ça ne fonctionne pas: il doit y avoir autre chose de mal configuré;
je garde quand même ta VBA.

Merci pour ta réponse du Québec
A+

 

Vote positif 0 Vote négatif

C

choupi_nette

XLDnaute Occasionnel

• 10 Février 2012

• #6

Re : Problème VBA

Bonjour,
Effectivement Range A2 select ne sert pas a grand chose...
En fait vu qu'à l'etape d'avant tout etait selectionné pour eviter une erreur malheureuse il vaut mieux selectionner une cellule plutot que toutes.. rien de plus

 

Vote positif 0 Vote négatif