Discussion :

[guigui71]

bonjour à tous,

donc j'ai un petit soucis

j'ai un code qui me créée une nouvelle feuille en fonction de la donnée choisie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D2:D1000")) Is Nothing Then Exit Sub
    Cancel = True
    If Target = "" Then Exit Sub
nom = inputbox " saisir nom" 
if nom <> "" then
sheets.add
activesheet.name = nom
end if
 
    Sheets(nom).Cells.Clear
    With Sheets("BDD avec doublon").Range("A:G")
        .AutoFilter field:=4, Criteria1:=Target.Value
        .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets(nom).Range("A1")
        .AutoFilter
    End With
    Sheets("Feuil3").Select
End Sub

et maintenant j'aimerai créer un bouton sur la feuille qui va être créée afin de faire ressortir les doublons des données de la nouvelle feuille qui va être créée.

Avez vous une solution ?

[casefayere]

Bonjour,

j'avais fait ce code, il y a quelques temps :

a adapter à tes besoins

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub ajouter_bt()
Dim nom As String
ActiveSheet.Buttons.Add(477, 120, 201, 43.5).Select
    Selection.OnAction = "PROGBOUTON"
    nom = Selection.Name
    ActiveSheet.Shapes(nom).Select
    Selection.Characters.Text = "SUPPRIMER LA FEUILLE"
    ActiveSheet.Range("a7").Select
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub PROGBOUTON()
 Application.DisplayAlerts = False
j = ActiveSheet.Index
    ActiveWindow.SelectedSheets.Delete
     Worksheets(j).Select
 Application.DisplayAlerts = True
End Sub

[guigui71]

bonjour et merci de ta réponse.

peux tu me détailler un peu ton code avant que je me lance ?

et sinon, est il possible que lorsque je demande à l'utilisateur de choisir un nom de feuille, lui demander si il souhaite avoir les doublons.

Et si il souhaite avoir les doublons, les affichers, ou au contraire ne pas les afficher

[casefayere]

le premier code crée un bouton et cette ligne donne l'action à executer,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.OnAction = "PROGBOUTON" 'qui envoie sur le code "progbouton"

dans mon cas je supprime une feuille
mais en cherchant un peu tu trouveras la solution, j'en suis convaincu
pour le reste

et sinon, est il possible que lorsque je demande à l'utilisateur de choisir un nom de feuille, lui demander si il souhaite avoir les doublons.

Et si il souhaite avoir les doublons, les affichers, ou au contraire ne pas les afficher

bien sur tu peux ! tu dois inserer des lignes de code en fonction dans ton programme, là je n'ai plus le temps, je dois partir,

Bon courage