Problème VBA

[lolo42]

Bonjours à tous,
je bloque sur une VBA pour changer les virgules en points dans le tableau ci joint.
Merci pour votre aide.

 

[choupi_nette]

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

 

[lolo42]

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 ?

 

[Grand Chaman Excel]

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 .

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+

 

[lolo42]

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+

 

[choupi_nette]

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