Problème avec ma première macro(inputbox)

[patobeur]

Bonjour à toutes et à tous.

J'utilise Excel depuis pas mal d'années, mais je débute en macros et Vba.
Gràce à vous, j'apprends mais j'ai quelques petits soucis.

Voilà, j'ai créé un classeur de suivi des congés.
Sur ma feuille accueil, j'ai créé un bouton "nouveau" qui lance une macro
pour faire une copie de la feuille modèle avec une inputbox pour renommer
la feuille avec le nom du salarié.
Tout fonctionne, sauf si je ne rentres rien ou si je fais annuler la macro me renvoies un message d'erreur et me copie quand même ma feuille modèle.

Dans le même ordre d'idée, j'aimerais créer une macro identique pour supprimer un salarié, mais là je séches complètement.

Ci-joint le fichier en exemple.
Merci d'avance pour votre aide.

 

[jp14]

Re : Problème avec ma première macro(inputbox)

Bonjour

Ci dessous la macro modifiée
Il faut contrôler les données
le nom ne doit pas être une chaine vide et la feuille n'existe pas déjà

Sub CopieFeuille()
'
' CopieFeuille Macro
' Macro enregistrée le 28/04/2007 par Pierre
    Dim ws As Worksheet, MonNom As String

    MonNom = InputBox(prompt:="Nom du salarié?")
    If MonNom = "" Then Exit Sub
    For Each ws In Worksheets
        If ws.Name = MonNom Then
        MonNom = InputBox("Cette Fiche exite déjà ! Inscrivez un autre nom")
        If MonNom = "" Then Exit Sub
        end if
    Next ws
    
    Sheets("Modele").Select
    Sheets("Modele").Copy After:=Sheets(2)
    ActiveSheet.Name = MonNom



End Sub

JP

 

[patobeur]

Re : Problème avec ma première macro(inputbox)

Merci beaucoup JP.
Le code fonctionne à merveille.

Par contre, j'ai essayé de m'en inspiré pour créer une macro pour supprimer une feuille, mais elle ne fonctionne pas. Voici le code:

Sub SupprFeuille()

Dim ws As Worksheet, MonNom As String

MonNom = InputBox(prompt:="Nom du salarié?")
If MonNom = "" Then Exit Sub
For Each ws In Worksheets
If ws.Name <> MonNom Then
MonNom = InputBox("Cette Fiche n'exite pas ! Inscrivez un autre nom")
If MonNom = "" Then Exit Sub
End If
Next ws

Sheets("MonNom").Select
ActiveWindow.SelectedSheets.Delete
End Sub

Je crois que je ne suis pas doué.
Merci d'avance si quelqu'un pouvait me dire ce qui cloche.

 

[jp14]

Re : Problème avec ma première macro(inputbox)

Bonjour (re)

MonNom étant une variable, il ne faut pas mettre le caractère "

    Sheets(MonNom).Select
    ActiveWindow.SelectedSheets.Delete
End Sub

JPE]

 

[patobeur]

Re : Problème avec ma première macro(inputbox)

Merci encore une fois, mais la modif ne fonctionne pas.

Quand je tape un nom de feuille valide dans la boîte de message, elle me renvoie le message d'erreur (cette fihe n'existe pas) et la macro se bloque.

Bon Weekend.

 

[Gruick]

Re : Problème avec ma première macro(inputbox)

Ciao Patobeur, et au parmesan...
En fait, il faut faire attention à tout, les minuscules et les majuscules surtout quand tu évoques un nom de feuille. XL est très susceptible sur ce sujet. C'est peut-être ça, moi j'ai eu souvent le cas.
J'ai oublié la tomate... en bon sicilien de lointaine descendance.
et l'ail...
ciao ciao
Gruick.

 

[patobeur]

Re : Problème avec ma première macro(inputbox)

Non désolé Gruick, même avec une feuille nommé a la macro ne fonctionne pas.

P.S. juste au beurre, origine normande oblige. Et du cidre.
A+
Bon Weekend.

 

[Gruick]

Re : Problème avec ma première macro(inputbox)

Re,
Je crois que c'est la commande inputbox qu'il faut compléter par le type de donnée (ici du texte, donc type 2 je crois)

MonNom = InputBox("Nom du salarié ?", Type:=2)

et

MonNom = InputBox("Cette Fiche existe déjà ! Inscrivez un autre nom", Type:=2)

sinon :

Set MonNom = Application.InputBox("Nom du salarié ?", Type:=2)

PS aussi, mon Père était du Havre ! (moi Parigot, nul n'est parfait !)


Gruick

 

[patobeur]

Re : Problème avec ma première macro(inputbox)

Désolé Gruick, mais ça ne fonctionne pas.

En tout cas, merci de ton aide.

A+

 

[Gruick]

Re : Problème avec ma première macro(inputbox)

Essaies ça :

Sub CopieFeuille()
' CopieFeuille Macro
' Macro enregistrée le 28/04/2007 par Pierre
Application.DisplayAlerts = False
re:
Worksheets("Modele").Copy After:=Sheets(2)
réponse = InputBox(prompt:="Nom du salarié ?")
If réponse = "" Then ActiveSheet.Delete: GoTo re
For i = 4 To Sheets.Count
    If Sheets(i).Name = réponse Then
        ActiveSheet.Delete: MsgBox "nom existant déjà"
        GoTo re
    End If
Next i
ActiveSheet.Name = réponse
End Sub

Ca marche chez moi, et je vais donc me faire des nouilles encore !!!

Gruick

 

[Excel_lent]

Re : Problème avec ma première macro(inputbox)

Salut à tous,

Une autre macro qui compare 2 textes mis en majuscules.

Sub Ajout()
    Dim ws As Worksheet, MonNom As String
    'force à saisir un nom
    Do
      MonNom = InputBox(prompt:="Nom du salarié?")
      If MonNom = "" Then MsgBox "Il faut saisir un nom !"
    Loop Until MonNom <> ""
    
    For Each ws In Worksheets
        If UCase(ws.Name) = UCase(MonNom) Then
          MsgBox ("Cette Fiche exite déjà ! Inscrivez un autre nom")
          Exit Sub
        End If
    Next ws
    Sheets("Modele").Copy After:=Sheets(2)
    ActiveSheet.Name = MonNom
End Sub

@+

 

[patobeur]

Re : Problème avec ma première macro(inputbox)

Merci à vous tous, toutes vos macros fonctionnent,
mais jp14 m'avait déjà trouvé une solution.

Mon problème c'est d'en faire une deuxième pour supprimer une feuille sélectionnée par inputbox.

En tout cas j'essaye de m'inspirer de vos codes pour résoudre mon problème,merci.

Bon Weekend et bonne nouilles à Gruick