Discussion :

[archibest]

Bonjour
je suis nouveau dans le forum et la programmation, je viens de commencer à apprendre vba sous excel, j'ai débuter par créer un macro pour automatiser le calcule et la saisie du résultat Hors taxe à partir d'un résultat ttc sous vba. j'ai spécifié une cellule pour la saisie du résultat ttc avec une liste déroulante qui contient deux catégorie (Epicerie; Boucherie) et un tableau journal des recette. le résultat de la caisse est donnée en ttc, je veux saisir le montant ttc dans la cellule Range("N13") et la liste déroulante dans la cellule ("N12).
je veux quant je sélectionne la catégorie dans la liste déroulante et je saisie le montant TTC de cette catégorie un macro fait le calcule pour trouver le montant HT et de l’insérer dans la cellule sélectionner. je vous montre ce que j'ai fait comme macro, ça ne marche pas et je ne sais pas pourquoi.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CategorieTTC()
Dim Range1tva As Double, Range2tva As Double
Dim MaCellule As String
 
 Range1tva = ActiveCell.Offset(0, 1)
 Range2tva = ActiveCell.Offset(0, 2)
 MaCellule = Range("N12").Value
 
    Select Case MaCellule
 
        Case MaCellule = "Boucherie"
                ActiveCell.Activate = (Range("N13").Value / (Range1tva + 1))
 
        Case MaCellule = "Epicerie"
                ActiveCell.Activate = (Range("N13").Value / (Range2tva + 1))
 
End Select
ActiveCell.Offset(0, 1).Activate
 
End Sub

je souhaite profiter de votre savoir et connaissance dans le domaine pour avoir une explication et une solution à mon problème. Je vous remercie d'avance pour votre aide et effort

[unparia]

Bonjour

ça marche et je ne sais pas pourquoi.

moi non plus.
Lis donc ceci :
https://www.developpez.net/forums/d8...s-discussions/
et la seconde phrase de ma signature
Puis reviens en t'y conformant.
Je saurai alors peut-être ce dont il s'agit, hein ...

[archibest]

bonjour
je m’excuse je n'ai pas lu les règles.
J'ai essayé de supprimer le fichier mais je ne sais pas comment

[Menhir]

Code :

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

                ActiveCell.Activate = (Range("N13").Value / (Range1tva + 1))

ActiveCell.Activate ne veut rien dire. Plus exactement, c'est comme si tu demandais à ton GPS le chemin pour se rendre là où tu te trouves.

Si tu veux mettre une VALEUR dans une cellule, il faut utiliser le propriété Value.

Code :

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

                ActiveCell.Value = (Range("N13").Value / (Range1tva + 1))

[archibest]

Je m'excuse de ne pas avoir répondu plutôt car j'ai été en déplacement .
Ce n'est pas ça le problème c'était un oublie de ma part mais je l'avais déjà corrigé. Jusqu'à présent je n'ai pas trouvé la solution à mon problème.
je vous explique qu'est ce que je veux faire. J'ai un tableau journal avec les entêtes suivants:
La date du mois comptable, une cellule Caisse et elle est divisée en deux cellules qui présente deux catégories Epicerie_HT et Boucherie_HT, une cellule Erreur_caisse,une cellule avec une liste déroulante TVA avec les différent taux en France, une cellule Total_HT c'est la somme des deux cellules Epicerie_HT et Boucherie_HT et une cellule Total_TTC du jour.
Le résultat de la recette caisse du jour est en TTC pour les deux catégorie Epicerie est Boucherie, je souhaite créer un tableau avec deux lignes ligne entête et ligne valeur, et 2 colonnes une pour catégorie avec une liste déroulante Epicerie, Boucherie et une colonne le Montant_TTC pour l'un des deux catégorie Epicerie ou Boucherie.
Le principe c'est quand je saisie le montant TTC du jour de l'un des deux catégories dans la cellule Montant_TTC le résultat se transcrit dans la cellule active de la catégorie choisie dans la liste déroulante Categorie en montant HORS TAXE avec la TVA sélectionner dans la cellule TVA, en code VBA.
j'espère que j'étais clair, et précis dans mes explications.

Je remercie tous ce que qui vont m'aider, à résoudre ce problème.

[archibest]

ça y est problème résolu