Bonsoir,
Novice dans la manipulation de macro en VBA sous excel (ou autre d'ailleurs), je fais appel à vos bons conseils.
Je souhaite créer un fichier excel permettant de créer des feuilles de compétences pré remplis (feuille au nom de l'élève et grille de compétence vide) à partir d'un liste d’élève et d'une feuille regroupant toutes les compétence demandées).
Grace à ce forum j'ai déjà réussi a créer les feuilles aux noms des élève en affectant une macro (trouvé ici) à un bouton mais pour la copie de ma grille dans ces nouvelles feuilles je bloque.
Merci de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub t()
 Dim rng As Range, cel As Range
 Set rng = ThisWorkbook.Worksheets("liste").Range("A2:A3")
 For Each cel In rng
  If Not (WorkSheetCreate(cel.Value)) Then MsgBox "La feuille " & cel.Value & " existe déjà"
 Next
End Sub
Function WorkSheetCreate(Name As String) As Boolean
 Application.ScreenUpdating = False
 Worksheets.Add before:=Worksheets(1)
 On Error Resume Next
 Worksheets(1).Name = Name
  If Err Then
  With Application
  .DisplayAlerts = False:  Worksheets(1).Delete:  .DisplayAlerts = True
   WorkSheetCreate = False
  End With
 Else
   WorkSheetCreate = True
 
 End If
 On Error GoTo 0
 Application.ScreenUpdating = False
End Function