Mise à jour d'un fichier adhérents par rapport à un fichier de base

[invite5e4c8f6b]

Bonjour,
j'en suis un peu resté au DOS et à DBase aussi en bon dinosaure j'ai besoin de votre aide.
J'ai trouvé sur internet un fichier venant de votre site mais le temps que je m'inscrive, pour
avoir accès aux données, je l'ai perdu.
Mon problème est pourtant simple et j'ai un honte quand je vois les questions posées ici.
J'ai un tableau de coordonnées de 144836 lignes et 21 colonnes( Nom, Prénom,.....) qui m' est fourni
par l'administration à comparer avec un tableau de 608 lignes comprenant les même 21 colonnes.
Je souhaiterai qu'à nom et prénom égal les autres lignes des 19 colonnes restantes se mettent à jours
automatiquement en fonctions du tableaux de coordonnées.
J'ai essayé des tas de combinaisons, mais mes deux neurones restant surchauffent et je craint leur fusion.

Pouvez-vous venir à mon aide, c'est important pour moi. Merci par avance.
-----

[JPL]

j'en suis un peu resté au DOS et à DBase

De vieux souvenirs !

C'est un tableau Excel ?

Ne me dis pas que c'est Multiplan

[invite5e4c8f6b]

Bonjour,
oui ce sont deux fichiers Excel. Merci de vous intéresser déjà à mon problème. Cdt

[invite5e4c8f6b]

Bonjour,

désolé de ne pas avoir de réponse.J'essai d'aider mon association.
J'ai tenté de copier et de modifier un fichier mais ça ne marche pas.:mad2
Il y aurait-il une âme charitable pour m'expliquer où je me trompe?:

Merci par avance pour réponse rapide. En attendant je vais continuer avec la méthode du copier/coller
mais 600 lignes et nom prénom à comparer c'est long!
çi joint ce que j'ai tenté de faire suivant un exemple:
Sub macro1()

Dim cellule As Range
Dim feuil1 As Workbook
Dim lastline As Integer
Dim tableau1() As Variant
Dim tableau2() As Variant
Dim I As Integer

lastline = Cells(Rows.Count, "A").End(xlUp).Row
ReDim tableau1(lastline)
ReDim tableau2(lastline, 22)
For I = 1 To lastline
tableau1 = Range("F" & Trim(Str(I)))

Next I

workgroops.Open Filename:=" Lcde.xls"
setLcde = ActiveWorkbook
Lcde.Activate
For I = 1 To lastline
Set cellule = ActiveSheet.Range("pointeur"). Find(tableau1(I), lookat:=xlw)
tableau2(I, 1) = cellule.Offset(0, 19).Value
tableau2(I, 2) = cellule.Offset(0, 21).Value
tableau2(I, 3) = cellule.Offset(0, 23).Value
tableau2(I, 4) = cellule.Offset(o, 24).Value

Next I

Lcde.Close

For I = 1 To lastline
Range("Y" & Trim(Str(I))) = tableau2(I, 1)
Range("AA" & Trim(Str(I))) = tableau2(I, 2)
Range("AC" & Trim(Str(I))) = tableau2(I, 3)
Range("Ad" & Trim(Str(I))) = tableau2(I, 4)

Next I


Les chinois disent: La terre est lente mais le bœuf est patient. ( Mais quand même !!!)

[A voir en vidéo sur Futura]

[invitef35ebd48]

Bonjour,


Je ne connais globalement rien au Macro.....

mais je vois ceci : tableau2(I, 4) = cellule.Offset(o, 24).Value

Je vois qu'il y a un o alors que les autre lignes ont un 0. Est-ce une piste ? ou juste une faute de frappe lors de la recopie ?

[invite5e4c8f6b]

Bonjour et merci,
j'ai effectivement corrigé le bug, mais ça ne marche toujours pas. A vrai dire je ne sais même pas si cette macro est appropriée.
Je continue à chercher. Encore merci . Cdt

[invitef35ebd48]

Bonjour,

Vu le problème je m'attend a trouver 2 boucles FOR imbriquées : une qui boucle sur le fichier de 600 lignes à mettre a jour et l'autre qui boucle sur le fichier de 14000 lignes à la recherche des infos...là je suis un peu (trop) paumé.

[invite5e4c8f6b]

Bonjour, et merci encore pour ta réponse qui pour moi reste de l'hébreu. Je dois admettre qu'il me manque les fondamentaux et qu'il convient de laisser faire ceux qui savent. J'aurai pu essayer de comprendre une macro à condition que je sache qu' elle est vraiment appropriée à mon problème, mais je n'en suis même pas là. Encore merci pour avoir essayé de m'aider. Cdt

[bisou10]

Allez tu me fais de la peine, je vais voir ce que je peux faire

On mets à jour quoi ? Le fichier de 144000 lignes ou celui de 700 ?

[bisou10]

Est ce que les champs nom prenom sont *STRICTEMENT* identiques (type de cellule identique, majuscules, minuscules, pas d'espace, etc...)

As tu un fichier de test avec des valeurs bidons ? (par exemple, 15 d'un coté, 5 de l'autre) ?

[invite3222ab58]

bonjour à tous,
et bonjour à papyvan

Je suis un spécialiste de résolutions de ton problème sous Excel.

1°) Il te faut une clé commune aux deux tableaux : si tu n'as pas d'homonyme dans ta base concatene dans une cellule le nom et le prénom, sinon utilise le numéro sécurité sociale qui est unique (l'administration te fournit les 2 fichiers donc ils ont cet élément pour les deux tableaux)

Sans cette clé unique ce n'est pas la peine car tu auras des doublons à gérer.

2°) si tu trouves la clé unique dans chaque tableau il suffit dans la cellule du tableau cible d'utliser les instruction INDEX et EQUIV.

exemple :
tableau1.xlsx feuille1
A B C
1 N°SS Nom Prénom
2 1 dupond jean
3 2 durand philippe

tableau 2
1 N°SS Nom
2 1 INDEX([tableau1.xlsx]feuille1!$A:$U;EQUIV(A2;[tableau1.xlsx]feuille1!$A:$A;0);2)


Bon courage,
Fred.