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

Recuperer dans USF le nom des onglets

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zozotitou
  • 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 !

S'inscrire
Z

zozotitou

Guest
Bonjour à tous,
Je chercher à faire un macro qui me permet de récupérer le nom des onglets, puis de sélectionner, ajouter la date (sous d'un calendrier) et le prix, et écrire dans le fichier.
Date Prix
17/07/2012 12€

Merci de votre aide !!

Cdlt
Antoine
 

Pièces jointes

Trier par date Trier par votes
Re : Recuperer dans USF le nom des onglets

Salut zozotitou et le forum
Si j'ai bien compris, tu veux un UserForm contenant plusieurs contrôles :
- Une ComboBox contenant la liste des onglets
- un contrôle calendrier
- une TextBox où on puisse incrire un nombre
et un bouton de validation inscrivant la date choisie et le texte inscrit après la dernière ligne non vide en colonne A
dans l'onglet de la ComboBox
A+
 
Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets


Slt Gorfael
Oui, c'est ça que je cherche et aussi de pouvoir créer par rapport à un modèle des nouveaux onglets et les classer par ordre alphabétiques et aussi les consulter.

Merci de ton aide !!!
Cdlt
Antoine
 
Vote positif 0 Vote négatif
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Bonjour le forum et Staple1600,
J'ai avancé un peu, mais maintenant je suis bloqué

Je voudrais créer un tableau pour le suivi des traitements
-1- Un onglet modèle
-2- Créer autres onglets par rapport au modèle
-3- Remplir les onglets au fur et a mesure des traitements
-4- Consulter les onglets
Tout ça avec du VBA Excel
Voir tableau ci-joint

Cdlt
Antoine


 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Bonsoir

zozotitou
Bravo pour avoir mis les mains dans le cambouis

Voici un autre type de poisson, si tu es encore affamé, pour remplir un ComboBox, un poisson avec une arète, euh non, pardon, un Array
Code: 
Private Sub UserForm_Initialize()
Dim NomFeuille_Arr, i
With ThisWorkbook
    ReDim NomFeuille_Arr(1 To .Worksheets.Count)
    For i = 1 To .Worksheets.Count
        NomFeuille_Arr(i) = Sheets(i).Name
    Next
End With
CBX1.List = NomFeuille_Arr
End Sub

EDITION: Et voici un exemple simple de code pour copier ta feuille Modele
Code: 
Sub RecopieMODELE()
Dim ModeleF As Worksheet, NomONGLET$
Set ModeleF = Sheets("Modele")
NomONGLET = ModeleF.[A1].Text
ModeleF.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomONGLET
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Bonjour le forum et Staple1600,

Merci encore pour ton aide mais ce que je voudrais c'est pour créer un nouvel onglet, je veux passer par USB et lui donner le nom moi, peux-tu m'aider ?

Merci

Cdlt
Antoine


 
Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Bonjour le fil 🙂,
Pas bien, Jean-Marie, de donner des codes qui marche qu'une fois 😛...
Si tu prends le nom en A1 de la feuille Modèle, ça va pas le faire pour le renommage 🙄...
Zozotitou, passe par InputBox par exemple pour saisir le nom de ton nouvel onglet, mais fais bien un test pour vérifier si l'onglet n'existe pas déjà 😉...
Bonne suite 😎
 
Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Bonjour le forum et JNP,
Peux-tu me donner un exemple dans mon fichier
Merci
Cdlt
Antoine

 

Pièces jointes

Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Re 🙂,
Quelque chose comme ça
Code: 
Sub RecopieMODELE()
Dim ModeleF As Worksheet, NomONGLET$
Dim Feuille As Worksheet
Set ModeleF = Sheets("Modele")
Recommence:
NomONGLET = InputBox("Nom de l'onglet ?")
If NomONGLET = "" Then Exit Sub
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name = NomONGLET Then
MsgBox "Ce nom est déjà utilisé !", vbCritical + vbOKOnly, "ATTENTION !"
GoTo Recommence
End If
Next
If InStr(1, NomONGLET, "\") > 0 Then
MsgBox "Caractère interdit !", vbCritical + vbOKOnly, "ATTENTION !"
GoTo Recommence
End If
ModeleF.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NomONGLET
End Sub
Je te laisse ajouter les tests pour tous les autres caractères interdits 😛...
Bonne suite 😎
 
Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Bonsoir à tous

JNP
J'avais précisé
EDITION: Et voici un exemple simple de code pour copier ta feuille Modele
Cliquez pour agrandir...
Simple qui voulait dire : invitation faite au demandeur de complexifier la chose 😉
ou aux membres chevronnés du forum de se joindre à la partie (ce que tu as gentiment fait 😉 )
Donc mon but est atteint 😉
 
Vote positif 0 Vote négatif
Re : Recuperer dans USF le nom des onglets

Re 🙂,
Cher Jean-Marie, peut-être peux-tu initier notre ami aux subtilités des arrêtes que tu aimes temps pour le test sur les caractères interdits, à moins que tu ne préfères l'initier au reggae 😛...
Bonne soirée 😎
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
837
Nino63
N
V
  • Question Question
XL 2019 Ajout texte dans le nom de la sauvegarde
Réponses
3
Affichages
136
sylvanu
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
362
dysorthographie
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
191
F22Raptor
F
S
  • Question Question
XL 2016 Colorier dans un planning selon des dates
Réponses
2
Affichages
316
sousou
M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
740
Musbek
M
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
677
Phil69970
M
  • Question Question
XL 2021 Protection des onglets
Réponses
2
Affichages
413
MANU64360
M
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
347
Piment
P
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
726
PHIL37
P
L
  • Question Question
Microsoft 365 Calcule entre plusieurs périodes
2
Réponses
24
Affichages
632
Lemtosh
L
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
392
NikonvsWild
N
H
  • Question Question
Power Query Récupérer des données multiples dans un dossier
Réponses
9
Affichages
445
hijackfr
H
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
818
KRUG WOO
K
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
895
picc
P
M
  • Question Question
Power Query Fractionner et modifier les colonnes d'un tableau
2
Réponses
18
Affichages
1 K
job75
E
  • Question Question
XL 2016 Liste déroulante "pré-chargée"
Réponses
10
Affichages
542
sylvanu
GitLab permet de gérer et partager des projets, suivre les changements et collaborer avec d’autres personnes.
Réponses
0
Affichages
168
dysorthographie
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
816
thunder23
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…