Re : Doublons sur plusieurs colonnes
Bonjour Bebere et le forum
Avant de revenir sur l' enregistrement dans les dossiers fermés, je vaudrais te remercier du temps que tu consacres à mon projet d' ailleurs que je n' ai pas compris grand chose, lequel je reviendrais plus tard pour que tu puisses m' expliquer au mieux.
j' aimerais juste revenir sur un code que tu m' as donné concernant l' onglet conclusion dans lequel manquent certains éléments,j'e l' ai un peu modifié mais manque de clarté je te joins le fichier
Abientot
Sub Conclusion()
Dim Plg As Variant, I As Long, L As Long, Client As String
Dim Conclusion As String, Debut As Integer, Longueur As Integer, Longueur1 As Integer
Dim Diff As Variant
Application.ScreenUpdating = False
With Sheets("Traitement")
Plg = .Range("E3:U" & .Range("E65536").End(xlUp).Row)
End With
For I = 1 To UBound(Plg, 1)
Conclusion = ""
Client = Plg(I, 1)
If Plg(I, 2) = "" Then
Conclusion = "Le client " & Client & " quantité : " & Plg(I, 3) & " Tournee : " & Plg(I, 5) & " Bac : " & Plg(I, 6) & " Casier : " & Plg(I, 7) & _
" n'avait pas été commandée mais est arrivée en Palette"
Debut = InStr(Conclusion, ":") + 2
Longueur = Len(Client)
Longueur1 = Len(CStr(Plg(I, 3)))
End If
If Plg(I, 3) = "" Then
Conclusion = "Le client " & Client & " quantité : " & Plg(I, 2) & " Tournee : " & Plg(I, 5) & " Bac : " & Plg(I, 6) & " Casier : " & Plg(I, 7) & _
" avait bien été commandée mais n' est pas arrivée en Palette"
Debut = InStr(Conclusion, ":") + 2
Longueur = Len(Client)
Longueur1 = Len(CStr(Plg(I, 2)))
End If
If Plg(I, 2) <> "" And Plg(I, 3) <> "" Then
If Plg(I, 2) <> "" And Plg(I, 3) <> "" Then
Diff = Plg(I, 2) - Plg(I, 3)
If Diff > 0 Then
Conclusion = "Le client " & Client & " a une différence de : " & Diff & " Tournee : " & Plg(I, 5) & " Bac : " & Plg(I, 6) & " Casier : " & Plg(I, 7) & _
" la quantité livrée en palette n' est pas complete"
Debut = InStr(Conclusion, ":") + 2
Longueur = Len(Client)
Longueur1 = Len(CStr(Diff))
End If
End If
End If
If Conclusion <> "" Then
With Sheets("Conclusion")
L = .Range("A65536").End(xlUp).Row + 1
If L > 2 Then L = L + 1
.Range("A" & L) = Conclusion
.Range("A" & L).Characters(11, Longueur).Font.ColorIndex = 3
.Range("A" & L).Characters(Debut, Longueur1).Font.ColorIndex = 3
.Columns(1).AutoFit
End With
End If
Next I
Application.ScreenUpdating = True
End Sub