création d'une macro - aide

urbanito1

XLDnaute Occasionnel
le forum bonjour,

j'ai un tableau avec 25 colonnes et +- 75000 lignes


la colonne I contient des données de ce type
(0/1)
(1/1)
(1/10)
(1/2)
(1/3)

je souhaite insérer une nouvelle colonne après la colonne I avec la correspondace = exemple ( 1/1 ) = 1, (1/10)=0.10...

est-ce faisable ? fichier en annexe

merci
urbanito
 

Pièces jointes

  • TABLEAU EXCELDOWNLOAD 28 8 2014 TEST MACRO.xlsm
    16.5 KB · Affichages: 12
  • TABLEAU EXCELDOWNLOAD 28 8 2014.xlsx
    12.9 KB · Affichages: 24

pierrejean

XLDnaute Barbatruc
Re : création d'une macro - aide

Bonjour urbanito1

Teste:

Code:
Sub test()
tablo = Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row)
Columns("J").Insert
Range("J1") = "ETP"
For n = LBound(tablo, 1) To UBound(tablo, 1)
  tablo(n, 1) = Application.Evaluate("=" & tablo(n, 1))
Next
Range("J2").Resize(UBound(tablo, 1)) = tablo
End Sub
 

Staple1600

XLDnaute Barbatruc
Re : création d'une macro - aide

Bonjour à tous

Pour le fun, pour occuper cet après-midi plus que pluvieux par ici, une solution par formule
1) Insertion de la colonne manuellement
2) saisie dans cette nouvelle colonne de la formule ci-dessous
Code:
=(1*GAUCHE(SUBSTITUE(SUBSTITUE(I2;"(";"");")";"");CHERCHE("/";I2)-2))/(1*SUBSTITUE(STXT(I2;CHERCHE("/";I2)+1;99);")";""))
 

Discussions similaires

Réponses
7
Affichages
485
Réponses
6
Affichages
341

Statistiques des forums

Discussions
311 720
Messages
2 081 902
Membres
101 834
dernier inscrit
Jeremy06510