Discussion :

[NEC14]

Bonjour à tous,

Voilà ce que je cherche à mettre en place, mais peut-être n'est-ce pas possible.

Imaginons que je tape 100.00€ dans la cellule A1, alors je souhaite que la TVA soit calculée automatiquement, donc dans mon exemple, 100.00€ devient 120.00€ (base d'un calcul de TVA à 20%)
Comment puis-je faire et surtout est-ce possible ?
Merci par avance
Bien amicalement
René

[casefayere]

bonjour,
essayes dans l'évènement "Change de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Target * 1.2
Application.EnableEvents = True
End Sub

[NEC14]

Bonjour Dom,

Merci pour ta réponse. Mais avec ce code se sont toutes mes cellules qui être multipliées par 1.2, hors certaine ne doivent pas bouger. J'aurai du le dire dans mon premier message
toutes mes excuses
René

[eric4459]

Bonjour,
En cherchant sur le net j'ai trouvé un code que j'ai adapté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
    Range("A1").Value = (Range("A1").Value * 0.2) + Range("A1").Value
    End If
End Sub

Seulement, le résultat n'est pas celui attendu, on obtient un nombre très grand, à mon avis ce doit être du au fait que la formule donne une nouvelle valeur à la cellule, cellule qui détecte un changement donc refait l'opération et ainsi de suite jusqu'à saturation
En créant une cellule tampon on peut y arriver.
Voici ce que j'ai fait, j'ai utilisé la cellule A2 mais ce pourrait être toute autre cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
    Range("A2").Value = (Range("A1").Value * 0.2) + Range("A1").Value
    End If
End Sub

Il doit pouvoir être possible de déterminer si la cellule change et arrêter le processus mais je n'ai pas trouvé
Eric

[casefayere]

en reprenant le code de eric, s'il s'agit d'une colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
if Target.Column = 1 Then Target = Target * 1.2' pour la col A
Application.EnableEvents = True
End Sub

donc à toi d'adapter

[Miistik]

Bonjour,

Le plus simple est d'utiliser trois cellules : une pour tes 100 000 euros, une pour le taux de TVA et une dernière pour le résultat.
Tu auras donc un montant HT et un TTC d'après la formule Prix TTC = Prix HT * ( 1 + TVA/100 )

En A1, tu écris ton montant HT, en B1 la TVA et en C1 le montant TTC.

Cela donne en C1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=$A$1*(1+$B$1/100)

Ainsi, tu peux modifier le taux de TVA au besoin sans impact sur ta formule et tu disposes du montant HT et TTC.

[casefayere]

oui Miistik (et je préfère ta solution), mais j'imagine que NEC14 veut le résultat sur la même cellule

[NEC14]

Merci Dom ta formule fonctionne bien je viens de la tester sur une colonne, maintenant il faut que je l'adapte à mes 36 colonnes concernées.
Merci également aux autres participants de ce post

Je vous tiens informé de la suite

[eric4459]

Rebonjour,
En adaptant le code avec celui de Casefayere ce qui suit fonctionne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Address = "$A$1" Then
    Range("A1").Value = (Range("A1").Value * 1.2)
    End If
    Application.EnableEvents = True
End Sub

Eric

[NEC14]

Super ça fonctionne, merci beaucoup Dom