salut le forum
j'utilise sur certains de mes fichiers la fonction find pour retrouver un entête de colonne et ensuite coller les informations dans un autre fichier dès que la macro trouve la correspondance
j'aimerai appliquer cette méthode sur la comparaison avec deux noms de colonnes
ex
col1 = toto
col2 = tata

si la fonction me trouve ces deux noms d’entêtes alors il me récupère les valeurs des cellules situées sous ces colonnes afin de créer un concatener avec les deux valeurs
ci dessous la macro actuelle, j'aimerai une piste pour savoir ou je lui dit de rechercher non pas une mais deux valeurs

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub test()
dercol = .Cells(1, Columns.Count).End(xlToLeft).Column
            For Col = 1 To dercol
            Entete = .Cells(1, Col).Value
                    With Workbooks(Fichier).ActiveSheet.UsedRange
                          Set NomColonne = .Rows(1).Find(Entete, , xlValues, xlWhole)
                          If Not NomColonne Is Nothing Then
                            IndexCol = NomColonne.Column
                            Do
                              Workbooks(Var).Worksheets("PERSO").Range(Cells(2, Col), Cells(6, Col)).Copy
                              Workbooks(Fichier).Activate
                              .Cells(Ligne + 1, IndexCol).PasteSpecial Paste:=xlPasteValues
                            Loop While IndexCol <> NomColonne.Column
                          End If
 
                    End With
                Workbooks(Var).Activate
            Next
End Sub
pour ensuite générer la valeur
=mid(format(cel1;"0000000");1;3)&" " &right(cel1;4)&" "&cel2
merci d'avance

david