Discussion :

[korni184]

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 :

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

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

[casefayere]

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

Code :

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

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

sans avoir détaillé le reste

bonne journée

[Pierre Fauconnier]

Bonjour

Pas besoin de sélectionner les cellules pour cela.

Tu peux utiliser

Code :

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

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?

[korni184]

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 (????)

[korni184]

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

[Pierre Fauconnier]

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 :

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

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

[korni184]

Code :

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

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

[korni184]

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

[Pierre Fauconnier]

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 :

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

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