Rapport de message :*
 

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 ?