Microsoft 365 Créer un onglet pour chaque thème contenant les titres en doublons associés à ce thème

[Toucan72]

Bonjour,

Je souhaiterais créer des feuilles ou des onglets distincts à partir de la colonne C (Thèmes) des documents en doublons. Chaque onglet serait dédié à un thème spécifique, comme la sociologie, la littérature, etc. Dans ces listes, doivent figurer tous les doublons (même titre en colonne H) qui se recoupent avec le thème en question (par exemple, tous les doublons qui concernent la sociologie doivent être listés dans l'onglet dédié à la sociologie).
Je vous remercie pour votre aide une fois de plus
Bonne après-midi
Toucan

 

[sylvanu]

Bonjour Toucan,
Un essai en PJ, il suffit d'appuyer sur le bouton.

 

[laurent950]

Bonjour Le Forum

En complément du Code #2
pour supprimer le bouton "GO" lors de la création des Onglets
Option :
- Connaitre le nom du bouton associé la procédure VBA = "Rectangle 1"

' Récupérer le nom du bouton associé
    Dim NomBouton As String
    If TypeName(Application.Caller) = "String" Then
        NomBouton = Application.Caller
        MsgBox "Le nom du bouton cliqué est : " & NomBouton
    End If

- Pour supprimer ce même bouton dupliqué lors de la création de l'onglet

' Supprimer la forme "G0" après duplication (si le bouton dupliqué existe)
        On Error Resume Next
            .Shapes(NomBouton).Delete
        On Error GoTo 0

 

[Jeannette]

Bonjour Le Forum

En complément du Code #2
pour supprimer le bouton "GO" lors de la création des Onglets
Option :
- Connaitre le nom du bouton associé la procédure VBA = "Rectangle 1"

' Récupérer le nom du bouton associé
    Dim NomBouton As String
    If TypeName(Application.Caller) = "String" Then
        NomBouton = Application.Caller
        MsgBox "Le nom du bouton cliqué est : " & NomBouton
    End If

- Pour supprimer ce même bouton dupliqué lors de la création de l'onglet

' Supprimer la forme "G0" après duplication (si le bouton dupliqué existe)
        On Error Resume Next
            .Shapes(NomBouton).Delete
        On Error GoTo 0

Bonsoir,
On peut aussi définir les propriétés de ce bouton avant de lancer la procédure

Il ne sera alors plus dupliqué

 

[laurent950]

Bonsoir @Jeannette

Excellent, fallait-il le savoir. Merci pour cette astuce.

Bonsoir,
On peut aussi définir les propriétés de ce bouton avant de lancer la procédure

Il ne sera alors plus dupliqué