Discussion :

[needlesurfer]

Bonjour, j'ai fait une routine bien agréable qui me permet d'effacer une ligne.

Je place le bouton au bout de la ligne et lorsque je le clique la ligne en question est supprimée.

J'ai un problème:
-Au bout de la ligne se trouve en fait 3 boutons; le bouton qui me permet de supprimer, un bouton qui sert à ajouter une ligne au dessous de celle-ci et un autre bouton servant à ajouter une ligne au-dessous mais formatée différemment.

-Je sais comment supprimer la ligne ET supprimer le bouton de suppression MAIS pas les autres boutons. Donc la ligne se supprime, le bouton se supprime mais les deux autres bouton vont se loger sous les bouton de la ligne supérieure, créant plusieurs couches de boutons si je supprime plusieurs lignes.

Voici le code que j'emploi:
Vous remarquerez que je sélectionne la case située trois colonne plus loin que le bouton de supression et le loop un clearcontents mais ça ne suprimme pas les boutons. J'ai aussi essayé

Code :

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

1
2
activecell.shapes.select
selection.delete

, marche pas non plus, donc voilà mon code:

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
19
20
21
22
23
24
25
26
27
28
Sub deleterow()
 
    Dim butrange As Range
    Dim startrange As Range
    Dim startcol As Long
 
    Set butrange = ActiveSheet.Buttons(Application.Caller).TopLeftCell
    Set wks = ActiveCell.Worksheet
    Set startrange = butrange.Offset(0, 3)
    startcol = startrange.Column
 
    startrange.Select
    Dim i As Integer
 
    For i = 1 To startcol
        Selection.ClearContents
        'Selection.Shapes.Select
        'Selection.Delete
            If ActiveCell.Column > 1 Then
                ActiveCell.Offset(0, -1).Select
            End If
    Next i
 
    butrange.EntireRow.Delete
    'NomGraph = Application.Caller
    'ActiveSheet.Shapes(NomGraph).Delete
 
End Sub

à noter que

Code :

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

1
2
    'NomGraph = Application.Caller
    'ActiveSheet.Shapes(NomGraph).Delete

fonctionne mais j'aimerais une solution qui me permette de supprimer non seulement le bouton de supression masi également tout les boutons se trouvant sur cette ligne avant de supprimer la ligne.

merci

[Didier Gonard]

Bonjour,

Pourquoi au lieu de mettre des tas de boutons ne mettrais-tu pas 3 cellules formatées spécifiques (couleur, valeur , nom etc...) en bout de ligne liées à un
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ou
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

- qui feraient ce que tu veux au double clic
- qui disparaîtraient par définition à la suppression de la ligne
- qui constitueraient un code plus léger

????

à voir

cordialement,

Didier

[needlesurfer]

Ormonth:
Votre methode semble beaucoup plus sexy d'un point de vue de présentation, ce qui pour moi est assez important. Je trouve les boutons peu élégant mais c'est ce que je connais. Je n'ai aucune formation comme tous ceux qui apprenent par eux-même je me débrouille avec ce que je sais .

Ceci dit, je ne comprend pas vraiment la méthode.
Dans mon vba je sélectionne sheet1 (disons que c'est là que je veux mes cases formatées), puis je mets le code

Code :

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

et ensuite je met quoi?

Code :

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

1
2
entirerow.delete 
end sub

Désolé je suis assez noob donc je ne connais pas toutes les méthodes et celle-ci me semble assez bien, le code est dans la feuille et pas sur un bouton, et toutes les cellules formaté de façons xyz vont deleter la ligne (ou faire le script x) ou elles se trouvent si double-cliquées, c'est bien ça?

[needlesurfer]

Solution:

J'ai trouvé, je comprend que ma méthode n'est pas chic car je crée et supprime des tas de boutons et ça c'est pas bien mais n'empêche, j'ai ici un code qui supprimera un ligne et tous les contrôles qui y sont situé, boutons ou autre. Ça ne peut qu'être pratique, c'est le "ultimate delete row" si vous voulez.

Ormonth, ça ne change rien à ma demande, j'aimerais quand même comprendre votre méthode, je me dit que combiner l'aspect mise en page de la votre avec la possibilité de supprimer n'importe quel contrôle se trouvant sur la ligne serait parfais considérant les besoins que j'ai.

alors voilà:

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
19
20
21
22
23
24
25
26
27
28
29
30
Sub deleterow()
 
    Dim butrange As Range
    Dim startrange As Range
    Dim startcol As Long
 
    Set butrange = ActiveSheet.Buttons(Application.Caller).TopLeftCell
    Set startrange = butrange.Offset(0, 3)
    startcol = startrange.Column
 
    startrange.Select
 
    Dim i As Integer
    For i = 1 To startcol
        Selection.ClearContents
           For Each myShape In ActiveSheet.Shapes
               If Intersect(myShape.TopLeftCell, Selection) Is Nothing Then
                   'do nothing
               Else
                   myShape.Delete
               End If
           Next myShape
            If ActiveCell.Column > 1 Then
                ActiveCell.Offset(0, -1).Select
            End If
    Next i
 
    butrange.EntireRow.Delete
 
End Sub

[ucfoutu]

Bonjour,

Bien que ton problème ne soit pas rigoureusement le même, tu devrais t'inspirer d'une réponse que j'ai faité récemment dans une autre discussion :
http://www.developpez.net/forums/d84...ol-impression/

Le mécanisme de base resterait le même

[Didier Gonard]

Bonjour,

vite fait voici une ébauche du genre, tu peux chiader le graphisme, si tes lignes ont des longueurs variable ou autre, il suffit d'adapter selon ton contexte.

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
    'peut-être un msgbox de confirmation
    Target.EntireRow.Delete
End If
End Sub
End Sub

Tu as tout ce qu'il faut dans les Tutos et FAQ Excel pour piloter ça

cordialement,

Didier