Re: Supprimer les espaces d'une cellule |
Titre du sujet : Re: Supprimer les espaces d'une cellule par Razmo le 27/01/2023 10:04:50 Bonjour MyDearFriend et le forum !
Merci pour ton retour, lorsque je test ça me met cette erreur : J'ai défini mes deux variables MaPlace et MaCellule comme Range. Et ensuite j'ai set les deux variables comme ceci : Set MaPlage = DIFF_WS.UsedRange.Columns(DIFF_DTC_H.column) Set MaCellule = DIFF_DTC_H.Offset(1, 0) Ca donne ça niveau code : 'Copy and paste column Matrix to Diff 'Copy that cell values without comments MATRIX_LABEL_H_Datas.Copy 'Destination:=DIFF_LABEL_H.Offset(1, 0) DIFF_LABEL_H.Offset(1, 0).PasteSpecial Paste:=xlPasteValues MATRIX_DETECT_H_Datas.Copy 'Destination:=DIFF_DETECT_H.Offset(1, 0) DIFF_DETECT_H.Offset(1, 0).PasteSpecial Paste:=xlPasteValues MATRIX_STATE_H_Datas.Copy 'Destination:=DIFF_STATE_H.Offset(1, 0) DIFF_STATE_H.Offset(1, 0).PasteSpecial Paste:=xlPasteValues MATRIX_DTC_H_Datas.Copy 'Destination:=DIFF_DTC_H.Offset(1, 0) DIFF_DTC_H.Offset(1, 0).PasteSpecial Paste:=xlPasteValues Set MaPlage = DIFF_WS.UsedRange.Columns(DIFF_DTC_H.column) Set MaCellule = DIFF_DTC_H.Offset(1, 0) For Each MaCellule In MaPlage.Cells 'supprimer les espaces MaCellule.Value = Trim(MaCellule.Value) Next MaCellule DIFF_DETECT_H.Resize(nbLignDatas, 1).Offset(1, 1).Value = "Missing item in XML" Mais je me demande si je dois pas mettre mes deux lignes de code qui permet de copier et coller la colonne DTC dans ma boucle for ? |
Forums