Re : Planning panoramique via BDD - gestion des tâches (VBA)
Bonjour
Voici de quoi t'aider.
Le code ci_dessous à positionner dans un module va remplir ton planning en fonction de la feuille active
Il reste à faire....mai cela devrais t'aider.
- effacer les données déjà présente si nécessaire
-Lancer le code sur activation des feuilles par exemple
-compléter le code pour ajouter owner, description...
Bonne chance
Public taches, mesdates
Sub planning()
With Sheets("bdd")
fintache = .Columns(2).End(xlDown).Row
Set taches = .Range(.Cells(2, 2), .Cells(fintache, 2))
End With
With ActiveSheet
Set mesdates = .Range(.Cells(7, 1), .Cells(7, 40))
mesdates.Select
End With
ntache = 0
For Each i In taches
If Month(i.Offset(0, 2)) = ActiveSheet.Index - 2 Then
ntache = ntache + 1
Call remplir(i, ntache)
End If
Next
End Sub
Sub remplir(i, ntache)
datedeb = i.Offset(0, 2)
datefin = i.Offset(0, 3)
If datefin = "" Then datefin = Date
For Each d In mesdates
If d >= datedeb And d <= datefin Then
d.Offset(ntache, 0) = "X"
End If
Next
End Sub