Microsoft 365 Mise à jour planning

[quent632]

Bonjour,

J'aimerai pouvoir mettre à jour mon planning (fichier excel joint). Je suis débutant en VBA, pour l'instant j'ai réussi à automatiser l'action "faire mon planning". Cependant j'aimerai que quand je décale une case au milieu du planning, les suivantes se décalent aussi.

Si quelqu'un à une solution à me proposer je suis preneur.
Merci d'avance

Sub DecaleC()
    
Application.ScreenUpdating = False
Dim compteur As Integer
    
Dim DernCol As Long
DernCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
Dim lettre As String
lettre = Split(Selection.Address, "$")(1)

Dim onglet1 As Worksheet
Dim colonne_en_cours As Long
    
For colonne_en_cours = 1 To DernCol
    With Sheets("Feuil1")
        For N = 1 To .Range(lettre & .Rows.Count).End(xlUp).Row
            If ActiveCell = .Cells(ActiveCell.Row + N, ActiveCell.Column) Then   'And ActiveCell.Interior.Color =
                compteur = compteur + 1
                .Cells(ActiveCell.Row + N, ActiveCell.Column).Cut (.Cells(ActiveCell.Row + N, ActiveCell.Column + i + compteur))
            End If
        Next N
    End With
Next

Application.ScreenUpdating = True
    
End Sub

 

[vgendron]

Bonjour
il va falloir en dire un peu plus et expliquer ton fichier.. parce que la.. je ne vois que des 1, des c et des 2..
ca ne ressemble en rien à un planning..?

 

[quent632]

Il s'agit juste d'une esquisse de planning pour pouvoir travailler plus facilement

 

[vgendron]

pas sur d'avoir compris le besoin....

Sub DecalerTout()

Application.ScreenUpdating = False
With ActiveSheet
    col = ActiveCell.Column
    lig = ActiveCell.Row
    fin = .UsedRange.Rows.Count
    ActiveCell.Resize(fin - lig, 1).Insert shift:=xlToRight
End With
Application.ScreenUpdating = True
End Sub

 

[quent632]

pas sur d'avoir compris le besoin....

Sub DecalerTout()

Application.ScreenUpdating = False
With ActiveSheet
    col = ActiveCell.Column
    lig = ActiveCell.Row
    fin = .UsedRange.Rows.Count
    ActiveCell.Resize(fin - lig, 1).Insert shift:=xlToRight
End With
Application.ScreenUpdating = True
End Sub

Il s'agit d'un planning de succession des tâches, dans la même colonne il ne peut pas y avoir 2 fois la même case. Cependant dans chaque colonne successives il doit y avoir une case identique (exemple photo du 1 vert) tout en sachant que les cases ne sont pas forcément dans des lignes successives.

J'aimerai que cela le mette à jour de cette manière :