Ne sélectionner qu'une partie de la cellule avec VBA

[shindiana]

Bonsoir,

Je suis débutant en VBA et de ce fait je bute sur les problèmes les plus anodins.

Je souhaite copier le cours d'une cotation qui s'actualise d'une feuille excel à une autre. Pour cela j'ai utilisé le code suivant:

Worksheets("Construction automobile").Range("B3").Value = Worksheets("Feuil12").Range("B1").Value

Maintenant mon soucis est que la sélection copiée est un chiffre suivi d'un espace et du symbole dollar. J'aimerais copier uniquement le chiffre pour pouvoir utiliser la valeur numérique dans des formules.

Une idée?😕

 

[kjin]

Re : Ne sélectionner qu'une partie de la cellule avec VBA

Bonsoir,

n = Sheets("Feuil12").Range("B1")
vn = Mid(n, 1, Len(n) - 2)
If IsNumeric(vn) Then Sheets("Construction automobile").Range("B3") = CDbl(vn)

A+
kjin

 

[shindiana]

Re : Ne sélectionner qu'une partie de la cellule avec VBA

Et ça marche impecc!! 😀

Merci beaucoup kjin