VBA Création de deux onglets à partir de différents modèles

Version imprimable

1 pièce(s) jointe(s)

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 !!!!

Citation:

Envoyé par ZHNEE

Bonjour,

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

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
 
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

15/08/2017, 20h41
ZHNEE

Un petit bug pour le Model1

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
15/08/2017, 20h50
ZHNEE

Pas de Bug

Je viens de trouver ,c'est le nom que je mets dans la liste qui n'est pas exacte.
Encore merci tout fonctionne
15/08/2017, 21h02
Invité

Citation:

Envoyé par ZHNEE

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

Bon courage.

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
.....