Calendrier, Planing de Travaux

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

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