Bonjour a tous et a toutes
je souhaiterai mettre en place un planning d'atelier.
Le principe est simple :
Le responsable planning saisie le planning sur la feuille « semaine en cours ».
Lorsqu’il veut donner un travail a un compagnon « Mickael, Roanne….) il sélectionne les cases qui correspondantes au temps donner et au jour de l’opération puis il clic sur les cases coloré en haut pour les mettre en couleur.
A la fin de la semaine il doit valider ce tableau a l’aide du bouton « VALIDER EN FIN DE SEMAINE »
Ce bouton effectue : 1 renomme la feuille « semaine en cours » en numéros de la semaine.
2 Affiche la feuille « trame » puis en fait une copie en la renommant « semaine en cours »
3 masques la feuille trame
4 effectue une sauvegarde
Les problèmes :
1 Je n’arrive pas a mettre a dans la msgbox un message qui ferai stopper l’opération valider si il ne rempli pas la cellule A5 par le numéro de semaine correspondant (ou alors le numéro de semaine doit se mettre seul)
2 Quand on utilise la fonction effacé, je n’arrive pas a effacer les caractères, j’arrive a effacer que la couleur.
J’ai essayé pas mal de truc mais je suis un novice en la matière. HELP ME !!!
Voici le code de la msgbox
Private Sub CommandButton1_Click()
VAlider = MsgBox("Voulez vous VALIDER le planning semaine? ", vbYesNo)
If VAlider = vbYes Then
Else
Exit Sub
End If
Sheets("semaine en cours").Select
PrintOut Copies:=1, Collate:=True
Sheets("trame").Visible = True
Sheets("trame").Select
Sheets("trame").Copy After:=Sheets(1)
Sheets("semaine en cours").Select
Sheets("semaine en cours").Name = Range("A5").Value
Sheets("trame (2)").Select
Sheets("trame (2)").Name = ("semaine en cours")
Sheets("trame").Select
Sheets("trame").Visible = False
ActiveWorkbook.Save
End Sub
Le code pour effacer :
Sub ColorierBlanc()
Dim Cell As Range
For Each Cell In Selection
Cell.Interior.ColorIndex = 2
Next
ActiveWorkbook.Save
End Sub
je souhaiterai mettre en place un planning d'atelier.
Le principe est simple :
Le responsable planning saisie le planning sur la feuille « semaine en cours ».
Lorsqu’il veut donner un travail a un compagnon « Mickael, Roanne….) il sélectionne les cases qui correspondantes au temps donner et au jour de l’opération puis il clic sur les cases coloré en haut pour les mettre en couleur.
A la fin de la semaine il doit valider ce tableau a l’aide du bouton « VALIDER EN FIN DE SEMAINE »
Ce bouton effectue : 1 renomme la feuille « semaine en cours » en numéros de la semaine.
2 Affiche la feuille « trame » puis en fait une copie en la renommant « semaine en cours »
3 masques la feuille trame
4 effectue une sauvegarde
Les problèmes :
1 Je n’arrive pas a mettre a dans la msgbox un message qui ferai stopper l’opération valider si il ne rempli pas la cellule A5 par le numéro de semaine correspondant (ou alors le numéro de semaine doit se mettre seul)
2 Quand on utilise la fonction effacé, je n’arrive pas a effacer les caractères, j’arrive a effacer que la couleur.
J’ai essayé pas mal de truc mais je suis un novice en la matière. HELP ME !!!
Voici le code de la msgbox
Private Sub CommandButton1_Click()
VAlider = MsgBox("Voulez vous VALIDER le planning semaine? ", vbYesNo)
If VAlider = vbYes Then
Else
Exit Sub
End If
Sheets("semaine en cours").Select
PrintOut Copies:=1, Collate:=True
Sheets("trame").Visible = True
Sheets("trame").Select
Sheets("trame").Copy After:=Sheets(1)
Sheets("semaine en cours").Select
Sheets("semaine en cours").Name = Range("A5").Value
Sheets("trame (2)").Select
Sheets("trame (2)").Name = ("semaine en cours")
Sheets("trame").Select
Sheets("trame").Visible = False
ActiveWorkbook.Save
End Sub
Le code pour effacer :
Sub ColorierBlanc()
Dim Cell As Range
For Each Cell In Selection
Cell.Interior.ColorIndex = 2
Next
ActiveWorkbook.Save
End Sub
