XL 2016 Déplacer le reste de la ligne sous condition

[airsage]

Bonjour,

Dans le fichier joint, je voudrais qu'a chaque fois qu'un cellule contient &nbsp, il faut décaler toutes les cellules de la droite de cette cellule de une cellule sur la gauche.

Pour exemple pour la ligne 9, il peut arriver qu'il y ai 2 &nbsp dans la même ligne. Il faudrait alors que l'opération de déplacer les cellules se fassent 2 fois.

Dans le ficher, la feuille "Brut" correspond a mon extraction brute et la feuille "résultat" c'est ce que je cherche à faire.

Par avance merci pour votre réponse.

Mickaël

 

[vgendron]

Bonjour

voici un code qui permet de faire ce que tu souhaites
à placer dans un module standard vba

Sub decaler()
Set zone = ActiveSheet.UsedRange

For Each ele In zone
    If ele = "&nbsp" Then
        ele.Delete Shift:=xlToLeft
    End If
Next ele

End Sub

voir PJ

 

[airsage]

Bonjour vgendron,

ça fonctionne. Merci pour votre réponse.

Cordialement.