VBA copier une partie de la cellule

Question

Bonsoir à toutes et à tous,

Débutant en VBA, j'ai un petit problème concernant le copier coller de cellule.

Le contenu de ma cellule est la valeur d'une cotation qui est exprimée en $ comme ceci "75,44 $"

J'aimerais ne sélectionner que le contenu numérique.

Comment puis-je faire?

Merci d'avance

Mon code est le suivant

Sheets("Feuil12").Range("B1").Copy Destination:=Sheets("Construction automobile").Range("B3")

Bidouilleu_R · Answer

J'aimerais ne sélectionner que le contenu numérique. 

pour ne sélectionner que la partie numérique il faut simplement retirer le charactère dollard "$"
Note que sur une valeur numérique ( que des chiffres) tu peux appliquer le format
monétaire qui convient dans ce cas le dollard se place devant donc attention.


je suppose que les données sont en B1 jusqu'à B100 par exemple


Sub essai1()
Dim C As Variant
Dim X As Variant
Dim i As Long
Sheets("Feuil12").select
X = Range("A12").Value
i = 0
For Each C In Range("B1:B100")
    X = C.Value
        If InStr(1, X, "$") > 0 Then
            X = Replace(X, "$", "", 1)
        End If
        X = CDbl(X)  ' on transforme en double
    Sheets("Construction automobile").Range("B3").Offset(i, 0).Value = X
    i = i + 1
Next
End Sub


Les données seront convertit en numérique sans le "$" a condition que le dollard soit un texte ...

A+

VBA copier une partie de la cellule

1 réponse

Votre réponse

Discussions similaires

Newsletters