HELP !!! Macro VB excel

lu

voila mon pb:
j'ai 2 fichiers excel
tout les 2 possèdent des colonnes de valeurs régies par une colonne temps
je souhaite reunir sur un meme tableau les colonnes des 2 tableaux
le probleme, c'est que les colonnes de temps de chaque fichier ne sont pas identiques

la difficulté est de comparer 2 cellules de temps et
- si le temps est le meme alors les cellules des autres colonnes seront recopiées dans le tableau unique
- si le temps est different alors on laisse tombé toute la ligne

si qqn a deja fait une macro du genre, merci d aider un pov newb

merci

bon en gros au secour !!!

en fait je ne connai ke le C

dans un premier tps comment on fais pour comparer 2 cellules de fichiers different ????

c'est pa possible de faire un truc du genre:

pour i de 0 à 100
pour j de 0 à 100

-si cell(i)_du_fichier_A = cell(j)_du_fichier_B
alors (ça recopie les ligne de chaque fichier dans un autre fichier)
-sinon ......


si c possible ca donne koi en VB ?

merci

le programme ci-dessous suppose 3 classeurs excel ouverts : fichierA fichierB fichierC
si égalité de la premiere cel d'une ligne de fichierA et fichierB sont identiques les 2 premieres cel de ces lignes sont copiées dans la ligne correspondante de fichierA fichierC


Sub copiegalAB()
i = 1
For j = 1 To 10
If Workbooks("fichierA").Worksheets("Feuil1").Cells(j, i).Value = Workbooks("fichierB").Worksheets("Feuil1").Cells(j, i).Value Then
Workbooks("fichierC").Worksheets("Feuil1").Cells(j, i).Value = Workbooks("fichierB").Worksheets("Feuil1").Cells(j, i).Value
Workbooks("fichierC").Worksheets("Feuil1").Cells(j, i + 1).Value = Workbooks("fichierB").Worksheets("Feuil1").Cells(j, i + 1).Value
Workbooks("fichierC").Worksheets("Feuil1").Cells(j, i + 2).Value = Workbooks("fichierA").Worksheets("Feuil1").Cells(j, i + 1).Value
End If
Next j
End Sub

ceci correspond-il à la demande ?

je pense
mais je pourrai te repondre qd j aurai avancer mon boulot
car j ai une etape nouvelle qui vient d apparaitre

donc un new topic va etre creer !!! ;-)

OK
dans le programme ci-dessus la ligne du fichierA et du fichierB (si égalité de la premiere cel de la ligne) sont copiées dans de fichierC en respectant le numero de ligne.
Ci-dessous ces memes lignes sont copiées sans ligne vide dans de fichierC.
N'est-ce pas mieux?

Sub copieCegalAB()
i = 1
k = 0
For j = 1 To 10
If Workbooks("fichierA").Worksheets("Feuil1").Cells(j, i).Value = Workbooks("fichierB").Worksheets("Feuil1").Cells(j, i).Value Then
k = k + 1
Workbooks("fichierC").Worksheets("Feuil1").Cells(k, i).Value = Workbooks("fichierB").Worksheets("Feuil1").Cells(j, i).Value
Workbooks("fichierC").Worksheets("Feuil1").Cells(k, i + 1).Value = Workbooks("fichierB").Worksheets("Feuil1").Cells(j, i + 1).Value
Workbooks("fichierC").Worksheets("Feuil1").Cells(k, i + 2).Value = Workbooks("fichierA").Worksheets("Feuil1").Cells(j, i + 1).Value
End If
Next j
End Sub

c super si ca marche mais le pb c ke ca marche pas chez moi!!!

cette ligne pose probleme
If Workbooks("fichierA").Worksheets("Feuil1").Cells(j, i).Value = Workbooks("fichierB").Worksheets("Feuil1").Cells(j, i).Value Then

ca met
erreur d execution 9
l indice n appartient pas a la selection

est ce ke ca marche chez toi ?

Oui bien sur je l'ai testé avant de l'nvoyer.

il faut que les trois classeurs : fichierA , fichierB , fichierC soient ouverts pour qu'il fonctionne. (on peut les ouvrir par programme ,mais ce n'est pas inscrit dans ce programme).

j'ai fait tourner la boucle j sur 10 lignes correspondant aux 10 lignes que j'avais rempli dans fichierA et fichierB

si une ligne n'est pas remplie dans un des fichiers ce la fonctionne parfaitement je viens de le vérifier chez moi.

dans :
Workbooks("fichierA").Worksheets("Feuil1").Cells(j, i).Value
l'indice i ne varie pas il est fixé à un (premiere colonne)

l'indice j varie de 1 à 10 comme indiqué dans fichierA et fichierB

l'indice k varie selon le nombre d'égalité dans fichierC

Tiens moi au courant.