Tva

[apdf1]

Bonjour,

Voila j'aimerais quand je passe du prix HT au TTC les lignes "M30:O37" prennent la
conversion

Merci d'avance

Cordialement

Max

 

[Hippolite]

Re : Tva

Bonjour,
Ton code complété :

Private Sub CommandButton1_Click()
Dim cell As Range
If Range("M29") = "Prix TTC" Then
    Range("M29") = "Prix HT"
    Range("N29") = "TTC 19.6 %"
    Range("O29") = "TTC 5.5 %"
    For Each cell In Range("M30:M37")
        cell.Offset(0, 1) = cell * 1.196
        cell.Offset(0, 2) = cell * 1.055
    Next
Else
    Range("M29") = "Prix TTC"
    Range("N29") = "HT 19.6 %"
    Range("O29") = "HT 5.5 %"
    For Each cell In Range("M30:M37")
        cell.Offset(0, 1) = cell / 1.196
        cell.Offset(0, 2) = cell / 1.055
    Next
End If

A+

 

[apdf1]

Re : Tva

Bonjour Hippolite

Je te remercie beaucoup

Max