VBA copier une partie de la cellule

David -  
Bidouilleu_R Messages postés 1209 Statut Membre -
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")

1 réponse

  1. Bidouilleu_R Messages postés 1209 Statut Membre 296
     
    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