Microsoft 365 Mise à jour planning

quent632

XLDnaute Nouveau
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.
1624888990948.png

Si quelqu'un à une solution à me proposer je suis preneur.
Merci d'avance
VB:
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
 
Dernière édition:

vgendron

XLDnaute Barbatruc
pas sur d'avoir compris le besoin....
VB:
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

XLDnaute Nouveau
pas sur d'avoir compris le besoin....
VB:
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 :
1624891810446.png
 
Dernière édition:

Discussions similaires

Réponses
3
Affichages
274

Statistiques des forums

Discussions
311 709
Messages
2 081 769
Membres
101 816
dernier inscrit
Jfrcs