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);")";""))
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas