création d'une macro - aide

pierrejean

XLDnaute Barbatruc

• 28 Août 2014

• #2

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

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 28 Août 2014

• #3

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...

 

Vote positif 0 Vote négatif

urbanito1

XLDnaute Occasionnel

• 28 Août 2014

• #4

Re : création d'une macro - aide

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Août 2014

• #5

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

 

Vote positif 0 Vote négatif