VBA copier une partie de la cellule

Fermé

David - 19 avril 2010 à 19:32
Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 - 20 avril 2010 à 09:48

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:

VBA copier une partie de la cellule
Comment copier une vidéo youtube - Guide
Aller à la ligne dans une cellule excel - Guide
Excel compter cellule couleur sans vba - Guide
Excel cellule couleur si condition texte - Guide
Super copier - Télécharger - Gestion de fichiers

1 réponse

Réponse 1 / 1

Bidouilleu_R Messages postés 1181 Date d'inscription mardi 27 mai 2008 Statut Membre Dernière intervention 12 juillet 2012 295
20 avril 2010 à 09:48

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+

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

Excel: Si contient *partie texte1* OU *partie de texte2 alors...

Excel : si ma cellule contient tel texte ou tel texte

formule pour copier la valeur d'une cellule