Pour tes demandes suivantes :
- si je trouve la combinaison de mot «Longueur cm» alors je supprime « Longueur cm » (double espace entre les 2 mots)
- si je trouve la combinaison de mot «Largeur mm» alors je supprime « Largeur mm » (double espace entre les 2 mots)
- si je trouve la combinaison de mot «Diamètre mm» alors je supprime « Diamètre mm » (double espace entre les 2 mots)
le double espace entre les mots cités nécessite la suppression de l’ensemble mots considérés et de leur double espace
J’espère avoir bien compris
Tu peux donc utiliser ces lignes de codes adaptées en conséquence :
If Range(« EE2 ») <> « » Then
Range(« EE2 », « EE » & Range(« EE118734 »).End(xlUp).Row).Clear
End If
i = 2
Do While i < Range(« ED118734 »).End(xlUp).Row + 1
If UCase(Right(RTrim(Range(« ED » & i)), 6)) = " SERTI" Then
donnée = RTrim(Range(« ED » & i))
Range(« EE » & i) = Replace(Mid(donnée, 1, Len(donnée) - 6), " ct", « »)
Range(« EE » & i) = Replace(Replace(Replace(Range(« EE » & i), « Longueur cm », « »), « Largeur mm », « »), « Diamètre mm », « »)
Else
Range(« EE » & i) = Replace(Range(« ED » & i), " ct", « »)
Range(« EE » & i) = Replace(Replace(Replace(Range(« EE » & i), « Longueur cm », « »), « Largeur mm », « »), « Diamètre mm », « »)
End If
i = i + 1
Loop
J’ai rajouté 2 fois cette ligne :
Range(« EE » & i) = Replace(Replace(Replace(Range(« EE » & i), « Longueur cm », « »), « Largeur mm », « »), « Diamètre mm », « »)
J’ai supprimé ces lignes superflues mises en place par mes soins pour étudier le comportement de mon code à son élaboration
Ces lignes n’ont aucune action :
ED = UCase(Right(RTrim(Range(« ED » & i)), 6))
EE = Right(Range(« ED » & i), 6)
Fais des essais et dis moi