Convertir format texte en nombre

[GUYANAIS]

Bonjour 😉

Je voudrais transformé par une macro une plage de cellule qui comporte des chiffres en format texte.
Devant chaque chiffre il y a une apostrophe. J'ai essayé avec le chiffre 1 dans une cellule et un copie collage spécial multiplier, mais ca ne fonctionne pas et je voudrais savoir pourquoi ??. Je vous mets mon bout de code macro. Merci.

Private Sub CommandButton1_Click()
    Sheets("Onglet1").Range("A1:G130").Copy 
    Sheets("Ongelt2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 
    Range("H1").Select 
    Application.CutCopyMode = False
    Selection.Copy 
    Range("B3:E130").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End Sub

Cordialement

 

[Tibo]

Re : Convertir format texte en nombre

Bonsoir,

Sans passer par VBA, on peut passer par le menu Données Convertir Suivant Suivant

Je te laisse tenter l'adaptation VBA (car moi pas être capable).

@+

 

[BOISGONTIER]

Re : Convertir format texte en nombre

Bonsoir,

Sur mon poste, la multiplication par 1 fonctionne.

En VBA:

For Each c In Selection
c.Value = c.Value
Next c

http://boisgontierjacques.free.fr/pages_site/Conversion.htm

JB

 

[GUYANAIS]

Re : Convertir format texte en nombre

Bonjour BOISGONTIER 🙂

Quand j'utilise cette multiplication les chiffres passe d'alignement gauche à alignement droite mais n'enlève pas le caractère apostrophe qui est au devant le chiffre dans la plage sélectionner.
Voir le fichier joint

 

[GUYANAIS]

Re : Convertir format texte en nombre

Bonjour,🙂

Depuis que j'ai mis mon fichier en ligne personne ne m'a répondu ?? Merci pour celui qui pourra me donner un coup de main. A bientôt

 

[BOISGONTIER]

Re : Convertir format texte en nombre

Bonjour,

Voir PJ

JB

 

[GUYANAIS]

Re : Convertir format texte en nombre

Bonjour,

En fait j'ai dans mes cellules à transformer du texte ou des chiffres à transformer en NOMBRES. J'utilise donc ce code là

If  IsNumeric(xCell) then xCell.Value = CDbl(xCell.Value)