Discussion :

[gdpasmini]

Bonjour,

J'ai un soucis avec ma formule.

J'ai une chaine de caractère sur un ensemble de ligne de la colonne A.
Je souhaite faire un left de 14 caractères sur chacune des colonnes et les coller dans la colonne G.

Je fais donc la chose suivante :

Code :

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

Range ("G2:G" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=left(RC[-6],14)"

Mais J'ai systématiquement une erreur -> incompatibilité de type...

Pouvez vous m'aider ?

Merci d'avance

[Marc-L]

Bonjour,

pourquoi déjà ne pas l'effectuer directement via une formule de feuille de calculs ? Macro forcément nécessaire ?

[gdpasmini]

Merci.

Aucune obligation. Mais ça m'amuse . Je ne comprends pas pourquoi ça ne marche pas et ça m'énerve.

Merci d'avance !

[Phifou]

Et pourquoi pas ça :

Code :

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

1
2
3
for i = 1 to worksheets(1).cells(cells.rows.count, 1).end(xlup).row
    worksheets(1).cells(i, 7) = left(worksheets(1).cells(i, 1).value, 14)
next

ça devrait marcher.

[Phifou]

Range ("G2:G" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=left(RC[-6],14)"

Si tu l'écris comme cela :

Code :

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

Range ("G2:G" & Range("A" & Cells.Rows.Count.End(xlUp).Row)).FormulaR1C1 = "=left(RC[-6],14)"

C'était pas ça ton erreur ?

[gdpasmini]

Ahhhhh désolé...

Ma formule marchait bien mais l'erreur était sur une ligne au dessus mal commentée....

Merci en tout cas pour votre aide.