Macro --> formule YEAR

Bonjour,

Je suis actuellement entrain de développer une macro et je rencontre un problème, pouvez-vous m'aider ??


J'ai un tableau qui comporte 11 colonnes :

- la premiere colonne est un numéro à 12 chiffres (un identifiant) column A
- la cinquième colonne est une date (12/02/2002) par exemple column E

Je souhaite faire un Do While pour que une fois que la macro à detecter qu'il y a plus de données (exemple a30), il fasse en column K un =year de la column E pour ne faire apparaite que l'année, voilà ce que j'ai écrit :


' insertion de la column YEAR

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

range("A1").select   do while activecell.value <>""   if activecell.offset (1,0).select then   activecell.offset (0,10).value = activecell.formulaR1C1 = "=YEAR(RC[-6])"   else   end if   loop

---

Le problème c'est que dans la column K, il m'affiche False...$
comment je peux faire pour résoudre cela ??

Bonjour,
si seule ta colonne K est concernée par le résultat, je pense que la formule est plutot

Code:

---

ActiveCell.Offset(0, 10).FormulaR1C1 = "=YEAR(RC[-6])"

---

sans avoir détaillé le reste

bonne journée

Bonjour

Pas besoin de sélectionner les cellules pour cela.

Tu peux utiliser

Code:

---

1 2 3 4 5 6 7

Dim Cellule As Range   Set Cellule = Range("a1") Do While Cellule.Value <> "" Cellule(1, 11).FormulaR1C1 = "=year(RC[-6])" Set Cellule = Cellule(2) Loop

---

Es-tu certain de vouloir commencer en A1?

non je ne suis pas obliger de me placer en A1, ce n'est qu'un identifiant, dans la colone E les dates (format ??/??/????) et dans la colone K format (????)

je viens de faire le test Mr "Pierre Fauconnier", la macro fonctionne, mais les données qui s'affiche sont #NAME?, pourtant lorsque je clique dans la cellulle, elle a bien pris en compte la formule Year, il y a un petit triangle vert en haut à gauche...

et j'ai déjà rencontré ce problème en faisant un replace "+" par " " avec la macro, il affiche des petits triangles vertss, qui fausse la formule somme, une solution pour ces deux problème ??

Colonne E: Tu peux définir le format par Excel, normalement.

Si tu veux le faire en VBA, c'est la propriété NumberFormat. Voici le code générique

Code:

---

Range("E2").NumberFormat="mm/dd/yyyy"

---

La colonne K n'a pas besoin de format spécifique, puisque tu renvoies un nombre entier. Le format standard peut être utilisé sans problème.

[EDIT]
Pour le problème de #Name?, regarde en K ce que tu as comme formule. Es-tu sûr d'avoir correctement retranscrit le code que je t'ai donné?

Mets une copie du code que tu as utilisé (n'oublie pas les balises de code...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Range("E2").NumberFormat="mm/dd/yyyy"   Dim Cellule As Range   Set Cellule = Range("a1")   Do While Cellule.Value <> ""   Cellule(1, 11).FormulaR1C1 = "=year(RC[-6])" Set Cellule = Cellule(2)   Loop

---

l'erreur provené d'un espace en trop dans VBA, je vous remercie énormément pour cette formule !

est-il possible que vous ayez une solution pour le triangle vert ?? lorsque je remplace les + par rien, et les espaces avant les chiffres par rien aussi (se sont des données retraitées par un serveur, donc les chiffres arrivent avec 10espaces derriere et un plus à la fin: donc je cherche tjrs une solution !

merci d'avance

Si le triangle vert est en colonne K, c'est probablement que le format des cellules est en "texte" alors qu'il doit être en standard.

Si tu le forces en VBA, le code générique est

Code:

---

range("k1").NumberFormat = "General"

---

Merci du coup de main,

est-il encore possible d'avoir une aide ?
si, oui je prenderais le temps de bien formuler le problème, je pense que la solution est simple, mais je suis encore beaucoup trop débutant

Les forums sont là pour ça.

Il suffit de poser la question en créant une nouvelle discussion, pour ne pas mélanger les sujets...


Si ce sujet-ci est résolu, n'oublie pas le tag :resolu: en cliquant sur le bouton idoine en bas de la discussion.


Bonne continuation sur nos forums!