XL 2016 Bouton BVA

[klemasson]

Bonjour,

J'aimerai rajouté un bouton "effacer"dans l'onglet "prix" de mon fichier qui efface toute les données inscrite dans les cellules "Nombre"
Et j'aimerai aussi, si c'est possible, rajouter un bouton dans l'onglet "recap" qui s’appellerait TVA et que si on clique dessus, il y a la TVA de 7.7% qui se rajouter à la ligne 26 et qui s'ajoute au total de la cellule D28.

Est-ce que c'est possible ?

Merci d'avance et meilleures salutations

 

[sylvanu]

Bonjour Klemasson,
Pour le premier point j'ai un peu triché pour simplifier les choses.
Toutes les cellules à effacer sont en fond bleu ( Le bouton est en haut à gauche ). Et cette macro :

Sub Effacer()
    Application.ScreenUpdating = False
    col = Array(4, 10, 16, 22)
    For C = 0 To UBound(col)
        For L = 1 To 100
            If Cells(L, col(C)) <> "" Then
                If Cells(L, col(C)).Interior.Color = RGB(217, 255, 250) Then Cells(L, col(C)) = ""
            End If
        Next L
    Next C
End Sub

Pour le second point j'ai rajouté une ligne Total net, et la TVA avec 23 boutons l'ajouter ou la supprimer, avec :

Sub AjouterTVA()
    [A27] = "TVA 7.7%"
    [D27] = 0.077 * [D28]
End Sub
Sub SupprimerTVA()
    [A27] = ""
    [D27] = ""
End Sub

 

[klemasson]

C'est top ! Merci beaucoup pour le travail !