Discussion :

[ericmise]

Bonjour
J’ai plusieurs problèmes à résoudre
1) A partir d’une liste de nom dans une feuille, je souhaite créer une feuille par nom. Un test devra être fait pour savoir si la feuille est déjà créée.
2) Une fois les feuilles créées je dois recopier la totalité des lignes de chaque nom de ma feuille source sur chaque onglet nom.
3) Ce fichier sera en partage sur un serveur. Je souhaite que le fichier ne soit accessible que par une personne à la fois. Chaque utilisateur peut avoir accès au serveur mais avec des directory différentes.
D’avance merci de votre contribution.

[Philippe Tulliez]

Bonjour,
Pour créer une feuille, tu peux par exemple créer une fonction booléenne qui renvoie TRUE si la création a eu lieu et FALSE si la feuille existait déjà.
Petit exemple : La liste des noms de feuille à créer se trouve en cellules A2:A5 de la feuille Feuil1

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
Sub t()
 Dim rng As Range, cel As Range
 Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A2:A5")
 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

[ericmise]

Bonjour et merci pour ta réponse. Quelques ajustements. J'ai volontairement supprimé la MSGBox qui ne m'est pas utile.
Par contre ma plage de cellule est variable d'une semaine à l'autre. je souhaite donc integrer un Do While Not Is Empty

Sub a()
Dim i As Integer
Range("b2").Select
Do While Not (IsEmpty(ActiveCell))
Set rng = ThisWorkbook.Worksheets("Feuil1").Range("b2:b18")
For Each cel In rng
If Not (WorkSheetCreate(cel.Value)) Then i = i + 1

Next
Loop

End Sub

[Philippe Tulliez]

Bonjour,

Bonjour et merci pour ta réponse. Quelques ajustements. J'ai volontairement supprimé la MSGBox qui ne m'est pas utile.
Par contre ma plage de cellule est variable d'une semaine à l'autre. je souhaite donc integrer un Do While Not Is Empty

Je me doute bien que le msgbox ne t' est pas utile, c'était simplement pour illustrer le retour de la valeur de la fonction WorkSheetCreate.
Cette fonction, tu l'utilises comme tu l'entends. Tu peux aussi la transformer en procédure SUB