MAJ fichier Vlookup

Bonjour mrjenkins,

Merci de ta réponse. C'est intéressant, je vais tester ça cette après midi et je te dirais ce qu'il en est.

Je me suis penché dessus, mais j'avoue ne pas comprendre comment l'intégrer à ma macro. C'est la première fois que je me sers d'une fonction personnelle.

Je comprends bien qu'elle remplace à elle seul ma ligne "F=..." et également ma conséquence then grâce à error value.

Mais qu'en est il du test logique ? Puisque dans mon cas, c'est précisément lorsqu'il y a erreur qu'il se passe quelque chose. Si la formule trouve une correspondance dans le second fichier, il ne doit rien se passer. Avec, cette fonction, il se passe quelque chose à tous les coups, vrai ou faux ...

je ne sais pas si je suis très clair dans mes explications ^^

Salut,

j'ai un peu plus cherché du coup, c'est vrai que le besoin est pas le même.
Voici ce que j'ai sorti et qui semble fonctionner :

Option Explicit

Sub testrecherchev()

Dim mabase As Range 'déclare la base du fichier recap
Dim mabase2 As Range ' déclare la base du fichier source
Dim ligne As Long 'déclare le nombre de ligne variable de "mabase2"
Dim Dernlig As Long
Dim F As Variant

Set mabase = Workbooks("MAJ_recap.xlsm").Worksheets("Feuil1").Range("A1").CurrentRegion
Set mabase2 = Workbooks("MAJ_source.xlsx").Worksheets("Feuil1").Range("A1").CurrentRegion

With ThisWorkbook.Worksheets("Feuil1")
    Dernlig = .Range("A1").End(xlDown).Row + 1
    For ligne = 2 To mabase2.Rows.Count
        If IsError(Application.VLookup(mabase2.Cells(ligne, 1).Value, mabase, 1, False)) Then
            mabase2.Rows(ligne).EntireRow.Copy Destination:=.Rows(Dernlig).EntireRow
            Dernlig = Dernlig + 1
        End If
    Next
End With
End Sub

Si tu as des remarques/questions, hésite pas.

Bonjour,

je viens de tester ça, ça fonctionne parfaitement....

Merci beaucoup de ton aide ;)

Histoire d'être un peu moins bête qu'avant de poser la question:

Sais-tu ce qui n'allait pas dans la mienne ?

-déclarer la formule sous un nom de variable ?

ou Est-ce un problème de structure dans l'écriture ?

Alors,

oui : la formule dans une variable ne fonctionnait pas. La ligne plantait car la variable ligne n'était pas initialisé. Le Vlookup ne pouvait pas fonctionner.

Dernlign plantait car Rows.Count renvoyait le nombre de lignes total du fichier. Tu essayais donc de sélectionner une ligne qui n'existe pas (celle après la dernière... ^^)

Dernlig = Dernlig + 1 : penser à incrémenter la variable pour ne pas écraser la mise à jour s'il y a plusieurs données à mettre dans recap.

Bonjour Michel,

Content de vous revoir.

Oui c'est exactement ça sur le principe de fonctionnement.

Pour le nombre de colonne, sur les vraies fichiers de mise en prod, ils varient.

En faite, le fichier "source"(fichier administratif), comporte en plus des informations qui m'intéressent, des informations qui ne doivent pas se retrouver dans le fichier recap (données financières). De ce fait, je vais déclarer "mabase2" sans passer par

range ("a1").currentregion 

mais plutôt par quelque chose comme

range("A:X(colonnes)".xldown.rows.count

Au total, j'utilise les 10 premières colonnes du fichier "source", pour les coller dans le fichier "recap" pas plus.

Non, seul le classeur recap le sera. la macro comportera une instruction

workbook.open(filename:=...)

pour ouvrir le fichier source puis le refermera à la fin de la procédure.

Toutes les lignes ne devront pas être copiés, seuls celles répondant à un certain critère devront l'être... Condition "And" supplémentaire.

Enfin, et c'est certainement, la partie la plus compliqué: l'ordonnancement des colonnes dans les deux fichiers ne sera pas le même. Et pour cause, les administratifs n'ont pas besoin d'avoir les mêmes informations mise en avant que les logisticiens.

Pour le nombre de ligne à l'heure actuelle, Il diffère d'un fichier à l'autre, le fichier "source" servant également d'archive pour du matériel que nous n'avons plus, il y a 74 lignes. Dans le fichier "recap", seulement 30. Dans tous les cas, ces fichiers ne comporteront jamais plus de 500 lignes au total (ou à part dans un siècle, mais d'ici là, il y aura des moyens bien plus efficaces de gérer les données).

Michel,

Dans un premier temps, j'essaie de décomposer le problème en petite étape et de demander seulement sur les points ou je coince vraiment. Voila pourquoi je ne décris pas tout.

Par exemple, pour la copie de ligne selon critère, c'est fait, j'ai une solution fonctionnelle.

Concernant l'ordonnancement des colonnes: je récupère l'intégralité des 10 premières colonnes du fichier source et je les colle dans le fichier recap. Simplement dans la première question, j'ai demandé à ce que la ligne soit collée. En réalité, la colonne 2 du fichier source se retrouvera peu être en 4ième position du fichier recap....

Description complète du problème:

1) Mise à jour d'un fichier récap à partir d'un fichier source. la macro copie la ligne du fichier source dans le fichier recap selon certaines conditions:

- la ligne n'est pas déjà présente dans le fichier recap
- le statut du matériel est "En cours"
- le site du matériel est "Chaponnay"

2) La macro supprime la ligne du fichier recap, lorsque le statut du matériel passe à "Arrêté" dans le fichier source.


Actuellement, j'en suis là, grâce à la macro de mrjenkins quelque peu modifiée:

Sub testrecherchevcritères()

Dim mabase As Range 'déclare la base du fichier recap
Dim mabase2 As Range ' déclare la base du fichier source
Dim ligne As Long 'déclare le nombre de ligne variable de "mabase2"
Dim ligne1 As Long
Dim Dernlig As Long
Dim F As Variant

Set mabase = Workbooks("Gestion_des_engins_de_manutention_(recap).xlsm").Worksheets("Gestion").Range("A1").CurrentRegion
Set mabase2 = Workbooks("Liste_chariots_elevateurs_(source).xlsx").Worksheets("Recap").Range("A6:J65536")

With ThisWorkbook.Worksheets("Gestion")
    Dernlig = .Range("A1").End(xlDown).Row + 1
    For ligne = 2 To mabase2.Rows.Count
            If IsError(Application.VLookup(mabase2.Cells(ligne, 4).Value, mabase, 1, False)) And mabase2.Cells(ligne, 1).Value = "En cours" And mabase2.Cells(ligne, 2).Value = "Chaponnay" Then
                mabase2.Rows(ligne).EntireRow.Copy Destination:=.Rows(Dernlig).EntireRow
                Dernlig = Dernlig + 1

            End If
    Next
End With

End Sub

Cette macro répond à la problèmatique 1.

J'ai tenté ça pour la problèmatique 2:

Sub testrecherchevcritères1()

Dim mabase As Range 'déclare la base du fichier recap
Dim mabase2 As Range ' déclare la base du fichier source
Dim ligne As Long 'déclare le nombre de ligne variable de "mabase2"
Dim ligne1 As Long
Dim Dernlig As Long
Dim F As Variant

Set mabase = Workbooks("MAJ_recap.xlsm").Worksheets("Feuil3").Range("A1").CurrentRegion
Set mabase2 = Workbooks("MAJ_source.xlsx").Worksheets("Feuil3").Range("A1").CurrentRegion

With ThisWorkbook.Worksheets("Feuil3")
    Dernlig = .Range("A1").End(xlDown).Row + 1
    For ligne = 2 To mabase2.Rows.Count
            If IsError(Application.VLookup(mabase2.Cells(ligne, 1).Value, mabase, 1, False)) And mabase2.Cells(ligne, 2).Value = "Employé" And mabase2.Cells(ligne, 4).Value = "Chaponnay" Then
                mabase2.Rows(ligne).EntireRow.Copy Destination:=.Rows(Dernlig).EntireRow
                Dernlig = Dernlig + 1

            End If
    Next


    For ligne1 = 2 To mabase.Rows.Count
 If (Application.VLookup(mabase.Cells(ligne, 1).Value, mabase2, 2, False).Value = "Arrêt") Then
        mabase.Rows(ligne).EntireRow.Delete
        End If
    Next
End With
End Sub

Ca plante une nouvelle fois sur la ligne en gras. Je ne suis même que la boucle soit correcte...

les coordonnées du second code (nom de fichier et déclaration des bases) ne sont pas à jour, j'ai effectué les test sur deux autres fichiers...


Je vais vous transmettre les deux fichiers "officiels", ce sera certainement plus claire

https://mon-partage.fr/f/eBjRxkq9/ > fichier récap

https://mon-partage.fr/f/Uy1Z9IsO/ > fichier source


Merci de votre aide. De mon côté je vais essayer de comprendre pourquoi le second code ne fonctionne pas...

Bonjour,

Aucun problème c'est déjà bien sympa de m'aider ...

"Licencié" et "Employé" correspondent simplement aux valeurs de mes petits fichiers tests...Ils correspondent bien à "Arrêté" et "En cours" dans les fichiers que je vous ai transmis.

Corbas est un autre site de production. On ne s'en soucis pas. De toute façon, si je devais réaliser un fichier pour Corbas, je pourrais réutiliser exactement le même code, en changeant simplement "Chaponnay" par "Corbas".

D'accord, merci pour votre travail et tant mieux si au moins votre code est fonctionnel.... (le miens c'est pas gagné)

Mais comme ça, à vu d'œil, sauriez vous ce qui fait planter mon code ?
J'ai retourné le problème dans tous les sens, rien ne fonctionne...

Je reste courtois et je vous remercie pour vos efforts.

Je viens pas sur un forum pour me faire insulter, simplement pour demander de l'aide.

BRAVO, quel sérieux!


je vous ai précisé que j'avais réalisé des test sur d'autre fichiers et pas sur les fichiers offciels, que les critères ne soient pas les mêmes mots ne change rien à la logique globale.

voci le code en cours où j'en étais rendu avant ton délire post 20 et compte de ta dernière farce avec licencié, mais c'est moi qui démissionne


Pour mon délire post 20, je voudrais vous y voir sur un domaine de compétence qui n'est pas le vôtre, les rôles seraient sûrement inversés.

Bonne continuation