utilisation macro pour compléter tableau Fermé

Question

Bonjour,
Je voudrais compléter plusieurs tableaux avec des données (montants) se trouvant dans une base (Excel). Les montans ont chacun des références dans la colonne A. Ces références correspondent à des rubriques dans les tableaux.  
Merci de votre aide.

realmage · Answer

petites précisions : J'ai une base avec des montants dans une colonne (C). J'ai des no de comptes dans une colonne (A) et des libellés dans la colonne (B). Certains montants (un ou plusieurs) correspondent à des emplacements dans un rapport (Excel). 
Je souhaiterai pouvoir compléter le rapport (plusieurs pages) en indiquant dans les cellules à compléter quels no de compte va à quel endroit. De cette façon à chaque fois qu'il faudra compléter le rapport il ira chercher les bons no de compte même si ceux ci ont changé de place dans la base ou que les montants ont changé. 
Merci pour votre aide

realmage · Answer

J'ai créer ce code, mais si je change l'ordre des données dans ma feuille 2 (colonne A et B), les données de la colonne B ne matche plus avec les codes de la colonne A de la feuille 1. Que faire pour que les données de ma feuille 2 retrouve les bons codes dans la feuille 1 même si l'ordre de la colonne A est différent dans la feuille 1 ?
Dim i As Integer
Dim pos As Variant

For i = 1 To Cells(1, 1).End(xlDown).Row
Set pos = Cells.Find(What:=Sheets("Feuil1").Cells(i, 1).Value, _
After:=Sheets("Feuil2").Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not pos Is Nothing Then
Sheets("Feuil1").Cells(i, 2).Value = _
Sheets("Feuil2").Cells(pos.Row, 2).Value
End If
Next i
End Sub

Utilisation macro pour compléter tableau

2 réponses

Discussions similaires