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 : 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
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