Bonjour le forum ,je finalise actuellement un fichier de suivi de congés pour des employés ,basé sur un planning annuel avec formules matricielles et mise en forme conditionnelle ,plusieurs boutons de colorisation de cellules ,j'utilise une formule sur un bouton de création de sauvegarde avec ceci :
Private Sub CommandButton7_Click()
'création nouvel onglet pour suivi congés d'une nouvelle année
Dim Sh As Worksheet, Ws As Worksheet
Set Ws = ActiveSheet
Set Sh = Worksheets.Add(AFTER:=Sheets(Sheets.Count))
Ws.Cells.Copy
With Sh.Range("A1")
.PasteSpecial xlPasteAll
.Range("A1").Select
End With
Sh.Name = "Sauvegarde"
End Sub
Ma formule ne prend pas en compte mes bouton de colorisation de cellule et ne respecte pas exactement la mise en forme (taille des colonnes de tableau) ,je souhaiterais aussi sur demande par msgbox ,mettre le nom que je veux du nouvel onglet .Merci de votre aide
Private Sub CommandButton7_Click()
'création nouvel onglet pour suivi congés d'une nouvelle année
Dim Sh As Worksheet, Ws As Worksheet
Set Ws = ActiveSheet
Set Sh = Worksheets.Add(AFTER:=Sheets(Sheets.Count))
Ws.Cells.Copy
With Sh.Range("A1")
.PasteSpecial xlPasteAll
.Range("A1").Select
End With
Sh.Name = "Sauvegarde"
End Sub
Ma formule ne prend pas en compte mes bouton de colorisation de cellule et ne respecte pas exactement la mise en forme (taille des colonnes de tableau) ,je souhaiterais aussi sur demande par msgbox ,mettre le nom que je veux du nouvel onglet .Merci de votre aide
