Discussion :

[chito79000]

Bonjour à tous,

J'ai un soucis sur ma macro sur la ligne ou il y a de mentionner ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("C2").Select
Do While ActiveCell.Value <> ""
    ActiveCell.Offset(0, 32).Select
    ActiveCell.FormulaR1C1 = "MID(RC[-21],11,4)"
    ActiveCell.Offset(1, -32).Select
Loop

A la fin de la macro il me note la formule MID et non le résultat...

[Kimy_Ire]

Bonjour chito79000,

Avec un "égal" = devant, ça donne quoi ? =)

Cordialement,
Kimy

[Thautheme]

Bonjour Chito, bonjour le forum,

Il te manque juste un signe égale (=) devant le MID :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=MID(RC[-21],11,4)"

[Édition]
Bonjour Kimy, on s'est croisé...

[chito79000]

J'ai bien modifié avec le = devant mais cela ne fonctionne pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("C2").Select
Do While ActiveCell.Value <> ""
    ActiveCell.Offset(0, 32).Select
    ActiveCell.FormulaR1C1 = "=MID(RC[-21],11,4)"
    ActiveCell.Offset(1, -32).Select
Loop

[Invité]

bonjour,
Pas de select selection et autre ActiveCell

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
dim L as long
l=2
Do While Range("C" & l).Value <> ""
Range("C" &  l).Offset(0, 32).FormulaR1C1 = "=MID(RC[-21],11,4)"
l=l+1
Loop

j'ai pas compris le do while mais bon!

[chito79000]

Cela ne fonctionne toujours pas..

[Invité]

regard j'ai modifié!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim L as long
l=2
Do While Range("C" & l).Value <> ""
Range("C" &  l).Offset(0, 32).FormulaR1C1 = "=MID(RC[-21],11,4)"
l=l+1
Loop

[chito79000]

Désolé du dérangement mais cela ne fonctionne toujours pas le résultat reste la formule et non les lettres