séparation nobmres decimaux et entiers

[chreitate]

Bonjour,
qq1 m'aider : j'ai une série de données (25000 lignes) et je veux extraire (séparer) les chiffres ou nombre entiers de ceux décimaux.
Quelles est la solution pour éviter de le faire manuellement (risque d'erreur + temps).
En PJ exemples des données.
Salutations

 

[pierrejean]

Re : séparation nobmres decimaux et entiers

Bonjour chreitate

Un essai

 

[Robert]

Re : séparation nobmres decimaux et entiers

Bonjour Chreitate, PierreJean, bonjour le forum,

Le code ci-dessous renvoie la partie entière dans l'onglet Feuil2 et la partie décimale dans l'onglet Feuil3.

Sub Macro1()
TV = Worksheets("Feuil1").Range("A1").CurrentRegion
ReDim TE(1 To UBound(TV, 1), 1 To UBound(TV, 2))
ReDim TD(1 To UBound(TV, 1), 1 To UBound(TV, 2))
For I = 1 To UBound(TV, 1)
    For J = 1 To UBound(TV, 2)
        If I = 1 Then TE(I, J) = TV(I, J) Else TE(I, J) = Int(TV(I, J))
        If I = 1 Then TD(I, J) = TV(I, J) Else TD(I, J) = TV(I, J) - Int(TV(I, J))
    Next J
Next I
Worksheets("Feuil2").Range("A1").Resize(UBound(TE, 1), UBound(TE, 2)).Value = TE
Worksheets("Feuil3").Range("A1").Resize(UBound(TD, 1), UBound(TD, 2)).Value = TD
End Sub

 

[chreitate]

Re : séparation nobmres decimaux et entiers

Merci, mais comment je peux appliquer cette formule c-à-d pourriez vous expliquer comment faire ça?
Salutations

 

[chreitate]

Re : séparation nobmres decimaux et entiers

Merci, mais comment je peux appliquer cette formule c-à-d pourriez vous expliquer comment faire ça?
exemple, le fichier CORDONNEES-2 contient + de 1500 données, me faire plus d'explication car je ne suis pas un grand connaisseur de XL.
Salutations

 

[chreitate]

Re : séparation nobmres decimaux et entiers

Excuse, le fichier modifié est en PJ COORDONEES-3.
salutations

 

[chreitate]

Re : séparation nobmres decimaux et entiers

Bonjour chreitate

Un essai

Merci de montrer comment vous avez fait.
Voir le fichier COORDONNEES-3.
Merci et salutations

 

[chreitate]

Re : séparation nobmres decimaux et entiers

Merci, veuillez m'expliquer comment le faire.
Si je prends comme exemple le fichier COORDONNEEZ-3 qui fait plus de 1500 lignes.
Salutations

 

[pierrejean]

Re : séparation nobmres decimaux et entiers

Re

Tu copie tes données dans ce fichier
Tu adaptes cette ligne dans le vba editor

Range("B2:D" & Range("A" & Rows.Count).End(xlUp).Row) : de B à D tes données,  A la colonne ou se trouve la derniere donnée

Puis tu cliques sur le bouton
NB: deja fait ici

 

[chreitate]

Re : séparation nobmres decimaux et entiers

Merci.
salutations