VBA - Problème Code Somme Automatique

Bonjour,

Je travaille pour un hôtel et je mets en place des macros pour différentes tâches de la réception que j'ai pu peaufiner grâce à votre forum.
Actuellement, j'ai une macro "Diner" où la somme automatique qui arrive en fin de code ne fonctionne pas. Pas de message d'erreur juste pas de résultat.
Sur le document "Macros" en PJ, il y a les 2 dernières macros sur lesquelles je travaille et celle qui se nomme PDJ effectue le même code de somme automatique et elle affiche un résultat.
Je vous ai mis une BD type sur laquelle je me base pour les 2 macros.

Ma question est donc : pourquoi la macro PDJ affiche le résultat de la somme automatique et pas la macro Diner alors que le code est en copier-coller? Et comment résoudre ce problème?

Merci d'avance pour votre aide.

Etant donné que beaucoup de participants à ce forum n'ouvrent pas les pièces jointes, il serait préférable que tu utilises d'autres moyens pour présenter ton problème : copie du code (de préférence entre balises CODE), copie d'écran des données, etc.

Bonjour,

Alors voici la partie du code qui ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("H1").Select vRowTop = 2 vRowBottom = ActiveCell.Offset(-1, 0).Row vDiff = vRowBottom - vRowTop + 1 Selection.FormulaR1C1 = "=SUM(R[" & -vDiff & "]C:R[-1]C)"   Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("I1").Select vRowTop = 2 vRowBottom = ActiveCell.Offset(-1, 0).Row vDiff = vRowBottom - vRowTop + 1 Selection.FormulaR1C1 = "=SUM(R[" & -vDiff & "]C:R[-1]C)"

---

Et voici un exemple de ma base de donnée après application de la macro:
Pièce jointe 389519

Je m'attends donc à ce que le code ci-dessus m'affiche les sommes automatiques en bas de la colonne H et I mais ce n'est pas le cas même si je n'est aucun message d'erreur.

Je remets en PJ la base de donnée complète au cas où.

Citation:

---

Envoyé par Clarita08

Je m'attends donc à ce que le code ci-dessus m'affiche les sommes automatiques en bas de la colonne H et I

---

Un conseil : essaye de t'affranchir des Select/Selection/ActiveCell.
Ca donne un code inutilement compliqué.

Pas sûr d'avoir tout compris dans ton code mais essaye ça :

Code:

---

1 2 3

vRowBottom = Range("A1").End(xlDown).Row Cells(vRowBottom + 1,"H").FormulaR1C1 = "=SUM(R[" & (2 - vRowBottom) & "]C:R[-1]C)" Cells(vRowBottom + 1,"I").FormulaR1C1 = "=SUM(R[" & (2 - vRowBottom) & "]C:R[-1]C)"

---

Normalement, il devrait s'afficher dans la dernière ligne de H et I quelque chose qui ressemble à la formule que tu souhaites.
Il y aura peut-être une petite correction à faire sur le premier indice du SUM.

On pourrait optimiser en ne faisant qu'une seule ligne de code pour les deux dernières lignes.

Bonjour,

Je sais que mon code est un peu compliqué. Il vient de plusieurs sources différentes et bizarrement le même code sur une base de donnée légèrement différente fonctionne et me donne les sommes automatique.

Base de donnée où mon code fonctionne :

Chambre	Nom du client	Société	Agence	Groupe	Arrivée	Départ	Adultes	Enfants	Type de Tarif	Signature
1	A				18/06/2018	20/06/2018	1	1	PDJ Inc/City Tax Extra B2
2	B				18/06/2018	20/06/2018	2	0	PDJ Inc/City Tax Extra B2
3	C				18/06/2018	20/06/2018	1	0	PDJ Inc/City Tax Extra B2

Et la base de données où il ne fonctionne pas :

Chambre

Nom du client

Société

Agence

Groupe

Arrivée

Départ

Adultes

Enfants

Type de Tarif

Membre IHG RC

Réservations

Heure

Nb de pax

1

A

18/06/2018

20/06/2018

1

1

IPDCN

CLUB

2

B

18/06/2018

20/06/2018

2

0

IGBBB

CLUB

3

C

18/06/2018

20/06/2018

1

0

IPDCN

J'ai essayé le code de Menhir et là, même chose : pas de message d'erreur mais pas de résultat.

Je ne sais plus quoi essayer. J'ai un doute si ce n'est pas à cause de la ligne 2 qui est vide dans ma BD qui ne fonctionne pas mais elle est fusionner en vrai donc je ne sais pas...

Help :)

Bonjour,

Finalement j'ai trouvé la solution à mon problème: c'était en effet les lignes 1 et 2 qui étaient fusionnées sur mon document qui empêchaient le code de trouver la première cellule vide. J'ai donc déplacé le code avant l'insertion de la ligne 2 et avant les fusions et là ça marche.

Merci quand même.