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
 

Fichiers joints

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
 

13GIBE59

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

Bonjour urbanito.

Ce que tu souhaites ne paraît pas difficile. As-tu essayé l'enregistreur de macros ?

Oup ! Coucou Pierrejean, solution clé en main, comme d'hab...
 

urbanito1

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

Mille mercis Pierrejean,
13gibe59, j'avais essayé mais capacités limitées
bonne après-midi
 

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


Haut Bas