Re : Ajout d'une ligne projet + calcul
Bonjour toutes et tous les XLDnautes,
Comment va?
Je souhaite intégrer une ligne d'un onglet2 vers un autre onglet1. Quand la macro après balayage de tout l'onglet1 trouve le nom Martin, elle intrègre les info avant la donnée "capacité" et recalcule la disponibilité de la personne qui intervient.
Le doc est plus parlant. Merci d'avance de votre aide. 🙂
A plus Gerson
Salut,
Je reviens sur mon problème. Je souhaite donc intégrer des lignes d'un classeur dans un autre avec mise à jour des formules de calcul.
En utilisant l'enregistreur, j'obtiens le code ci-dessous. Comme je me suis mis au VBA récemment, je planche sur la boucle qui va me permettre d'intégrer les autres lignes projet pour Ben, pour Martin et pour les autres personnes.
Activez svp la macro à partir du fichier "données à insérer" pour comprendre mon besoin.
Sub Macro2()
'
' Macro2 Macro
'
'On part du fichier "Données à insérer" et on copie la ligne d'un projet
Range("B6:J6").Select
Selection.Copy
'On va dans le fichier "Copie de gerson" onglet1 et on copie au dessus de la ligne capacité de Martin
Windows("Copie de Gerson.xls").Activate
Sheets("onglet1").Rows("11:11").Select
Selection.Insert Shift:=xlDown
Range("C8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[1]C:R[3]C)"
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:I8"), Type:=xlFillDefault
Range("C8:I8").Select
Range("C13").Select
ActiveCell.FormulaR1C1 = "=R[-1]C-SUM(R[-4]C:R[-2]C)"
Range("C13").Select
Selection.AutoFill Destination:=Range("C13:I13"), Type:=xlFillDefault
Range("C13:I13").Select
ActiveWorkbook.Save
End Sub
Gerson