Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

creer une nouvelle feuille avec inputbox

  • Initiateur de la discussion Initiateur de la discussion lotfi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lotfi

Guest
bonjour,
je souhaite creer une nouvelle feuille avec inputbox sous vba, et le nom de la feuille est le texte saisie sur le champ, avec un co;pteur de feuilles si le nom de la feuille existe deja lance un msgbox comme alerte.

merci d avance por votre aide.
 
Re : creer une nouvelle feuille avec inputbox

Bonjour lotfi
Une base de travail :
VB:
Sub toto()
Dim nSh$
  nSh = InputBox("Nouvelle feuille ?")
  If Not nSh = "" Then
    Sheets.Add
    On Error Resume Next
    ActiveSheet.Name = nSh
    If Err.Number <> 0 Then GoTo E
  End If
Exit Sub
E:
  Application.DisplayAlerts = 0
  ActiveSheet.Delete
  Application.DisplayAlerts = 1
  MsgBox Err.Number & vbLf & Err.Description
End Sub
ROGER2327
#5106


Mardi 24 Pédale 138 (Nativité de Saint Stéphane, faune, SQ)
28 Ventôse An CCXIX
2011-W11-5T00:34:16Z
 
Re : creer une nouvelle feuille avec inputbox

merci pour ton aide c bien ce que je cherche, mais un seul probleme c que la feuille doit etre creer en fin de liste est non pas au debut
cdt
 
Re : creer une nouvelle feuille avec inputbox

Re…
merci pour ton aide c bien ce que je cherche, mais un seul probleme c que la feuille doit etre creer en fin de liste est non pas au debut
cdt
Remplacez
Code:
    Sheets.Add
par
Code:
    Sheets.Add After:=Sheets(Sheets.Count)
ROGER2327
#5107


Mardi 24 Pédale 138 (Nativité de Saint Stéphane, faune, SQ)
28 Ventôse An CCXIX
2011-W11-5T00:54:06Z
 
Re : creer une nouvelle feuille avec inputbox

Bonjour Roger2327, bonjour le Forum
Je suis à la recherche d'un code VBA qui me permettrait de sélectionner une feuille par l'intermédiaire d'un inputbox ou boite de dialogue similaire. Ta macro Toto est très intéressante et je l'ai utilisée, mais maintenant, je ne voudrais que sélectionner une feuille dans toutes celles qui sont présentes.
Actuellement j'utilise ce bout de code :
Sub Va_Feuille_Diff_Pro()
' Va_Feuille_Diff_Pro Macr0
Sheets("Diff Pro").Select
Range("A1").Select
End Sub
mais je voudrais que "Diff_Pro" soit issue de l'inputbox et de ce fait cette macro servirait pour plusieurs feuilles. Le nom des feuilles représente le chiffres des années donc facile à retenir.
Si cela est possible, merci de me le faire savoir, car je n'ai absolu pas trouver mon bonheur sur différents forums.
Merci d'avance
cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
15
Affichages
848
Réponses
15
Affichages
791
D
  • Question Question
Réponses
5
Affichages
250
Didierpasdoué
D
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…