Soucis macro fonction MID

Bonjour à tous,

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

Code:

---

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

Bonjour chito79000,

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

Cordialement,
Kimy

Bonjour Chito, bonjour le forum,

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

Code:

---

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

---

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

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

Code:

---

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

---

bonjour,
Pas de select selection et autre ActiveCell

Code:

---

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!

Cela ne fonctionne toujours pas..

regard j'ai modifié!

Code:

---

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

---

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

qu'est ce que tu as colonne N?

Des exemples de la colonne
D02015N \ AJ09
D02007N \ AJ01
D02007N \ AJ01
D02007N \ AJ01

voila ce que je récupère en AL
AJ09
AJ01
AJ01
AJ01

Bonjour le fil, bonjour le forum,

J'ai testé chez moi le code proposé dans le post #3 et ça fonctionnait !...

Cela provient du fichier ?

Citation:

---

Envoyé par Thautheme

Bonjour le fil, bonjour le forum,

J'ai testé chez moi le code proposé dans le post #3 et ça fonctionnait !...

---

égoïstement j'ai testé le poste #7 et ça marche.

Les données de la colonne N viennent d'une autre requête. le copier coller en valeurs cela ne fonctionne pas....

Re chito79000,

Peut-être devrais-tu passer par la méthode VBA Mid avec quelque chose du type :

Code:

---

Range("C" & l).Offset(0, 32) = Mid(Range(ma_range).Value, y, z)

---

Je pense que tu aurais moins de soucis.

Après si tu as besoin d'une formule dans ta colonne, oublie ce que je viens de dire. ^^

Cordialement,
Kimy

Bonjour à tous,

Désolé du dérangement.

Le problème venait du fichier à vrai dire ce qui me semble bizarre. J 'ai refait la même macro sur un autre fichier et cela a fonctionné.

Merci pour vos messages.

Bonne fin de journée.

Bonjour,

Citation:

---

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

---

Je vois trois possibilités au problème que tu décris.
1) La cellule active est au format texte
2) L'option Afficher les formules est activée
3) La feuille n'est pas une feuille de calcul mais une feuille "Macro Xl4" (moins probable sans doute)

Oui plus j'y pense plus je pense que c'est La cellule active est au format texte.
Mais comment éviter cela vu qu'elle s'est mis automatiquement.

Bonjour,

Citation:

---

Oui plus j'y pense plus je pense que c'est La cellule active est au format texte.

---

Il faut faire plus qu'y penser, il faut vérifier.

Citation:

---

Mais comment éviter cela vu qu'elle s'est mis automatiquement.

---

Le format texte s'est mis automatiquement vraisemblablement suite à ton erreur de syntaxe (voir le code dans ta question initiale).