Discussion :

[jonathanC]

Bonjour,

Tout d'abord merci à vous de me lire, je ne sais si ma requête est réalisable, je pense que oui mais sans certitude..
Voici mon problème :
Je dispose de 2 tableaux : un tableau de référence et un tableau à mettre à jours. Ces deux tableaux n'ont pas le même format ( en terme de colonne, ligne etc.) Cependant ils ont des colonnes en commun bien que pas forcement nommé de la même manière.
Dans ces tableau il y a des projets avec différentes informations liées aux projets. A partir du tableau de référence, et en utilisant le nom du projet( comme une clef) , je souhaiterai mettre à jours le champs date.
Etant donné qu'il y a a peu près autant de ligne dans les deux fichier, je pense que ça ne change pas grand chose d'iterer sur l'un ou l'autre.

ça donnerai quelque chose comme ça :
Pour chaque TitreRef {
SI(titreRef = titreàMAJ)
{
on remplace DateàMAJ par la DateREJ
}
SINON { on passe au suivant}
}

Voila j'èspere que j'ai décrit mon problème de manière compréhensible. Et aussi qu'il existe une solution

[sabzzz]

bonjour jonathanC,

j'ai supposer que la colonne "projet" est la colonne A pour les deux tableaux,
et que les tableaux sont dans le même fichier sur deux onglet différent, Feuil1 et Feuil2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
Set plg1 = Application.InputBox(prompt:="Sélectionner la colonne TitreRef  à traiter", Type:=8)
Set plg2 = Application.InputBox(prompt:="Sélectionner la colonne titreàMAJ à traiter", Type:=8)
derLigne1 = sh1.Cells(65536, plg1.Column).End(xlUp).Row
For i = 2 To derLigne1
   prj = Application.Match(sh1.Cells(i, 1), sh2.Range("A:A"), 0)
   sh2.Cells(prj, plg2.Column) = sh1.Cells(i, plg1.Column)
Next