Bonjour,
la maccro ci-dessous va rechercher les commentaire d'un autre fichier pour les rapatrier, ça marche bien sauf que ça inverse les dates (quand il n'y a pas de texte devant) par exemple ça va transformer en 06/05 en 05-juin
si quelqu'un a une idée, merci
Sub ajout_commentaire_achat_brut()
Application.ScreenUpdating = False
Sheets("produit achat brut").Select
Range("A1").Select
'recherche des anciens commentaire dans la base commentaire
Workbooks.Open Filename:="N:\GP\suivi brut pour plannification\base\base commentaire achat brut.xlsx", UpdateLinks:=3
Dim nbrligneBaseCommentaire As Long
Dim tableau_base_commentaire As Variant
nbrligneBaseCommentaire = Application.WorksheetFunction.CountA(Range("A:A"))
tableau_base_commentaire = Range(Cells(1, 1), Cells(nbrligneBaseCommentaire, 14)).Value
ActiveWorkbook.Close
'supprimer tous les anciens commentaires
Range("M6:M1048576").Select
Selection.ClearContents
'insertion des commentaires
Dim iCommentaire As Long
Dim nbrligneCommentaire As Long
Dim concaCommentaire As String
Dim concaBaseCommentaire As String
Dim iBaseCommentaire As Long
nbrligneCommentaire = Range("A" & Rows.Count).End(xlUp).Row
For iCommentaire = 7 To nbrligneCommentaire
concaCommentaire = Cells(iCommentaire, 3) & Cells(iCommentaire, 4)
'recherche dans la base commentaire si on trouve la correspondance
For iBaseCommentaire = 2 To UBound(tableau_base_commentaire, 1)
concaBaseCommentaire = Split(tableau_base_commentaire(iBaseCommentaire, 1), "__")(0) & Split(tableau_base_commentaire(iBaseCommentaire, 1), "__")(1)
If concaCommentaire = "" Then GoTo line100:
If concaBaseCommentaire = concaCommentaire Then
Cells(iCommentaire, 13) = tableau_base_commentaire(iBaseCommentaire, 14) 'commentaire achat
'Cells(iCommentaire, 14) = tableau_base_commentaire(iBaseCommentaire, 15) 'commentaire magasin
GoTo line100:
End If
Next iBaseCommentaire
line100:
Next iCommentaire
'--------------------------------------------------------------------------------------------------------------------------------------------------
End Sub