VBA excel : extraction dans un réel à virgule

Résolu/Fermé
Yeti - 22 oct. 2009 à 09:29
 Yeti - 22 oct. 2009 à 10:41
Bonjour,

J'ai une colonne de données dans excel avec des nombre réels du type "2.1"

Mon objectif est de réussir à "extraire" le nombre à gauche de la virgule : ici "2", et celui à sa droite : ici "1" ;
afin de réaliser ensuite des calcules distincts.

Quelqu'un aurait-il la solution?

Merci

2 réponses

lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 565
22 oct. 2009 à 09:46
Salut,

Dans B1 tu mets =ENT(A1)
Dans C1 tu mets =MOD(A1;B1)
0
Salut,

C'est pas mal du tout.

Le problème c'est que c'est une formule excel, et je dois traiter des milliers de lignes.

Comment l'appliquer à une macro afin d'effecter une boucle for sur toute les lignes.

Merci
0
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 565
22 oct. 2009 à 10:21
Re,

Et pourquoi ne tires tu la formule vers le bas?
Oui c'est possible avec une macro

Sub separer()
    For r = 1 To Range("a1").End(xlDown).Row
      v = Split(Cells(r, 1), ",")
      Cells(r, 2) = v(0)
      Cells(r, 3) = v(1)
    Next
End Sub

0
Génial ça marche niquel.

Je préfère la macro parceque c'est plus rapide pour faire l'opération sur plusieurs fichier.

Merci beaucoup en tout cas, je vais pouvoir faire pas mal de trucs avec ça.
0