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

Affichage dans USF nom de feuille en cours de création.

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

aubelix

XLDnaute Impliqué
Re Bonjour à tous les amis du Forum. 🙂

Une nouvelle question concernant l'affichage dans un userform
du nom de la feuille en cours de création.

Je lance une macro qui via un modèle la création de fiches
qui reprennent le SN et crée l'onglet au nom de ce SN
pour chaque fiche. Important, le modèle doit se trouver dans le même
répertoire que la macro pour fonctionner. Je vous le joint.

Comment lors de la création des Fiches, afficher dans l'userform d'attente
le nom de la feuille en cours de création.

Par avance, Merci pour votre aide.
Cordialemment.
 

Pièces jointes

Trier par date Trier par votes
Re : Affichage dans USF d'attente nom de feuille

Bonjour à tous les Amis du Forum. 🙂

Je me permets de vous relancer pour savoir si
ma requête était réalisable ?

Afficher dans l'userform f'attente, le nom
des feuilles en cours de création.

Code: 
Sub creation_FICHES()
    Dim sh As Worksheet
    Dim cel As Range, plg As Range
    Dim VarC12 As Variant
 
    UserFormAttente.Show 0
    UserFormAttente.Repaint
    Sheets("BASE").Activate
    Range("B2").Select
 
    Set plg = Range(Selection, Selection.End(xlDown))
 '    Application.ScreenUpdating = False
    For Each cel In plg.Cells
        If cel <> "" Then
            For Each sh In Worksheets
                If sh.Name = cel Then GoTo suite
            Next
            Sheets.Add Type:=ActiveWorkbook.Path & "\MODELE.xls", _
                       After:=Sheets(Sheets.Count)
  UserFormAttente.Label2.Caption = Sheets(Sheets.Count).Name = cel.Value
            Sheets(Sheets.Count).Name = cel.Value
 
            'Recopie les différentes rubriques spécifiées
            With Sheets("BASE")
                VarC12 = .Range("E2").Value
                VarD12 = .Range("F2").Value
                VarE34 = .Range("J2").Value
                VarF12 = .Range("D2").Value
                VarH12 = .Range("B2").Value
                VarJ4 = .Range("C2").Value
                VarJ7 = .Range("G2").Value
                VarJ12 = .Range("H2").Value
            End With
            With Sheets(Sheets.Count)
 
                'Numéro
                If Sheets("BASE").Range("E" & cel.Row).Value <> "" Then VarC12 = Sheets("BASE").Range("E" & cel.Row).Value
                .Range("C12").Value = VarC12
                'Type
                If Sheets("BASE").Range("F" & cel.Row).Value <> "" Then VarD12 = Sheets("BASE").Range("F" & cel.Row).Value
                .Range("D12").Value = VarD12
                'Responsable
                If Sheets("BASE").Range("J" & cel.Row).Value <> "" Then VarE34 = Sheets("BASE").Range("J" & cel.Row).Value
                .Range("E34").Value = VarE34
                'Quantité
                If Sheets("BASE").Range("D" & cel.Row).Value <> "" Then VarF12 = Sheets("BASE").Range("D" & cel.Row).Value
                .Range("F12").Value = VarF12
                'Référence
                If Sheets("BASE").Range("B" & cel.Row).Value <> "" Then VarH12 = Sheets("BASE").Range("B" & cel.Row).Value
                .Range("H12").Value = VarH12
                'N° de suivi
                If Sheets("BASE").Range("C" & cel.Row).Value <> "" Then VarJ4 = Sheets("BASE").Range("C" & cel.Row).Value
                .Range("J4").Value = VarJ4
                'Ordre
                If Sheets("BASE").Range("G" & cel.Row).Value <> "" Then VarJ7 = Sheets("BASE").Range("G" & cel.Row).Value
                .Range("J7").Value = VarJ7
                'Status
                If Sheets("BASE").Range("H" & cel.Row).Value <> "" Then VarJ12 = Sheets("BASE").Range("H" & cel.Row).Value
                .Range("J12").Value = VarJ12
            End With
        End If
suite:
    Next cel
 
    Unload UserFormAttente
 
    Sheets("BASE").Activate
End Sub


Par avance, Merci pour votre aide.
Cordialement.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Affichage dans USF nom de feuille en cours de création.

Bonjour bhbh. 🙂

Désolé, ce n'est pas du tout dans ma personnalité ni dans mon style.
Je vous pris de m'excuser, mais ça m'est sorti de l'esprit.
Et pour cause toustes les solutions fonctionnaient, j'ai effectivement
répondu, mais je ne sais pas ce qui s'est passé. 😕

Tu remarqueras, qu'à chaque question, je réponds et je me confonds en
remerciements pour l'aide que vous tous m'apportez à moi et à toute la
communauté.

Une fois, je vous prie d'accepter mes excuses. 🙁

Cordialement.
 
Vote positif 0 Vote négatif
Re : Affichage dans USF nom de feuille en cours de création.

Bonjour Aubelix,
Hubert🙂


Code: 
Sub creation_FICHES()
    Dim sh As Worksheet
    Dim cel As Range, plg As Range
    Dim VarC12 As Variant

    UserFormAttente.Show 0
    UserFormAttente.Repaint
    Sheets("BASE").Activate
    Range("B2").Select

    Set plg = Range(Selection, Selection.End(xlDown))
    For Each cel In plg.Cells
        If cel <> "" Then
            For Each sh In Worksheets
                If sh.Name = cel Then GoTo suite
            Next
            UserFormAttente.Label2.Caption = cel.Value
            UserFormAttente.Repaint
            Application.ScreenUpdating = False
            Sheets.Add Type:=ActiveWorkbook.Path & "\MODELE.xls", _
                       After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = cel.Value
            
            'Recopie les différentes rubriques spécifiées
            With Sheets("BASE")
                VarC12 = .Range("E2").Value
                VarD12 = .Range("F2").Value
                VarE34 = .Range("J2").Value
                VarF12 = .Range("D2").Value
                VarH12 = .Range("B2").Value
                VarJ4 = .Range("C2").Value
                VarJ7 = .Range("G2").Value
                VarJ12 = .Range("H2").Value
            End With
            With Sheets(Sheets.Count)

                'Numéro
                If Sheets("BASE").Range("E" & cel.Row).Value <> "" Then VarC12 = Sheets("BASE").Range("E" & cel.Row).Value
                .Range("C12").Value = VarC12
                'Type
                If Sheets("BASE").Range("F" & cel.Row).Value <> "" Then VarD12 = Sheets("BASE").Range("F" & cel.Row).Value
                .Range("D12").Value = VarD12
                'Responsable
                If Sheets("BASE").Range("J" & cel.Row).Value <> "" Then VarE34 = Sheets("BASE").Range("J" & cel.Row).Value
                .Range("E34").Value = VarE34
                'Quantité
                If Sheets("BASE").Range("D" & cel.Row).Value <> "" Then VarF12 = Sheets("BASE").Range("D" & cel.Row).Value
                .Range("F12").Value = VarF12
                'Référence
                If Sheets("BASE").Range("B" & cel.Row).Value <> "" Then VarH12 = Sheets("BASE").Range("B" & cel.Row).Value
                .Range("H12").Value = VarH12
                'N° de suivi
                If Sheets("BASE").Range("C" & cel.Row).Value <> "" Then VarJ4 = Sheets("BASE").Range("C" & cel.Row).Value
                .Range("J4").Value = VarJ4
                'Ordre
                If Sheets("BASE").Range("G" & cel.Row).Value <> "" Then VarJ7 = Sheets("BASE").Range("G" & cel.Row).Value
                .Range("J7").Value = VarJ7
                'Status
                If Sheets("BASE").Range("H" & cel.Row).Value <> "" Then VarJ12 = Sheets("BASE").Range("H" & cel.Row).Value
                .Range("J12").Value = VarJ12
            End With
        End If
suite:
    Application.ScreenUpdating = True
    Next cel

    Unload UserFormAttente
    
    Sheets("BASE").Activate
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Affichage dans USF nom de feuille en cours de création.

Re HASCO. 🙂

Merci pour ta réponse et ton aide.
J'ai testé ta macro, comme toujours, elle fonctionne bien.

Vous renouvellant une fois de plus mes excuses pour ce malentendu.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Affichage dans USF nom de feuille en cours de création.

Bonjour à tous les Amis du Forum. 🙂

Merci de m'aider une fois de plus.
J'aurais aimé insérer dans un label le nom de la feuille
en cours de suppression. J'ai essayé :

Code: 
UserFormAttente_Supression.Label2.Caption = sh.Name = sh.Name

Mais ça ne fonctionne pas.

Code: 
Sub Supprimer()
    Dim sh As Worksheet
 
    Select Case MsgBox("       Voulez-vous réellemnt    " _
                     & vbCrLf & "   supprimer toutes les FICHES ?   " _
                     & vbCrLf & "" _
         , vbYesNo Or vbCritical Or vbDefaultButton2, "Confirmez votre choix...")
 
    Case vbYes
 
        For Each sh In Worksheets
            If sh.Name <> "BASE" Then
                Application.DisplayAlerts = False
                sh.Delete
            End If
        Next sh
 
        Sheets("BASE").Activate
        Range("A1").Select
    Case vbNo
        Exit Sub
    End Select
End Sub

Merci pour votre aide.
Cordialement.
 
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

Discussions similaires

R
  • Question Question
Microsoft 365 Liste des fichiers dans le répertoire
2 3
Réponses
31
Affichages
2 K
patricktoulon
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
163
Didierpasdoué
D
D
  • Question Question
Microsoft 365 Lecture de données Arduino dans un USF Excel
Réponses
3
Affichages
180
sylvanu
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
392
gbinforme
G
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
341
ChTi160
U
  • Question Question
Autres [RÉSOLU] Comment faire masquer mes plages de cellules vides par macro
2
Réponses
17
Affichages
626
un internaute
U
C
  • Question Question
Microsoft 365 Ajout de données dans tableau existant
Réponses
9
Affichages
350
chnico80
C
  • Résolu(e)
XL 2021 Problème de copier coller lors de l'archivage
Réponses
5
Affichages
202
Eric_49
E
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
766
MBax
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
940
Eric 888
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
829
Max
M
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
785
Max
M
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
599
Phil69970
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
639
PHIL37
P
Génération de code VBA
Réponses
3
Affichages
221
Cléa
  • Résolu(e)
Microsoft 365 référence feuille en fonction du nom d'une cellule
Réponses
4
Affichages
312
tristan05
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
286
fanch55
J
  • Résolu(e)
XL 2021 Créer une formule avec nom d'onglet
Réponses
8
Affichages
458
Julieneymery
J
  • Question Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
668
AIXELS
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
650
ChTi160
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…