Bonsoir JDD
Bonsoir à tous
J'ai un peu réfléchi, et j'ai transformé un bout de code
Je te le transmet, essayes le, on devrait gagner du temps sur le traitement
Dans 'Sub fichier_01() ' à la place de :
'''For x = 0 To derlign_base ''' le 0 réprésente la cellule A1 vers derlign
''' dans le cas présent A7 ne pas changer
'''If ActiveCell.Offset(ligne, 0).Value = liste_code_barre(x, 0) Then
'''For b = 1 To 3
'''liste_code_barre(x, b + (3 * num_fic)) = ActiveCell.Offset(ligne, b).Value
'''Next b
'''b = 0
'''liste_code_barre(x, 13) = liste_code_barre(x, 13) + 1
'''x = 0
'''Exit For
'''End If
'''Next x
tu remplaces par :
texte_cellule = ActiveCell.Offset(ligne, 0).Value
Windows(nom_fichiers(0)).Activate
With Worksheets(1).Range('a7:a19')
Set Var = .Find(texte_cellule, LookIn:=xlValues)
maligne = Var.Row - 7
End With
Windows(nom_fichiers(c)).Activate
For b = 1 To 3
liste_code_barre(maligne, b + (3 * num_fic)) = ActiveCell.Offset(ligne, b).Value
Next b
b = 0
liste_code_barre(maligne, 13) = liste_code_barre(maligne, 13) + 1
A+
Cordialement