Discussion :

[gilou41]

Bonjour à tous,
j'espère que tout le monde est en grande forme.
Je cherche à récuperer des noms dans un tableau en fonction de conditions et les transférer dans un autre tableau.
Vu comme ça cela parait simple et pour éviter d'écrire un roman qui ne sera pas forcément explicite, je vous joint un petit fichier avec le détail de ma problématique.
Merci d'avance pour le coup de main et je n'en doute pas, pour une solution à mon problème

[Philippe Tulliez]

Bonjour,
Si tu souhaites transférer des données d'une liste de données vers un autre endroit et ce suivant des critères, le filtre élaboré est une solution.
Voir le tutoriel Les filtres avancés ou élaborés dans Excel

[Theze]

Bonjour,

Comme ceci 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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer
    Dim J As Integer
 
 
    For I = 4 To 6
 
        With Worksheets("Feuil1")
 
            If .Cells(1, I) <> 0 Then
 
                Set Plage = .Range(.Cells(9, I), .Cells(.Rows.Count, I).End(xlUp))
 
                J = 2
 
                For Each Cel In Plage.SpecialCells(xlCellTypeConstants)
 
                    Worksheets("Feuil2").Cells(J, 1) = Cel.Offset(, -I + 1).Value & " / " & Cel.Offset(, -I + 2).Value
                    Worksheets("Feuil2").Cells(J, 2) = Cel.Offset(, -I + 3).Value
 
                    J = J + 1
 
                Next Cel
 
            End If
 
        End With
 
    Next I
 
End Sub

Hervé.

[gilou41]

Merci Theze,
c'est tout à fait ce que je cherchais. Il me reste un little pb à résoudre car ce que je ne t'avais pas dit c'est que le 1 qui est la condition du tri est le résultat d'une formule. Et donc ton code fonctionne à merveille mais comme j'ai une formule dans la cellule (le 1 en est le résulta) j'ai toujours les même nom qu sont extrait, à savoir ceux de la première colonne d'action.
Comment différencier le 1 (valeur) du 1 (résultat de la formule )?
Encore merci

[Theze]

Bonjour,

Rajoute "Value" dans la commande :

Code :

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

1
2
 
If .Cells(1, I).Value <> 0 Then

Hervé.