Microsoft 365 Ajout d'un nouveau critère dans le code VBA

[Amilo]

Bonjour le forum,

Je me permets d'ouvrir un nouveau fil même s'il s'agit d'une demande dans la continuité de ma précédente discussion ici,
Vous trouverez 2 fichiers dont l'un contenant le code élaboré par yal et que j'aurais souhaité adapater (voir fichier "Consolidation in situ yal v2"),
J'ai indiqué toutes les explications dans chacun des onglets du fichier.

En vous remerciant par avance

Cordialement

 

[yal]

Bonjour

  If CI = 230000 Then
    For i = 2 To UBound(tbSynth, 2)
      tbSynth(11, i) = tbSynth(11, i) * -1
    Next i
  End If

 

[Amilo]

Bonjour @yal ,
Encore une fois merci pour tout ce que vous avez fait.
Je pense que le fichier est désormais complètement terminé, mille mercis
Bonne fête à tous
Cordialement