Youns33
Nouveau membre
Bonjour,
Je viens de créer un planning de présence sur excel avec des macros mais je ne suis pas très douée avec VBA, ça ne fonctionne pas !
J'ai une feuille "modele" où je renseigne le nom des personnes, la semaine en cours et leur présence et une autre feuille pour consulter le planning.
La première macro enregistre mes données sous une feuille de la semaine enregistrée et efface les infos pour laisser le modèle vierge.
La 2e macro permet de consulter les différentes semaines enregistrées.
La 3e macro inactive l'affichage des différentes feuilles enregistrées.
Voici le détail des macros :
Sub archiver()
'
' archiver Macro
'
'
Dim ns As String
ns = Range("B7")
Sheets("Alimentation planning").Copy Before:=Sheets(1)
Sheets("Alimentation planning (2)").Select
Sheets("Alimentation planning (2)").Name = ns
Sheets(ns).visible = False
Sheets("modele").Select
Range("A1,A2,C8:O37").ClearContents
MsgBox "Archivage terminé !", vbInformation
Sheets("modele").visible = True
End Sub
Sub consult()
Dim ns As String
ns = Range("A2")
Sheets(ns).visible = True
Range("C3") = ""
Sheets(ns).Select
Sheets("modele").visible = True
End Sub
Sub inact()
ActiveSheet.visible = False
End Sub
Merci de me venir en aide !
Je viens de créer un planning de présence sur excel avec des macros mais je ne suis pas très douée avec VBA, ça ne fonctionne pas !
J'ai une feuille "modele" où je renseigne le nom des personnes, la semaine en cours et leur présence et une autre feuille pour consulter le planning.
La première macro enregistre mes données sous une feuille de la semaine enregistrée et efface les infos pour laisser le modèle vierge.
La 2e macro permet de consulter les différentes semaines enregistrées.
La 3e macro inactive l'affichage des différentes feuilles enregistrées.
Voici le détail des macros :
Sub archiver()
'
' archiver Macro
'
'
Dim ns As String
ns = Range("B7")
Sheets("Alimentation planning").Copy Before:=Sheets(1)
Sheets("Alimentation planning (2)").Select
Sheets("Alimentation planning (2)").Name = ns
Sheets(ns).visible = False
Sheets("modele").Select
Range("A1,A2,C8:O37").ClearContents
MsgBox "Archivage terminé !", vbInformation
Sheets("modele").visible = True
End Sub
Sub consult()
Dim ns As String
ns = Range("A2")
Sheets(ns).visible = True
Range("C3") = ""
Sheets(ns).Select
Sheets("modele").visible = True
End Sub
Sub inact()
ActiveSheet.visible = False
End Sub
Merci de me venir en aide !