MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

[urbanito1]

bonjour à la communauté

je voudrais votre avis sur ma macro

je reçois un tableau de 41 colonnes tous les mois ( nombre de colonnes ne variera pas - les lignes vont s'accroître tous les mois)

à côté de la Colonne S je voudrais rajouter une autre colonne

comme suit :

colonnes S colonne T

.4 0,4
.33 0,33
.25 0,25
1 1
0 0

les chiffres de la colonne S vont toujours de 0 à 1

j'ai enregistré la macro avec l'enregistreur
est-ce qu'elle vous semble valable?
comment faire pour que la colonne T aille jusqu'à la ligne 100.000 par exemple?

merci bien

Sub testcolonnes()
'
' testcolonnes Macro
' ajout 0, à la place du .
'

'
Columns("T:T").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("T1").Select
ActiveCell.FormulaR1C1 = "etp"
Range("T2").Select
ActiveCell.FormulaR1C1 = ""
Range("T2").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],"" ."",""0,"",1)"
Range("T2").Select
ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[-1],""."","" 0,"",1)"
Range("T2").Select
Selection.AutoFill Destination:=Range("T2:T7"), Type:=xlFillDefault
Range("T2:T7").Select
Range("T7").Select
Selection.AutoFill Destination:=Range("T7:T46"), Type:=xlFillDefault
Range("T7:T46").Select
ActiveWindow.SmallScroll Down:=-36
Range("R14").Select
End Sub

 

[R@chid]

Re : MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

Salut,
par formule si tu veux bien??
en T2 :

=CNUM(REMPLACER(S2;TROUVE(".";S2);1;","))

@ tirer vers le bas

 

[Pierrot93]

Re : MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

Bonjour,

peut être une autre approche en utilisant la conversion, sous 2003 barre de menu => données => convertir...

bon après midi
@+

 

[urbanito1]

Re : MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

rachid : formule ok mais problème lorsque c'est 0 ou 1

pierrot : je suis sur excel 2007
je connaissais convertir , j'ai fait le test, je n'ai pas l'impression que ça fonctionne

Merci à vous deux pour les tuyaux
urbanito

 

[R@chid]

Re : MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

Salut,
voir pj si ca te convient??

 

[urbanito1]

Re : MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

Merci Rachid

à la prochaine

 

[R@chid]

Re : MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

Re,
cette discussion attend une reponse : https://www.excel-downloads.com/threads/substituer.177961/
c'est resolu ou non??

 

[urbanito1]

Re : MACRO conversion de .4 en 0,4, de .67 en 0,67, de .8 en 0,8 ecetera....

oui merci bien