Discussion :

[myayo001]

Bonjour,
voila mon soucis, je souhaiterais comparer le nom sélectionné dans la zone de liste déroulante au titre de colonne lorsque celui-ci correspond j'aimerai l'afficher sur une autre feuille sous la forme

janvier fevrier mars .......
nom

je vois joint l'image du tableau de départ



voila un code essayé mais ca ne donne rien

Code :

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

1
2
3
4
5
6
 dimension celle As Range
For Each celle In Range("B404:I404")
            If celle.Value = Choix Then
                celle.EntireRow.Copy Sh.[A82]
            End If
        Next

un grand merci d'avance

[Theze]

Bonjour,

Avec Find peut être ?

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
 
Sub Test()
 
    Dim Sh As Worksheet
    Dim Plage As Range
    Dim cel As Range
    Dim Choix As String
 
    'pour le test...
    Choix = "GSL"
 
    Set Sh = Worksheets("Feuil2")
 
    Set cel = ActiveSheet.Range("B404:I404").Find(Choix, , xlValues, xlWhole)
 
    If Not cel Is Nothing Then cel.EntireRow.Copy Sh.Range("A82")
 
End Sub

Hervé.