VBA copier une partie de la cellule

David -  
Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   -
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")
A voir également:

1 réponse

Bidouilleu_R Messages postés 1181 Date d'inscription   Statut Membre Dernière intervention   295
 
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+
0