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
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
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: