Création d'onglet nominatif en VBA

Bonjour,

dans mon Userform1 (qui se trouve sur la page d'accueil en "cliquez ici"), après avoir choisi un nom dans le combobox, lorsque je clique sur "Créer", il lance l'Userform2. Je voudrais, dans le même temps, qu'il crée un "nouvel onglet" au nom de la personne saisi avec le tableau dans l'onglet "modèle".

Si je choisi de cliquer sur "consulter" cela dirige directement sur l'onglet nominatif. Si il n'a pas été créé, une msgbox pour dire : "il n'y a pas de planning pour cette personne".

J'espère avoir été clair... je vous met la pièce jointe,

Francky

Salut,

Voici le fichiers avec le code que j'ai ajouté pour te permettre de faire ce que tu as demandé

Je te laisse le soin de créer la msgbox pour indiquer que l'onglet est inexistant

Le code ressemble à ça

msgbox "Texte à afficher ", vbInformation, " Titre de la msgbox" 

A plus

Merci Sylchat,

ça fonctionne, mais j'aurais voulus qui créé un onglet à partir de mon onglet "modèle" dans le classeur !

c'est possible ?

Francky

je te remet le fichier avec la msgbox

A la ligne qui crée la feuille

qui ressemble à

worksheets.add

tu remplace worksheets.add par worksheets("Modèle").copy

ok, c'est super et merci pour tes explications.

Me reste un petit souci, je n'arrive pas à savoir où coller cette ligne :

Else: MsgBox "Vous n'avez pas encore créé de planning pour cette personne", vbInformation, "Attention !"

dans ce code :

Private Sub CommandButton2_Click()
    Dim ShExist As Boolean
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name = ComboBox1.Value Then
        ShExist = True
        Sh.Activate
        Exit Sub
    End If
Unload UserForm1
Next
End Sub

j'ai fais plusieurs essai mais ça ne marche pas...

merci d'avance

Francky

Private Sub CommandButton2_Click()
    Dim ShExist As Boolean
    Dim Sh As Worksheet
    ShExist=False
    For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name = ComboBox1.Value Then
        ShExist = True
               Sh.Activate
        Exit Sub
    End If
Unload UserForm1
Next
If ShExist=False then 
MsgBox "Vous n'avez pas encore créé de planning pour cette personne", vbInformation, "Attention !"
end if
End Sub

merci beaucoup à toi,

Francky