Pb macro excel

[jyc410]

Bonjour,

Nouveau sur ce forum, j'aurais besoin de vos lumières.
J'ai un tableau excel avec des montants saisis en hors taxes (issus d'un fichier de france télécom),
On me demande s'il est possible, en saisissant ces montants dans les cellules, qu'un calcul automatique les transforme automatiquement au même emplacement (même colonne), en un montant TTC.
(J'avais commencé par faire une nouvelle colonne avec le montant total TTc mais c'eut été trop facile !!!)
Je pense que cela est faisable, avec des macros commandes et peut-être un bouton pour effectuer l'opération, mais je cale devant ce problème.
est-il possible également d'effectuer cette opération sur tout le tableau en une seule fois ???
Exigeant, je suis...

Merci pour votre aide.

Jyc410

 

[jyc410]

Re : Pb macro excel

Soyez pas désolés, vous me rendez un grand service.

je vous remercie pour tout.

Bonne nuit

JYC410

 

[jyc410]

Re : Pb macro excel

Bonjour,

Je reprends mon fichier et je m'aperçois qu'il faut exclure une colonne de ma saisie car je dois y effectuer un total.
Ma question : comment exclure cette colonne ?

Merci d'avance

JYC410

 

[jeanpierre]

Re : Pb macro excel

Bonjour jyc410, le fil,

En rajoutant une exception....

If b Or Target.Column < 3 Or Target.Column > 14 Or Target.column = (le numéro de ta colonne) Or Target.Row < 5 Then Exit Sub

devrait le faire.

Bonne journée

Jean-Pierre

 

[jyc410]

Re : Pb macro excel

Merci

J'avais commencé, sans être sûr de moi, à exclure de cette façon, la colonne en question, mais j'avais mal compté les colonnes, et j'en avais déduit que ce n'était pas comme cela qu'il fallait faire...
Quand on n'est pas doué...

Merci encore Jean-Pierre

 

[Staple1600]

Re : Pb macro excel

Bonsoir jyc410, Pierrot93, jeanpierre, le fil, le forum


Une version plus simple à modifier
(si la plage de cellules est amenée à varier)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim maplage$
maplage = "[COLOR=Navy]$C$5:$N$100[/COLOR]" [COLOR=Green]'ici mettre l'adresse de la plage désirée[/COLOR]
Static b As Boolean
If b Or Target.Count > 1 Or Intersect(Target, Range(maplage)) Is Nothing Then Exit Sub
b = True
Target.Value = Target.Value * 1.196
b = False
End Sub

 

[jyc410]

Re : Pb macro excel

Merci pour les solutions.
A bientôt

JYC410