Bonjour,
Apres avoir fait une insertion de deux lignes dans mon tableau et donc séparé mon tableau en deux partis, je souhaiterai afficher a la fin de chaque colonne la somme respective des champs séparés. Mais dans ma macro je ne sais quelles cellules selectionner etant donnée que ces dernières changent a chaque fois de position suivant le nombre de ligne au départ. Voici le resultat de la fin de ma macro:
derlign = Range("B" & Rows.Count).End(xlUp).Row 'trouve la dernière ligne de la colonne B
Set trouve = Range("B2:B" & derlign).Find("TR", lookAt:=xlWhole) 'on utilise la méthode Find pour chercher "TR" dans la colonne B
If Not trouve Is Nothing Then Rows(trouve.Row).Resize(2).Insert Shift:=xlDown
ActiveCell.FormulaR1C1 = "=SUM(R[-18]C:R[-1]C)"
Range("G21").Select
Selection.AutoFill Destination:=Range("G21:H21"), Type:=xlFillDefault
Range("G21:H21").Select
Range("G32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
Range("G32").Select
Selection.AutoFill Destination:=Range("G32:H32"), Type:=xlFillDefault
Range("G32:H32").Select
End Sub
Merci de votre aide.
Apres avoir fait une insertion de deux lignes dans mon tableau et donc séparé mon tableau en deux partis, je souhaiterai afficher a la fin de chaque colonne la somme respective des champs séparés. Mais dans ma macro je ne sais quelles cellules selectionner etant donnée que ces dernières changent a chaque fois de position suivant le nombre de ligne au départ. Voici le resultat de la fin de ma macro:
derlign = Range("B" & Rows.Count).End(xlUp).Row 'trouve la dernière ligne de la colonne B
Set trouve = Range("B2:B" & derlign).Find("TR", lookAt:=xlWhole) 'on utilise la méthode Find pour chercher "TR" dans la colonne B
If Not trouve Is Nothing Then Rows(trouve.Row).Resize(2).Insert Shift:=xlDown
ActiveCell.FormulaR1C1 = "=SUM(R[-18]C:R[-1]C)"
Range("G21").Select
Selection.AutoFill Destination:=Range("G21:H21"), Type:=xlFillDefault
Range("G21:H21").Select
Range("G32").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)"
Range("G32").Select
Selection.AutoFill Destination:=Range("G32:H32"), Type:=xlFillDefault
Range("G32:H32").Select
End Sub
Merci de votre aide.