Discussion :

[Invité]

Bonjour le forum,

Ce que je souhaite faire me semble assez complexe , c'est pour ça que je me tourne vers vous:
- j'ai une liste de codes dans un onglet sommaire
- j'ai un onglet modèle (avec des champs pré-remplis)
- quand je rentre une référence dans mon sommaire je souhaiterais que la feuille modèle se copie et prenne le nom de la référence rentrée.

J'ai essayé d'adapter une petite macro mais sans succès.

Merci à vous et bonne journée
Cdlt
aure_8

[Daniel.C]

Bonjour,

Remplace ton code par la macro suivante :

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
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Num As Variant, Nom As String, I As Long, C As Range, Sh As Worksheet, Teste As Boolean
    If Target.Column = 1 And Target.Rows.Count = 1 And Target.Count = Columns.Count Then
        If Application.CountA(Target) = 0 Then
            Set C = Cells(Target.Row, 2)
            For I = 1 To Len(C.Offset(-1))
                If Mid(C.Offset(-1), I, 1) > "9" Then
                    Nom = Nom & Mid(C.Offset(-1), I, 1)
                End If
            Next I
            For I = Len(C.Offset(-1)) To 1 Step -1
                If Mid(C.Offset(-1), I, 1) <= 9 Then
                    Num = Mid(C.Offset(-1), I, 1) & Num
                End If
            Next I
            Num = CInt(Num) + 1
            Application.EnableEvents = False
            C.Value = Nom & Num
            For I = 1 To Rows.Count
                If C.Offset(I).Value = "" Then Exit For
                C.Offset(I).Value = Nom & Num + I
            Next I
            Application.EnableEvents = True
            For Each Sh In Worksheets
                If Sh.Name = C.Value Then
                    Teste = True
                    Exit Sub
                End If
            Next Sh
            If Teste = False Then
                Sheets.Add.Name = C.Value
                Sheets(C.Value).Move after:=Sheets(Sheets.Count)
            End If
        End If
    End If
    Sheets("Sommaire").Select
End Sub

Oups, j'ai ajouté une feuille au lieu de copier le modèle. Si tu n'arrives pas à modifier, dis-le.

[Invité]

Bonjour !

Merci pour votre. je suis désolé, je suis pas beaucoup calé en VBA et j'ai du mal a bien comprendre ton code: quand j'insère une ligne, les numéros se décalent et le numéro sur la ligne inséré devient le nom de l'onglet qui se créer? C'est ce que j'ai cru comprendre

Merci à toi !

[Daniel.C]

J'ai sans doute mal compris ce que tu voulais faire. J'ai cru que les noms en colonne B se suivaient les uns les autres par simple incrémentation. N'est-ce pas le cas ?

[Invité]

Re,

Oui c'est bien ça, sauf que moi je n'ai que des numéros (1,2,3 ...) quand j'insère autre chose ça ne marche pas. (doué comme je suis je dois mal le faire fonctionner aussi ^^)

Cdlt
aure_8

[Daniel.C]

Pas sûr de bien comprendre, désolé. Décris exactement ce que tu fais manuellement et ce que tu veux obtenir..