Copie d'une formule sur une colonne => #NOM?

Copie d'une formule sur une colonne => #NOM? - VB/VBA/VBS - Programmation

Marsh Posté le 02-05-2020 à 18:53:27    

Bonjour,
 
J'utilise une macro Excel pour copier une formule dans une colonne.
 
Exemple qui fonctionne  :)  
J'ai des dates dans la colonne A (01/02/2020) et je veux avoir l'année dans la colonne D
 
Si je remplace
ActiveCell.FormulaR1C1 = "=YEAR(RC[-3])"
par une formule plus complexe
ActiveCell.FormulaR1C1 = "=SI(ESTNUM(CHERCHE(""exp"",RC[-1])),""expert"",(SI(ESTNUM(CHERCHE(""deb"",RC[-1])),""débutant"",(SI(ESTNUM(CHERCHE(""form"",RC[-1])),""formation"",)))))"
 
Le résultat affiché est "#NOM?"  :fou:  
 
Si j'édite la cellule C2 (F2 + Entrée sans modifier la formule), le résultat apparait : "débutant" dans cet exemple
 
La 2ème formule est donc bonne ;;)
Pourquoi ai-je ce problème d'affichage du résultat ?  :pt1cable:  
 
Merci
Jay
 
Les données :

date nom
01/02/2020 1_deb_A
02/02/2020 2_deb_B
03/02/2020 3_exp_A
04/02/2019 4_exp_B
05/02/2020 5_exp_C
06/02/2018 6_form_A
07/02/2020 7_form_B
08/02/2020 8_form_C
09/02/2019 9_form_D
10/02/2020 10_exp_A
11/02/2019 11_deb_A


La macro :

Code :
  1. '' Macro1 Macro
  2. '
  3. ' ajout année en colonne L de l'onglet Racco clients
  5.     Sheets("Racco" ).Select
  6.     Columns("C:C" ).Select
  7.     Selection.ClearContents
  8.     Columns("D:D" ).Select
  9.     Selection.ClearContents
  10.    
  11. ' Calculniveau KO
  12.     Range("C1" ).Select
  13.     ActiveCell.FormulaR1C1 = "niveau"
  14.     Range("C2" ).Select
  15.     ActiveCell.FormulaR1C1 = "=SI(ESTNUM(CHERCHE(""exp"",RC[-1])),""expert"",(SI(ESTNUM(CHERCHE(""deb"",RC[-1])),""débutant"",(SI(ESTNUM(CHERCHE(""form"",RC[-1])),""formation"",)))))"
  16.     Range("C2" ).Select
  17.     With Selection
  18.         .HorizontalAlignment = xlCenter
  19.         .VerticalAlignment = xlBottom
  20.         .WrapText = False
  21.         .Orientation = 0
  22.         .AddIndent = False
  23.         .IndentLevel = 0
  24.         .ShrinkToFit = False
  25.         .ReadingOrder = xlContext
  26.         .MergeCells = False
  27.     End With
  28.    
  29.     'recopie jusquè à la derniere ligne non vide
  30.    
  31.     premiere = Range("C" & Rows.Count).End(xlUp).Row
  32.     dernière = Range("A" & Rows.Count).End(xlUp).Row
  33.     Range("C" & premiere & ":C" & dernière).FillDown
  34.  
  35. ' copie année OK
  36.     Range("D1" ).Select
  37.     ActiveCell.FormulaR1C1 = "Année"
  38.     Range("D2" ).Select
  39.     ActiveCell.FormulaR1C1 = "=YEAR(RC[-3])"
  40.     Range("D2" ).Select
  41.     With Selection
  42.         .HorizontalAlignment = xlCenter
  43.         .VerticalAlignment = xlBottom
  44.         .WrapText = False
  45.         .Orientation = 0
  46.         .AddIndent = False
  47.         .IndentLevel = 0
  48.         .ShrinkToFit = False
  49.         .ReadingOrder = xlContext
  50.         .MergeCells = False
  51.     End With
  52.    
  53.     'recopie jusquè à la derniere ligne non vide
  54.    
  55.     premiere = Range("D" & Rows.Count).End(xlUp).Row
  56.     dernière = Range("A" & Rows.Count).End(xlUp).Row
  57.     Range("D" & premiere & ":D" & dernière).FillDown
  59. End Sub


Le résultat obtenu :

date nom niveau Année
01/02/2020 1_deb_A #NOM? 2020
02/02/2020 2_deb_B #NOM? 2020
03/02/2020 3_exp_A #NOM? 2020
04/02/2019 4_exp_B #NOM? 2019
05/02/2020 5_exp_C #NOM? 2020
06/02/2018 6_form_A #NOM? 2018
07/02/2020 7_form_B #NOM? 2020
08/02/2020 8_form_C #NOM? 2020
09/02/2019 9_form_D #NOM? 2019
10/02/2020 10_exp_A #NOM? 2020
11/02/2019 11_deb_A #NOM? 2019


Le résultat attendu :


date nom niveau Année
01/02/2020 1_deb_A débutant 2020
02/02/2020 2_deb_B débutant 2020
03/02/2020 3_exp_A expert 2020
04/02/2019 4_exp_B expert 2019
05/02/2020 5_exp_C expert 2020
06/02/2018 6_form_A formation 2018
07/02/2020 7_form_B formation 2020
08/02/2020 8_form_C formation 2020
09/02/2019 9_form_D formation 2019
10/02/2020 10_exp_A expert 2020
11/02/2019 11_deb_A débutant 2019


 

Reply

Marsh Posté le 02-05-2020 à 18:53:27   

Reply

Marsh Posté le 02-05-2020 à 19:25:03    

Bonjour,
 
À tout hasard, le nom des fonctions dans les formules, l'un est en Anglais, les autres en Français.

Message cité 1 fois

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.
Reply

Marsh Posté le 02-05-2020 à 22:07:25    

MaybeEijOrNot a écrit :

Bonjour,
 
À tout hasard, le nom des fonctions dans les formules, l'un est en Anglais, les autres en Français.


 
Merci, j'ai passé toutes mes formules en anglais et ça fonctionne !!  :bounce:  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed