Calendrier, Planing de Travaux

[WDAndCo]

Bonjour le Forum

J'ai commencé un suivi de préparation de travaux, mais la je bloque sur certaines actions qui devraient ce faire toutes seules :
Par Exemple le basculement du mois sur l'autre
Et aussi la création d'un mois type
Et des problèmes de mise en forme et condition.

Voila pour le début, avec le fichier joint cela devrait être beaucoup plus claire pour vous.

Amicalement Dominique

 

[Ptitdeuf]

Re : Calendrier, Planing de Travaux

Bonsoir Dominique

J'aurais aimé t'aider mais je ne risque pas d'avoir les compétences pour cela car je suis déjà impresssioné par l'exemple joint.
Je suis moi même entrain d'essayer de mettre en place un planing d'approvisionnement avec une création automatique d'une feuille qui reprend toutes infos pour pouvoir le faxer au transport mais je crois que j'aurais du mal.
Merci pour tous ces exemples qui m'inspire et qui m'aideront peut etre a etre moins mauvais quant a l'utilisation d'excel
Bonne soirée

 

[Bebere]

Re : Calendrier, Planing de Travaux

bonjour Wdandco,Ptitdeuf

code pour ajouter une feuille(employer la dernière feuille(dernier mois existant) pour créer une nouvelle feuille)

explique ce que tu voudrais pour personnels,pgtx,pcgt

Sub Mois_plus_un()
Dim Mois, An, NomF As String
Dim WsSource As Worksheet, WsDest As Worksheet
Set WsSource = ActiveSheet

Mois = Month(WsSource.Range("A2")) + 1
An = Year(WsSource.Range("A2"))
If Len(Mois) = 1 Then
NomF = "0" & Mois & "_" & Right(An, 2)
Else: NomF = Mois & "_" & Right(An, 2)
End If
Set WsDest = Sheets.Add
WsDest.Name = NomF
WsDest.Move After:=Sheets(Sheets.Count)
WsSource.Cells.Copy Destination:=WsDest.Range("A1")
Application.CutCopyMode = False
WsDest.Range("A2") = DateSerial(An, Mois, 1)
End Sub


à bientôt