VBA copier une partie de la cellule
David
-
Bidouilleu_R Messages postés 1209 Statut Membre -
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")
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
-
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 exempleSub 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+