Bonjour,
Je sollicite votre aide sur un complément à ajouter à la macro ci-dessous.
J'ai besoin qu'à partir du moment où la somme des chargements est supérieur au déploiement fait ( colonne G ) alors la suite des chargements passe à la suite.
Pour mieux expliquer les choses, j'ai joint un fichier qui je l'espère sera plus explicite que mes explications !!!
Fichier trop volumineux alors voici le lien de partage
Fichier
Je sollicite votre aide sur un complément à ajouter à la macro ci-dessous.
J'ai besoin qu'à partir du moment où la somme des chargements est supérieur au déploiement fait ( colonne G ) alors la suite des chargements passe à la suite.
Pour mieux expliquer les choses, j'ai joint un fichier qui je l'espère sera plus explicite que mes explications !!!
VB:
Sub Chgt()
Application.ScreenUpdating = False
Range("K5:FF1500").Select
Selection.ClearContents
Dim Première_Ligne As Integer, Dernière_Ligne As Integer, i As Integer, Compteur As Byte, Couleur As Boolean
Range("A5").Activate
Retour:
Compteur = 5
Première_Ligne = ActiveCell.Row
Do Until ActiveCell.Offset(1, 0) <> ActiveCell
If ActiveCell = "" Then Exit Sub
ActiveCell.Offset(1, 0).Activate
Loop
Dernière_Ligne = ActiveCell.Row
With Sheets("Tampon")
For i = 5 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("D" & i) = Range("A" & Première_Ligne) Then
Compteur = Compteur + 6
Cells(Première_Ligne, Compteur) = .Range("B" & i)
Cells(Première_Ligne, Compteur + 1) = .Range("C" & i)
Cells(Première_Ligne, Compteur + 2) = .Range("F" & i)
Cells(Première_Ligne, Compteur + 3) = .Range("G" & i)
Cells(Première_Ligne, Compteur + 4) = .Range("J" & i)
Cells(Première_Ligne, Compteur + 5) = .Range("K" & i)
End If
Next i
End With
ActiveCell.Offset(1, 0).Activate
GoTo Retour
End SubFichier trop volumineux alors voici le lien de partage
Fichier
Dernière édition: