Re: Enlever les notes d'une cellule et valeur ordre croissant |
Titre du sujet : Re: Enlever les notes d'une cellule et valeur ordre croissant par myDearFriend! le 24/01/2023 19:14:08 Bonjour Razmo, le Forum,
Tout d'abord, afin que les visiteurs intéressés puissent comprendre, le présent sujet est la suite de cette précédente DISCUSSION.
Tu as plusieurs solutions pour régler cette situation et j'en vois deux particulièrement : - La première serait d'échanger ta ligne de code : MATRIX_DTC_H_Datas.Copy Destination:=DIFF_DTC_H.Offset(1, 0) Par les 2 suivantes : MATRIX_DTC_H_Datas.Copy DIFF_DTC_H.Offset(1, 0).PasteSpecial Paste:=xlPasteValues Ça permet de ne recopier QUE les valeurs de cellules.
- La deuxième serait de laisser ton code tel quel, et supprimer les commentaires après collage en ajoutant simplement la ligne suivante : DIFF_DTC_H.EntireColumn.ClearComments
Tu y étais presque ! Tu devrais pouvoir insérer ceci, en fin de procédure : With DIFF_WS.UsedRange.Offset(2, 0) .Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With J'espère que ça pourra t'aider. Bien cordialement, |
Forums