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

[Invité]

qu'est ce que tu as colonne N?

[chito79000]

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

[Invité]

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

[Thautheme]

Bonjour le fil, bonjour le forum,

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

[chito79000]

Cela provient du fichier ?

[Invité]

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.

[chito79000]

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

[Kimy_Ire]

Re chito79000,

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

Code :

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

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

[chito79000]

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.

[Philippe Tulliez]

Bonjour,

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)

[chito79000]

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.

[Philippe Tulliez]

Bonjour,

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.

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