Création d'onglet via nom de cellule

Version imprimable

26/09/2013, 09h28
Crov3

1 pièce(s) jointe(s)

Création d'onglet via nom de cellule

Bonjour,

N'ayant que très peu de compétences en VBA, je sèche un peu sur une demande d'un de mes utilisateurs :

Je pense qu'il faut le fichier pour comprendre la demande (je sais que c'est mal vu dans le premier poste surtout d'un nouveau :/)

Voilà la demande :

Récupérer les noms de l'onglet MATRICULE, de la colonne B à partir de B2

Pour chaque nom récupérer crée un nouvel onglet portant le nom récupéré

Pour chaque onglet crée, copier le contenue de l'onglet CDI (avec les formules qu'il contient)

Et lancer le tout via un bouton.

Je vous remercie d'avance,

Bastien

Bjr,

Tu peux essayer avec cette proc en la collant dans un module vba, et en faisant pointer ton bouton sur celle-ci.

Code:

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
26
27
28
29
30
31
32
33
34
35
 
Public wb_test As Workbook
Public ws_matricule As Worksheet, ws_CDI As Worksheet
 
 
Sub proc_crov3()
    Dim myrange As Range
    Dim str_name As String
    Dim myBool As Boolean
    Dim ws_Name As Worksheet
 
    Set wb_test = ThisWorkbook
    Set ws_matricule = wb_test.Worksheets("MATRICULE")
    Set ws_CDI = wb_test.Worksheets("CDI")
 
    Set myrange = ws_matricule.Range("B2")
 
    Do Until myrange = ""
        str_name = myrange
        myBool = False
        For Each Worksheet In wb_test.Worksheets
            If Worksheet.Name = str_name Then myBool = True
        Next
        If myBool = True Then
            MsgBox "Une feuille porte déjà le nom : " & str_name, vbOKOnly
        Else
            Set ws_Name = wb_test.Worksheets.Add(, wb_test.Worksheets(wb_test.Worksheets.Count))
            ws_Name.Name = str_name
            ws_CDI.Activate
            ws_CDI.Cells.Select
            Selection.Copy ws_Name.Range("A1")
        End If
        Set myrange = myrange.Offset(1)
    Loop
End Sub

26/09/2013, 10h21
Crov3

Bonjour SMBeccaria,

Merci beaucoup pour cette proc.

Bastien