Bonsoir,
J'ai besoin de votre aide pour compléter l'action du code ci-dessous.
Celui-ci vide la ligne des informations et reclasse les données.
Cela fonctionne très bien.
Une ligne vide d'information est placée en fin des enregistrements. Comment réattribuer leur formule d'origine à certaines cellules en colonnes O,P,Q,U,V,W,X,Y.
derlig = [A4].End(xlDown).Row
Range("A" & Target.Row & ":Z" & Target.Row).SpecialCells(xlCellTypeConstants).ClearContents
Range("A4", Cells(derlig, Target.Column)).Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range( _
"C4"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Merci de votre aide.
J'ai besoin de votre aide pour compléter l'action du code ci-dessous.
Celui-ci vide la ligne des informations et reclasse les données.
Cela fonctionne très bien.
Une ligne vide d'information est placée en fin des enregistrements. Comment réattribuer leur formule d'origine à certaines cellules en colonnes O,P,Q,U,V,W,X,Y.
derlig = [A4].End(xlDown).Row
Range("A" & Target.Row & ":Z" & Target.Row).SpecialCells(xlCellTypeConstants).ClearContents
Range("A4", Cells(derlig, Target.Column)).Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range( _
"C4"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Merci de votre aide.