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

airsage · 14 Décembre 2016

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 · 15 Décembre 2016

Bonjour

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

VB:

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 · 15 Décembre 2016

Bonjour vgendron,

ça fonctionne. Merci pour votre réponse.

Cordialement.

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

airsage

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

Pièces jointes

airsage

XLDnaute Junior

Discussions similaires