[Résolu] Décaler vers la droite des cellules filtrées

[Scoty]

Bonjour à tous,

Soit un premier tableau montrant un planning de personnel. On y retrouve le planifié / mois ainsi que le réalisé (infos par lignes).

Je souhaite décaler le planifié de x mois (3 mois dans mon cas). Je filtre donc les lignes planifiées pour pouvoir les décaler. Le soucis est qu'Excel est incapable de modifier des "sélections multiples".

J'ai tenté le copier/coller avec "blanc non compris", atteindre les cellules non vides mais en vain...

Merci bcp de votre aide.

Dans l'attente de vous lire.
@+ Scoty

 

[Scoty]

Re : décaler vers la droite des cellules filtrées

Bonjour à tous,

Je me suis trouvé une petite astuce... bon pas vraiment dans les règles de l'art mais ça fonctionne.

J'ai enregistré une macro en décalant ce que je veux avec référence relative.

Le seul truc c'est qu'il faut cliquer à chaque fois sur la 1ere cellule contenant un nombre dans le planifié et lancer la macro...

@+

 

[job75]

Re : décaler vers la droite des cellules filtrées

Bonjour Scoty,

Je ne vois pas où est la difficulté :

Sub Décaler()
Dim decal As Byte, c As Range
decal = 3 'paramètre > 0 et < 12 à adapter
For Each c In Intersect(ActiveSheet.[C:C], ActiveSheet.UsedRange)
  If c = "Plannifié" Then
    c(1, 2).Resize(, 12 - decal).Copy c(1, 2 + decal)
    c(1, 2).Resize(, decal).ClearContents
    c(1, 2).Resize(, decal).Interior.ColorIndex = xlNone
  End If
Next
End Sub

Edit : variable decal paramétrable.

A+

 

[Scoty]

Re : décaler vers la droite des cellules filtrées

Bonjour Job,

Ok voila THE solution! Merci bcp

Excellente journée

@+