Discussion :

[JohannCOU]

Bonjour à tous,

Je me permet de faire appel à vous car je galère sur un problème (bénin pour beaucoup d'entre vous, je pense).

Le contexte: Je récupère des nomenclatures au format CSV, extraite d'un logiciel de conception, que je doit travailler pour pouvoir les insérer en automatique dans notre ERP. Pour cela, j'ouvre par macro le CSV, j'ouvre un modèle où il y a des tableaux permettant de faire des conversions par (=RECHERCHEV). Je copie la feuille du fichier CSV que je ferme ensuite puis je cherche à transformer les données de la feuille "Nomenclature brute" à la feuille "Nomenclature à insérer", pour ensuite enregistrer cette dernière dans un classeur indépendant du modèle.

Le problème: Pour transformer les données, je voudrais insérer des formules dans les cellules mais cela ne fonctionne pas comme je veux. J'ai enregistrer une macro et cela me sort du formulaR1C1 que je ne trouve pas lisible et je n'arrive pas à insérer ma variable "li" pour le choix de la ligne (Inutile d'ailleurs en R1C1, il me semble). Donc je souhaite passer par .formula pour écrire les expressions comme dans les cellules. J'ai privilégié .formula à .formulalocal pour ne pas avoir de problème avec des personnes qui auraient des versions anglaises.

Si quelqu'un peut m'aider à résoudre mon problème. ça serait cool.

Je vous joint mon fichier avec une feuille supplémentaire "Nomenclature MAIN" pour vous montrer le résultat que j'attends.

Masque transformation NOMENCLATURE.xlsm

PS: Le code est en court. je n'ai pas été au bout. j'attends de voir si je m'engage dans la bonne direction.

Je vous remercie par avance pour votre aide.

Johann

[mercatog]

Bonjour

exemple simpliste

Code :

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

1
2
3
4
Dim i as long
 
i=2
Worksheets("NomFeuille").range("A3").Formula="=SUM(A1:A" &i &")"

[anasecu]

Bonjour,

Lorsque l'on débute et que l'on veux insérer une formule avec FormulaR1C1 ou Formula c'est prenant
car il faut mettre en anglais et calculer lignes/ colonnes.

Le plus simple, c'est d'utiliser FormulaLocal qui fonctionne avec le français par exemple

Code :

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

1
2
3
4
5
6
Dim der As Long
With Sheets("Feuil1")
    der = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A1").FormulaLocal = "=SOMME(A2:A" & der & ")"
    .Range("D2:D" & der).FormulaLocal = "=A2*B2"
End With

Il n'y a ainsi qu'à copier la formule créée sur la feuille en incluant les variables.
J'ai rajouté la possibilité de mettre la formule sur toute la plage si la formule peut s'étendre sans avoir à boucler sur les lignes.

[JohannCOU]

Bonjour,

Merci mais il me semble que j'avais compris tout ça. Le problème est que je n'arrive pas à l'appliquer à mon exemple.

Est-ce que quelqu'un peut me dire pourquoi?

Merci d'avance.

[mercatog]

Parceque tu ne l'as pas appliqué correctement.
Ecrit ta formule et remplaces les constantes par tes variables en les entourant de "& variable &"

Ne pas mélanger les , et les ; dans les formules

Doubler les " quand elles sont dans la formule initiale

Fais d'abord des debug.print pour voir le résultat obtenu pour la chaine de caractère composant la formule

Voila des conseils à appliquer et pas besoin de ton fichier

[JohannCOU]

Merci mercatog pour tes conseils,

A force de bidouiller je me suis rendu compte que mon problème venait de certaines lignes qui fonctionnent en formulalocal mais pas en formula malgré la traduction. Cela me semble bizarre mais bon je vais tout passer en formulalocal pour ne plus avoir de problème.

Voici mon code avec les lignes qui ne fonctionnent pas en commentaire et celle qui fonctionne juste au-dessus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TRANSFORMATION() 'Travail de la nomenclature Macro
 
nli = 48
For li = 2 To nli
    Sheets(2).Cells(li, "A").Formula = "='Nomenclature brute'!A" & li 'Recopie du niveau hiérarchique"
    Sheets(2).Cells(li, "B").FormulaLocal = "=SOMMEPROD((NBCAR(A" & li & ")-NBCAR(SUBSTITUE(A" & li & ";""."";))))+1" 'Transformation du niveau hierarchique en niveau standard
    'Sheets(2).Cells(li, "B").Formula = "=SUMPRODUCT((LEN(A" & li & ")-LEN(SUBSTITUTE(A" & li & ";""."";))))+1" 'Transformation du niveau hierarchique en niveau standard
    Sheets(2).Cells(li, "J").Formula = "=IF(OR('Nomenclature brute'!I" & li & "=""0"",'Nomenclature brute'!I" & li & " = """"),"""",'Nomenclature brute'!I" & li & ")" 'Recopie de l'indice si différent de 0"
    Sheets(2).Cells(li, "D").Formula = "=UPPER(CONCATENATE('" & "Nomenclature brute'!C" & li & "," & "J" & li & "))" 'Insertion du code article en majuscule
    Sheets(2).Cells(li, "E").Formula = "=UPPER('" & "Nomenclature brute'!D" & li & ")" 'Recopie de la désignation en majuscule
    Sheets(2).Cells(li, "G").FormulaLocal = "=SI('Nomenclature brute'!F" & li & "="""";'Nomenclature brute'!E" & li & ";'Nomenclature brute'!E" & li & "*'Nomenclature brute'!F" & li & ")" 'Recopie de la quantité"
    'Sheets(2).Cells(li, "G").Formula = "=IF('Nomenclature brute'!F" & li & "="""";'Nomenclature brute'!E" & li & ";'Nomenclature brute'!E" & li & "*'Nomenclature brute'!F" & li & ")" 'Recopie de la quantité"
    Sheets(2).Cells(li, "H").FormulaLocal = "=RECHERCHEV('Nomenclature brute'!G" & li & ";Types_article;2;FAUX)" 'Conversion code de type article
    'Sheets(2).Cells(li, "H").Formula = "=VLOOKUP('Nomenclature brute'!G" & li & ";Types_article;2;FALSE)" 'Conversion code de type article
 
 
 Next li
 
End Sub

Je ne comprend pas pourquoi elle ne fonctionne pas!!

Merci encore pour les conseils.