Bonjour à tous
Mon pb est le suivant:
J'ai remarqué que lorsque l'on insère une ligne sur un classeur Excel, celle ci ne prend pas en compte les éventuelles formules présentes dans les colonnes.
Aisni j'ai récupéré une macro sur le net mais je n'arrive pas à la faire fonctionner, de plus mes connaisssances en VBA sont nulles donc ça m'aide pas!!
Voici la macro:
'Placer le curseur sur une cellule de la ligne à insérer
'avant d'appeler cette macro
Sub InsererUneLigneEtCopierLesFormules()
LigneAInserer = ActiveCell.Row
LigneAuDessus = LigneAInserer - 1
'Insertion d'une ligne vide
r = LigneAInserer & ":" & LigneAInserer
Rows(r).Select
Selection.Insert Shift:=xlDown
'Recopie vers le bas de la formule de la colonne 3
ColonneDeLaFormule = 3
Cells(LigneAuDessus, ColonneDeLaFormule).Select
r1 = ActiveCell.Address
b = InStr(2, Cells(LigneAuDessus, ColonneDeLaFormule).Address, "$")
CelleAuDessous = Mid(Cells(LigneAuDessus, ColonneDeLaFormule).Address, 1, 3)
& LigneAInserer + 1
r = r1 & ":" & CelleAuDessous
Selection.AutoFill Destination:=Range(r), Type:=xlFillDefault
Range(r).Select
'Fin de la recopie de la formule de la colonne 3
'Recopie vers le bas de la formule de la colonne 4
ColonneDeLaFormule = 4
Cells(LigneAuDessus, ColonneDeLaFormule).Select
r1 = ActiveCell.Address
b = InStr(2, Cells(LigneAuDessus, ColonneDeLaFormule).Address, "$")
CelleAuDessous = Mid(Cells(LigneAuDessus, ColonneDeLaFormule).Address, 1, 3)
& LigneAInserer + 1
r = r1 & ":" & CelleAuDessous
Selection.AutoFill Destination:=Range(r), Type:=xlFillDefault
Range(r).Select
'Fin de la recopie de la formule de la colonne 4
End Sub
Je vous remercie par avance de la précieuse aide que vous pouvez m'apporter!
Mon pb est le suivant:
J'ai remarqué que lorsque l'on insère une ligne sur un classeur Excel, celle ci ne prend pas en compte les éventuelles formules présentes dans les colonnes.
Aisni j'ai récupéré une macro sur le net mais je n'arrive pas à la faire fonctionner, de plus mes connaisssances en VBA sont nulles donc ça m'aide pas!!
Voici la macro:
'Placer le curseur sur une cellule de la ligne à insérer
'avant d'appeler cette macro
Sub InsererUneLigneEtCopierLesFormules()
LigneAInserer = ActiveCell.Row
LigneAuDessus = LigneAInserer - 1
'Insertion d'une ligne vide
r = LigneAInserer & ":" & LigneAInserer
Rows(r).Select
Selection.Insert Shift:=xlDown
'Recopie vers le bas de la formule de la colonne 3
ColonneDeLaFormule = 3
Cells(LigneAuDessus, ColonneDeLaFormule).Select
r1 = ActiveCell.Address
b = InStr(2, Cells(LigneAuDessus, ColonneDeLaFormule).Address, "$")
CelleAuDessous = Mid(Cells(LigneAuDessus, ColonneDeLaFormule).Address, 1, 3)
& LigneAInserer + 1
r = r1 & ":" & CelleAuDessous
Selection.AutoFill Destination:=Range(r), Type:=xlFillDefault
Range(r).Select
'Fin de la recopie de la formule de la colonne 3
'Recopie vers le bas de la formule de la colonne 4
ColonneDeLaFormule = 4
Cells(LigneAuDessus, ColonneDeLaFormule).Select
r1 = ActiveCell.Address
b = InStr(2, Cells(LigneAuDessus, ColonneDeLaFormule).Address, "$")
CelleAuDessous = Mid(Cells(LigneAuDessus, ColonneDeLaFormule).Address, 1, 3)
& LigneAInserer + 1
r = r1 & ":" & CelleAuDessous
Selection.AutoFill Destination:=Range(r), Type:=xlFillDefault
Range(r).Select
'Fin de la recopie de la formule de la colonne 4
End Sub
Je vous remercie par avance de la précieuse aide que vous pouvez m'apporter!