Ajouter et rectifier

Bonsoir
Ceci pour te mettre sur la voie, mais ce serait pas mal si tu tentais quelque choses avant de demander!
Attention la méthode peut être lente si tu as beaucoup de données.

sousou à dit:

Bonsoir
Ceci pour te mettre sur la voie, mais ce serait pas mal si tu tentais quelque choses avant de demander!
Attention la méthode peut être lente si tu as beaucoup de données.

Cliquez pour agrandir...

Merci beaucoup pour votre aide je testerai demain sur l'ensemble de mon fichier

bonjour à tous,

je reviens vers vous afin de savoir s'il était possible de préciser dans les deux fichiers (a ajouter et a rectifier), servant a mettre à jour le fichier initial, une annotation dans la colonne G après modification effectuée.

par avance merci pour votre aide

Bonsoir le fil, le forum

@seb83100
Qu'ont donné les tests que tu as fait?
(Ceux suggérés par sousou dans le message#2)

le test a été concluant, j'ai juste rectifié la macro pour la prise en compte de 5 conditions au lieu de 4.
mais maintenant je cherche à avoir une annotation dans les 2 fichiers (a ajouter et a rectifier) après mise à jour pour indiquer les modifications.
le soucis est que je peux avoir dans les deux fichiers des références non présentes dans le fichier initial et je souhaiterai les "marquer" afin de les traiter à part.

Cordialement.

ps j'ai ajouter les fichiers dans mon précédent message

Cordialement,

Bonsoir, je suis de retour.
En ajoutant ou en modifiant les lignes en gras ci-dessous.
Tout dépend de ce que tu veux comme annotation, j'ai pas tous contrôlé...
Public faj, finit
Sub ajouter()
chemin = ThisWorkbook.Path
Set finit = ThisWorkbook.Sheets(1)
'Set aj = Workbooks("ajouter.xlsx")
Set aj = Workbooks.Open(chemin & "\ajouter.xlsx")
Set faj = aj.Sheets(1)
n = 0
Set debinit = finit.Cells(2, 3)
While debinit.Offset(n, 0) <> ""
res = cherche(debinit.Offset(n, 0), "Vérifier ajouter")
If res <> False Then
debinit.Offset(n, 5) = debinit.Offset(n, 5).Value + res
End If
n = n + 1
Wend
aj.Close savechanges:=True
End Sub

Function cherche(valeur, annotation)
Set debaj = faj.Cells(2, 1)
While debaj.Offset(n, 0) <> ""
If ( _
debaj.Offset(n, 0) = valeur.Offset(0, 0) And _
debaj.Offset(n, 1) = valeur.Offset(0, 1) And _
debaj.Offset(n, 2) = valeur.Offset(0, 2) And _
debaj.Offset(n, 3) = valeur.Offset(0, 3) And _
debaj.Offset(n, 4) = valeur.Offset(0, 4) _
) Then
Set cherche = debaj.Offset(n, 5)
cherche.Offset(0, 1) =annotation
Exit Function
End If
n = n + 1
Wend

End Function

Sub rectifier()
chemin = ThisWorkbook.Path
Set finit = ThisWorkbook.Sheets(1)
'Set aj = Workbooks("a rectifier.xlsx")
Set aj = Workbooks.Open(chemin & "\a rectifier.xlsx")
Set faj = aj.Sheets(1)
n = 0
Set debinit = finit.Cells(2, 3)
While debinit.Offset(n, 0) <> ""
res = cherche(debinit.Offset(n, 0), "Vérifier rectifier")
If res <> False Then debinit.Offset(n, 5) = res
n = n + 1
Wend
aj.Close
End Sub

merci SOUSOU,

cela correspond a ce que je souhaitai je viens de tester.

encore merci

Bonne soirée