Rapport de message :*
 

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.

 

  • Concernant le problème de Commentaires de cellule inopportuns

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

 

  • Concernant le problème de Tri de tes lignes (entières) en fonction de la colonne 1 

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,