Recherche cellule précise pour insérer un chiffre par rapport à une cellule

Le 17/01/2023 à 09:38

Salut Galiax,

pfiouu, cela remonte loin! Fallait déjà se replonger dedans!

J'ai trouvé, je pense, les problèmes!

    For x = 1 To UBound(tTab, 1)
         If InStr(tTab(x, 2), "Date de remise") > 0 Then _
            If CInt(tTab(x + 1, 1)) <> iTour Or iIdx = 0 Then _
            iIdx = iIdx + 1: _
            iTour = CInt(tTab(x + 1, 1)): _
            ReDim Preserve tExtract(iCol + 1, iIdx): _
            tExtract(0, iIdx - 1) = iTour
         If InStr(tTab(x, 1), "M-") > 0 Then sItem = tTab(x, 1)
         If InStr(tTab(x, 2), "M-") > 0 Then sItem = tTab(x, 2)
         If sItem <> "" Then
            For y = 3 To 7
                If tTab(x, y) <> "" Then _
                    iStep = y: _
                    Exit For
            Next
            For y = 1 To iCol
               If InStr(tType(2, y), sItem) > 0 Then
                  ' nouvelle condition pour limiter M-2 à 1 boîte
                  If sItem = "M-2" And Fix(CInt(Replace(tTab(x, iStep), " ", "")) / CInt(tType(1, y))) > 1 Then
                     tTab(x, 7) = 1
                  Else
                     ' sinon, l'on traite normalement
                     tTab(x, 7) = Fix(CInt(Replace(tTab(x, iStep), " ", "")) / CInt(tType(1, y)))
                     tExtract(y, iIdx - 1) = CInt(tExtract(y, iIdx - 1)) + CInt(tTab(x, 7))
                     Exit For
                  End If
               End If
            Next
            sItem = ""
         End If
      Next

Je teste systématiquement dans quelle colonne se trouve le montant = iStep (à déclarer en début de procédure).

- Service téléchargement indisponible -

À tester.

A+

Le 17/01/2023 à 13:55