Discussion :

[Menhir]

Je l'ai déjà dit, j'évite d'ouvrir les pièces jointes, surtout celles pouvant contenir des macros.

[MsVixene]

Je l'ai déjà dit, j'évite d'ouvrir les pièces jointes, surtout celles pouvant contenir des macros.

Ah désolée je n'ai pas vu.

Je pense avoir trouvé d'où vient le soucis.

J'ai des références circulaires dans la colonne M à chaque ligne pour laquelle il y a eu un couper/coller de la colonne L à N !

Comment puis-je régler ça ?

EDIT 29-09 : le copié/collé + suppression de la valeur n'était-il pas plus approprié finalement ?

[MsVixene]

Bonjour,

j'ai finalement corrigé par ceci, ce qui semble fonctionner.

Code :

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

1
2
3
4
5
6
For R = 2 To Derlig
If Cells(R, 19).Text = "J" Then
Cells(R, 12).Copy Cells(R, 14)
Cells(R, 12).Clear
End If
Next R

[Menhir]

En remplaçant Copy par Cut, tu peux supprimer la ligne suivante.

[MsVixene]

En remplaçant Copy par Cut, tu peux supprimer la ligne suivante.

C'est bien ce que j'avais fait mais c'est précisément ce qui me provoque une référence circulaire car la formule de total juste à droite s'adapte : la plage de la somme se décale en colonne N et recouvre donc la colonne M sur laquelle est placée la formule Somme.

D'où mon besoin de copier/coller puis supprimer.

J'ai aussi compris que c'est une question d'ordre : si je place le couper/coller avant de faire les sommes, cela va marcher mais ça m'embête par rapport à d'autres lignes de code.

Le fichier est presque fini, j'essaie de faire un check global : j'aimerais afficher l'écart entre la somme totale de l'onglet BASE et la somme du total général en M et en R.
J'ai encore un peu de mal à intégrer le comptage de la dernière ligne (puisque je ne peux pas préciser les cellules car elles peuvent varier)

J'ai pris le FormulaLocal que nous avons déjà utilisé mais est-ce adapté ?
La formule que j'aimerais est : Somme des colonnes 4 à 15 de l'onglet BASE + Dernière cellule de la colonne 13 et 18 de l'onglet MO1.

Code :

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

1
2
3
4
Range("R65000").End(xlUp).Select
   ActiveCell.Offset(2, 0).Select
 
ActiveCell.FormulaLocal = "=SOMME(D2:O185)"