Re : planning
Re,
Difficile de comprendre ce que tu veux faire. Toutefois, si tu insères des colonnes, le programme Sauvegarde (Module 6) a sans doute besoin de modification, notamment dans la partie Boucle :
For J = 3 To 36 Step 3 'J étant la colonne, le step 3 est sans doute à modifier
Feuil4.Cells(5, J).Resize(31, 2).Copy Destination:=Feuil1.Cells(Lg, K)
K = K + 2
' .Cells(Lg, K).Select
' .Paste
Next J
' End With
End If
'
' Récupération de l'année qui va être affichée
'
Old_Year = Feuil4.[an]
K = 0
' With Feuil4
' .Select
Set Cel = Feuil1.Columns("A").Find(what:=Old_Year, lookat:=xlWhole)
If Not Cel Is Nothing Then
Lg = Cel.Row - 30
For J = 2 To 24 Step 2
K = K + 3 ' ici peut-être qu'il faut mettre K=K+4
Feuil1.Cells(Lg, J).Resize(31, 2).Copy Destination:=Feuil4.Cells(5, K)
' .Cells(5, K).Select
' .Paste
Next J
Else
For J = 2 To 13
K = K + 3
With Feuil4.Cells(5, K).Resize(31, 2)
.ClearContents
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = xlNone
End With
Next J
End If
A creuser