Discussion :

[ZHNEE]

Bonjour
Dans un classeur excel j'ai quatre onglet : Liste ; Processus; Model1;Model2.
dans l'onglet liste j'ai les colonnes suivantes

Processus	Analyse	Model
Sous-processus 1	GLYCEMIE	Model1
Sous-processus 2	CALCIUM	Model2
Sous-processus 3	MAGNESIUM	Model2
Sous-processus 4	PHOSPORE	Model2
Sous-processus 5	XXX	Model1
Sous-processus 6	YYY	Model1
Sous-processus 7	ZZZ
Sous-processus 8	ZAZA
Sous-processus 9	XAXA
Sous-processus 10	TATA
.....

.....
Je s cherche un code VBA pour automatiser la création d'onglet en copiant deux des onglets "Model" .
Si le code de l'analyse est saisi et si dans la colonne Model ,je sélectionne Model1 deux onglets se créent et se nomment automatiquement : Onglet Sous -processus 1 (avec model onglet Processus) et l'onglet GLYCEMIE (avec Model1) et idem si Sélection du Model2

En Pj le début du futur tableur .
J'arrive à le faire mais en créant trois listes !!!!

[Invité]

Bonjour,

Evénement à insérer dans le module de l'onglet Liste :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim ShEnCours As Worksheet
Dim I As Integer
Dim Continuer As Boolean
 
 
        If Target.Count > 1 Then Exit Sub
 
        If Not Intersect(Target, Columns(3)) Is Nothing Then
 
             Continuer = True
            For I = 1 To Sheets.Count
             If Sheets(I).Name = Target.Offset(0, -2) Then
                Continuer = False
                Exit For
             End If
 
            Next I
            If Continuer = True Then
               Sheets("Processus").Copy After:=Sheets(Sheets.Count)
               ActiveSheet.Name = Target.Offset(0, -2)
 
               Sheets(Target.Value).Copy After:=Sheets(Sheets.Count)
               ActiveSheet.Name = Target.Offset(0, -1)
            Else
                MsgBox "Ce processus existe déjà", vbCritical, "Création du processus" & Target.Offset(0, -2)
            End If
 
        End If
 
 
End Sub

[ZHNEE]

Merci beaucoup pour cette réponse très rapide.
Mais un petit problème pour le Model1 , avec comme message d'erreur : Erreur d’exécution "9" l'indice n'appartient pas ...
Je ne trouve pas d’où peut venir le problème. Il faut dire que je suis pas très douée avec le VBA

Peut être avez vous la solution ?

Merci

[ZHNEE]

Je viens de trouver ,c'est le nom que je mets dans la liste qui n'est pas exacte.
Encore merci tout fonctionne

[Invité]

Désolé, j'ai oublié de vous l'indiquer. Au moins vous aurez su vous dépanner seule.

Bon courage.