bonjour,

j'amerai faire une comparaison entre Choix(zone de liste déroulante) et feuil2.cells[B4:I4]

ensuite afficher la colonne avec les titres sur une ligne feuil3.cells [A40]

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim Choix As Variant, Sh As Worksheet, Deb As Long, Ligne As Long
    Set Sh = Sheets("feuille résumé")
    Sh.Range("12:10000").Clear
    Choix = Application.Index(Sh.[P:P], Sh.Range("AA1"), 1)
'   traitement de Feuil3
    With Sheets("Feuil3")
    .[A1:I3].Copy Sh.[A36]
        For i = B4:I4                                           '   comparaison entre Choix et .cells[B4:I4] ??
            If .Cells(B4 ou jusque I4) = Choix Then
                .Cells(i, 1).EntireColonne.Copy Sh.[A40]       '   ensuite afficher la colonne sur une ligne sh.cells [A40] ??
            End If
        Next i




et comment puis-je faire pour agrandir la taille d’écriture dans la zone de liste déroulante?


merci de votre aide!