Intégrer des formules à la fin d'un reporting en VBA


#1

Bonjour,

Je débute avec VBA, et j’aimerai traiter un fichier de manière automatique. Je vous ai mis un exemple ci-joint.

Mon but et de faire dans les étapes suivantes:

  1. insérer une ligne et inscrire la date du jour
  2. puis aller à la dernière colonne du tableau qui commence du coup en ligne 2 et faire un Concatener(F2;"_";C2) et tirer jusqu’en bas
  3. dans la colonne à côté, faire un recherche V dans un fichier qui s’appelle VIP feuill1 recherchev(F2;’[VIP.xlsx]Feuil1’!A:C;3;0) et tirer jusqu’en bas

Merci d’avance pour votre aide !!

test macro.xlsx (79,4 Ko)


#2

Bonjour, as-tu essayé de passer par l’enregistreur de macros?


#3

Oui mais le problème c’est que l’enregistreur me donne la bonne syntaxe des formules les références sont fixes et si le tableau change de taille, cela ne marche pas.

J’ai trouvé ci-dessous le début de mon code sur mon fichier réel (pas l’exemple)

‘Sélectionne la premier colonne non vide et rentre l’entête « Clé contrat_Période »
Cells(1, Columns.Count).End(xlToLeft).Select
ActiveCell.FormulaR1C1 = “Clé Contrat_Période”

Dans la première cellule en dessous, exécuter la formule concatener
ActiveCell.Offset(, 1).Select
ActiveCell.FormulaR1C1 = “=CONCATENATE(RC[-28],”"_"",RC[-35])"

Remplir automatiquement le reste des cellules de la colonne
Selection.AutoFill Destination:=Range( ?, ?)

Si tu as une idée,

Augustin


#4

As-tu essayé de modifier les références données par l’enregistreur de ,accro pour les remplacer par tes références fixes?