Bonjour,
Voici ce que je souhaite faire : lors d'un appui sur le togglebutton copier deux cellules O2 :B2 en B2:C2 et si on rappuie sur le bouton que les deux cellules copiées en Bx:Cx soient effacées. Si des données sont présentes en Bx+1:Cx+1 elles sont remontées d'une ligne pour ne pas laisser de cellule vide entre deux cellules complétées. La suppression de la ligne en question n'est pas envisageable car d'autres valeurs sont présentes.
Voici ce que je souhaite faire : lors d'un appui sur le togglebutton copier deux cellules O2 :B2 en B2:C2 et si on rappuie sur le bouton que les deux cellules copiées en Bx:Cx soient effacées. Si des données sont présentes en Bx+1:Cx+1 elles sont remontées d'une ligne pour ne pas laisser de cellule vide entre deux cellules complétées. La suppression de la ligne en question n'est pas envisageable car d'autres valeurs sont présentes.
Code:
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
Dernière édition: