séparation nobmres decimaux et entiers

pierrejean

XLDnaute Barbatruc

• 23 Juin 2016

• #2

Re : séparation nobmres decimaux et entiers

Bonjour chreitate

Un essai

 

Pièces jointes

• coordonnées.xlsm

  33.6 KB · Affichages: 29

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 23 Juin 2016

• #3

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.

Code:

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

 

Vote positif 0 Vote négatif

C

chreitate

Guest

• 23 Juin 2016

• #4

Re : séparation nobmres decimaux et entiers

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

 

Vote positif 0 Vote négatif

C

chreitate

Guest

• 23 Juin 2016

• #5

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

 

Dernière modification par un modérateur: 23 Juin 2016

Vote positif 0 Vote négatif

C

chreitate

Guest

• 23 Juin 2016

• #6

Re : séparation nobmres decimaux et entiers

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

 

Pièces jointes

• COORDONNEES-3.xlsx

  77.8 KB · Affichages: 28

Vote positif 0 Vote négatif

C

chreitate

Guest

• 23 Juin 2016

• #7

Re : séparation nobmres decimaux et entiers

pierrejean à dit:

Bonjour chreitate

Un essai

Cliquez pour agrandir...

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

 

Pièces jointes

• COORDONNEES-3.xlsx

  77.8 KB · Affichages: 20

Vote positif 0 Vote négatif

C

chreitate

Guest

• 23 Juin 2016

• #8

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

 

Pièces jointes

• COORDONNEES-3.xlsx

  77.8 KB · Affichages: 23

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Juin 2016

• #9

Re : séparation nobmres decimaux et entiers

Re

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

Code:

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

 

Pièces jointes

• coordonnées.xlsm

  90.9 KB · Affichages: 25

Vote positif 0 Vote négatif

C

chreitate

Guest

• 24 Juin 2016

• #10

Re : séparation nobmres decimaux et entiers

Merci.
salutations

 

Vote positif 0 Vote négatif