XL 2019 Aide macro avec un choix de deux modèles

[crackerwood]

Bonjour, bonsoir,
Je viens vers vous pour un problème de macro. En effet j'ai suivis un tuto pour créer des onglets à partir d'un modèle. Jusque là pas de souci cela fonctionne à merveille. Le problème c'est que en fonction d'un choix entre chef et adj j'ai deux modèles. J'ai essayé avec des conditions mais rien n'a fonctionné. J'ai aussi essayé en faisant un seul modèle et en masquant les colonnes en fonction du choix chef ou adj. Je vous fournis le tableau en m'excusant par avance car cela étant pour le travail j'ai du effacer beaucoup de chose. J'ai laissé des commentaires à l'interieur. Je vous remiercie par avance.

 

[vgendron]

Hello

un essai avec ce code

Sub NouvelleFiche()
Application.ScreenUpdating = False
With ActiveSheet
    fin = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 4 To fin
        Worksheets(LCase(.Range("D" & i))).Copy after:=Worksheets(ThisWorkbook.Sheets.Count)
        Worksheets(ThisWorkbook.Sheets.Count).Name = .Range("C" & i)
    Next i
End With
Application.ScreenUpdating = True
End Sub

il faudra peut être ajouter un test pour vérifier que la feuille n'existe pas déjà...

 

[vgendron]

Sub NouvelleFiche()
Application.ScreenUpdating = False
With ActiveSheet
    fin = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 4 To fin
        If Not FeuilleExiste(LCase(.Range("D" & i))) Then
            Worksheets(LCase(.Range("D" & i))).Copy after:=Worksheets(ThisWorkbook.Sheets.Count)
            Worksheets(ThisWorkbook.Sheets.Count).Name = .Range("C" & i)
        End If
    Next i
End With
Application.ScreenUpdating = True
End Sub

Function FeuilleExiste(NomFeuille As String) As Boolean
FeuilleExiste = False
For Each ws In ActiveWorkbook.Sheets
    If ws.Name = NomFeuille Then
        FeuilleExiste = True
        Exit For
    End If
Next ws
End Function

 

[vgendron]

et pour ta formule en F4 de ta feuille Listing

=SI(INDIRECT(C4&"!E5")="INAPTE";"ECHEC SECURITE";SI(INDIRECT(C4&"!E5")>=15;"APTE";"INAPTE"))

 

[crackerwood]

Hello.
Merci bien. Alors la première macro marche à 100%
Le deuxième ne fonctionne pas du tout ou me dis une erreur sur s
feuilleexiste
mais ce n'est pas grave. Le premier code marchant ça me suffira.
Merci également pour la formule. Après quelques recherche j'ai vu que INDIRECT serait le mieux. Je vais devoir chercher et je me débrouillerais.
Encore merci. Bonne soirée

 

[vgendron]

J'avais une erreur dans la macro....
normalement, ici ca fonctionne

 

[crackerwood]

Re. C'est juste énorme. Merci encore. J'étais loin d'avoir la bonne macro .
Encore merci

 

[crackerwood]

Bonjour, j'espère ne pas faire de bêtise en ouvrant de nouveau le sujet mais la touche ma même macro alors je n'ai pas voulu faire un nouveau sujet.
Je vous explique la macro fonctionne nickel mais juste un truc. Si l'onglet récupéré parfaitement le nom de la personne (voir fichier fourni précédemment) que dois-je ajouter pour éviter un bug si j'ai par exemple deux Martin. Étant donné que l'on ne peut pas avoir deux onglet de nom identique je voudrais juste dans la même macro que ça rajouter un chiffre devant ou dernière.
Merci et encore désolé si j'aurais dû ouvrir un nouveau sujet.