Introduire une formule par code VBA

Bonjour à tous, je suis nouvellement inscrit pour soumettre un problème concernant l'utilisation d'Excel et du VBA, pour insérer dans une cellule précise une fonction grâce à une macro. Je suis plutôt débutant en matière de VBA. Pour automatiser certaines tâches dans un classeur xlsm, macros que j'ai créé. Je cherche à récupérer le texte d'une cellule E6 dans laquelle ce texte est obtenu par formule Concatener. J'ai donc pour ce faire essayer une nouvelle macro. Tout fonctionne, sauf le fait qu' ayant utilisé l'enregistreur de macros Excel, la formule écrite dans cette nouvelle macro reste figée, au niveau de la plage de recherche. (explication dans le fichier xlsx joint). Mon classeur me sert à inventorier des produits, et à chaque nouvel inventaire, j'ai besoin de récupérer les valeurs du mois précédent par rechercheV. Le problème, s'est qu'une colonne est créée tous les mois et cela fait donc changer la plage de recherche. La colonne E (fin de plage) devient F le mois suivant. Je pense qu'il doit être possible au lancement de la macro d'avoir une variable à saisir, qui permettrait de modifier la plage de recherche, et donc le numéro de colonne à retourner.
Voici le texte brut de cette macro "changement de mois"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ChangM() ' ChangM Macro ' changer la plage de recherche   ' Range("E6").Select Selection.Copy Range("J8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-7],Precinvent!R2C1:R47C17,17,FALSE)" Range("J8").Select Selection.AutoFill Destination:=Range("J8:J67") Range("J8:J67").Select ActiveWindow.SmallScroll Down:=15 End Sub

---

Salut.

Perso, je transformerais la plage des anciens inventaires en tableau structuré (C'est toujours mieux de travailler avec des tableaux structurés).

Pièce jointe 595124



Du coup, tu pourrais utiliser la fonction COLONNES(...) pour récupérer l'index de la dernière colonne.

Pièce jointe 595125




sur le fond, je n'organiserais pas mes données ainsi, car la ligne d'intitulés de ton tableau contient en fait des données "métier" qui devraient être placée dans une colonne dudit tableau. Mais c'est un autre débat pour l'instant.

Comment faire l'ajout d'une nouvelle colonne à droite du tableau structure ?

Une manière rapide de pratiquer en fonction des options d'Excel est de remplir la cellule la droite de la dernière cellule d'entête, comme tu le ferais en Excel:

Code:

---

range("tableau1[#Headers]")(range("tableau1[#Headers]").count)(1,2).value="Date Naissance"

---

Manière "correcte" de pratiquer, qui correspond plus au clic droit dans le tableau et qui te permet de placer la colonne où tu veux dans le tableau:

Code:

---

1 2 3 4 5 6

Sub Test() Dim lc As ListColumn   Set lc = Range("tableau1").ListObject.ListColumns.Add() lc.Name = "Date Naissance" End Sub

---