Discussion :

[Tibodep]

Bonjour,

Je traite actuellement une base de données assez conséquente et je n'ai malheureusement que des connaissances limitées concernant les Macros sur Excel.

Je cherche a créer des onglets numérotés automatiquement à partir d'une liste de numéros aléatoire présente sur un autre onglet.

Par exemple: numéros 7, 8, 12, 255, 54 apparaissent dans une liste sur un onglet.

Le but est de créer des onglets automatiquement qui seront nommés 7, 8, 12, 255, 54. (Sachant que j'ai plusieurs fichiers différents et que les listes ne sont pas les mêmes).

Auriez vous une solution ?

Merci d'avance,

[clementmarcotte]

Bonjour,

Première étape:

Lire ici

[Theze]

Bonsoir,

Une piste :

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
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Cel As Range
 
    'défini la plage des numéros en colonne A (à partir de A1) de la feuille "Feuil1", à adapter...
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        On Error Resume Next 'dans le cas où existe déjà !
 
        Set Fe = Worksheets.Add(, Sheets(Sheets.Count))
        Fe.Name = Cel.Value
 
    Next Cel
 
End Sub