Bonjour à tous,
Je vous expose mon besoin:
j 'ai mon besoin en nombre de palettes sur la colonne B ensuite de la colonne C à F ou se trouve des palettes disponibles.
Je veux faire une boucle pour me soustraire à chaque fois mon besoin (Colonne B) -(Colonne C) si je ne trouve pas la somme totale je continue à soustraire avec la colonne voisine de C cad (Colonne B)-(Colonne D) jusqu'à ce que je trouve la totalité de mon besoin.
Ensuite j 'aimerais récupérer le résultat de la soustraction et la mettre sur un autre onglet DONNES.
Vous trouverez ci joint le fichier et ci dessous le code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'On désactive les events pour empêcher les bugs
Application.EnableEvents = False
Dim i As Integer
Set Ws = Sheets("Liste")
If (Target.Column = 2) Then
Row = Target.Row
Nb = Range(Target.Address)
Var = Cells(Row, i) - Nb.Value
i = 3
While Nb > 0 And i <= 6
If Not IsEmpty(Cells(Row, i)) Then
If Cells(Row, i) >= Nb Then
Cells(Row, i) = Cells(Row, i) - Nb
Nb = 0
ElseIf Cells(Row, i) < Nb Then
Nb = Nb - Cells(Row, i)
Cells(Row, i) = 0
End If
End If
i = i + 1
Wend
End If
Application.EnableEvents = True
End Sub
Bien cordialement