Paramétrer un togglebutton

Version imprimable

Bonjour,

Voici ce que je souhaiterai obtenir : lors d'un appui sur le togglebutton copier le contenu des deux cellules O2 : P2 à la suite colonne B et C et lors du rappui sur le togglebouton que les deux cellules copiées en Bx:Cx, selon le remplissage de ces deux colonnes, soient effacées. Les x représentent une variable image du numéro de ligne de la dernière ligne comprenant des données.

Suite à la suppression des cellules copiées, les données en colonne C et D devront être à la suite sans ligne vide : la suppression de la ligne en question n'est pas envisageable car d'autres valeurs sont présentes.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub ToggleButton1_Click() With ToggleButton1 If .Value = True Then ToggleButton1.BackColor = 5950882 Test "O2:P2" ElseIf .Value = False Then ToggleButton1.BackColor = 12701133 'LIGNE MANQUANTE : effacer les données O2:P2 copiées dans Bx:Cx End If End With End Sub

Bonjour Goku, bonjour le forum,

Peut-être comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub ToggleButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set PL = O.Range("O2:P2") 'définit la plage PL
DL = O.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet O
With ToggleButton1 'prend en compte le ToggleButton1
    If .Value = True Then 'condition 1 : si le bouton est appuyé
        .BackColor = 5950882 'change la couleur
        If DL = 1 Then 'condition 2 : si la dernière ligne éditée de la colonne B est la ligne 1
            PL.Copy O.Cells(DL, "B") 'copie la plage PL dans la cellulue ligne DL colonne B
        Else 'sinon (DL est une autre ligne que la 1)
            PL.Copy O.Cells(DL + 1, "B") 'copie la plage PL dans la cellulue ligne DL+1 colonne B
        End If 'fin de la condition 2
    Else 'sinon (si le bouton est relâché)
        .BackColor = 12701133 'change la couleur
        O.Cells(DL, "B").Resize(1, 2).ClearContents 'efface les cellule des colonnes B et C de la ligne DL
    End If 'fin de la condition 1
End With 'fin de la prose en compte...
End Sub

Mais je vois mal, avec ce système, comment tu vas réussir à remplir une autre ligne que la 1 via le ToggleButton !...

13/07/2018, 10h34
Goku.

Bonjour Thauthème,

Une erreur apparait à l'appui sur le togglebutton sur cette ligne :

Code:

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)

.

Il faut renommer l'onglet car même renommé "Feuill" la ligne sort toujours en défaut ?

Re,

Trois options :
1- Dans le code remplace Feuil1 par le nom de ton onglet
2- Renomme l'onglet exactement, à la lettre près : Feuil1
3- Supprime la ligne et chaque fois qu'il y a O.xxx tu effaces O.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub ToggleButton1_Click() 
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
 
Set PL = Range("O2:P2") 'définit la plage PL
DL = Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet O
With ToggleButton1 'prend en compte le ToggleButton1
    If .Value = True Then 'condition 1 : si le bouton est appuyé
        .BackColor = 5950882 'change la couleur
        If DL = 1 Then 'condition 2 : si la dernière ligne éditée de la colonne B est la ligne 1
            PL.Copy O.Cells(DL, "B") 'copie la plage PL dans la cellulue ligne DL colonne B
        Else 'sinon (DL est une autre ligne que la 1)
            PL.Copy O.Cells(DL + 1, "B") 'copie la plage PL dans la cellulue ligne DL+1 colonne B
        End If 'fin de la condition 2
    Else 'sinon (si le bouton est relâché)
        .BackColor = 12701133 'change la couleur
        Cells(DL, "B").Resize(1, 2).ClearContents 'efface les cellule des colonnes B et C de la ligne DL
    End If 'fin de la condition 1
End With 'fin de la prise en compte...
End Sub