Comment récuper une valeur après un filtre Fermé

Question

Bonjour, 

J'ai un problème, je n'arrive pas a récupérer les valeurs après avoir filtrer mon tableau.
J'ai essayé ce code mais sans succès et je ne vois pas où ce situe l'erreur. Si quelqu'un peut m'aider ça m'arrangerai bien.

Sub test()
Dim Analyse As String
For Each Cellule In Range("G2:G16641").SpecialCells(xlCellTypeVisible)
    If Cellule.Value <> "" Then
            Analyse = Cellule.Value
        Worksheets(Analyse).Range("H1") = "yes"
    End If
End Sub

fabien25000 · Answer

bonjour,
je commencerai par essayer avec For Each Cell In Range("G2:G16641") à mon humble avis..

Steinner · Answer

Bonjour,

Merci de votre réponse mais ça ne marche pas si vous avez d'autres propositions je suis preneur.

fabien25000 · Answer

Voilà comment il faut l'écrire :

Sub test()
    Dim Analyse As String
    For Each Cell In Range("G2:G16641").SpecialCells(xlCellTypeVisible)
        If Cell.Value <> "" Then
            Analyse = Cell.Value
            Worksheets(Analyse).Range("H1") = "yes"
        End If
    Next
End Sub

fabien25000 · Answer

Décryptons ta procédure pour bien comprendre :
Dim Analyse As String'ici tu déclares une variable "Analyse" de type String : qui reçoit du texte

  For Each Cell In Range("G2:G16641").SpecialCells(xlCellTypeVisible)  ici on demande à excel de verifier chaque cellule de G2 à G16641 (de quelle feuille, ça c'est pas précisé)

If Cell.Value <> "" Then Si La cellule en cours de vérification est différente de vide, fait ce qu'il suit

 Analyse = Cell.Value La variable Analyse reçoit la valeur de la cellule en cours (valeur qui n'est pas String du tout au passage)

 Worksheets(Analyse).Range("H1") = "yes" ici tu demandes d'aller écrire "yes" dans la cellule H1 de la feuille qui porte le nom que l'on vient de récupérer dans la variable Analyse 

End If Fin du IF

Next on passe à la cellule suivante

en voyant ton fichier je pense que ce n'est pas du tout ce que tu attends.. je me trompe?

fabien25000 · Answer

Dis moi si ça te va
Private Sub CommandButton2_Click()

Dim Acier As String, Diametre1 As String, Diametre2 As String, Diametre3 As String
Dim Assemblage As String, Epaisseur As String, Position As String
Dim derLig As Integer
Dim i As Integer
Dim tmpItem As String

Acier = ComboBox1.Value
Assemblage = ComboBox2.Value
Epaisseur = ComboBox3.Value
Position = ComboBox4.Value
Diametre1 = ComboBox5.Value
Diametre2 = ComboBox6.Value
Diametre3 = ComboBox7.Value
derLig = Worksheets("Analyse").Range("A" & Rows.Count).End(xlUp).Row

Worksheets("Analyse").Activate
For i = 2 To derLig
    tmpItem = Range("B" & i) & Range("C" & i) & Range("D" & i) & Range("E" & i) & Range("F" & i)
    If tmpItem = Acier & Diametre1 & Assemblage & Epaisseur & Position Then Range("H1").Value = Range("G" & i).Value
    If tmpItem = Acier & Diametre2 & Assemblage & Epaisseur & Position Then Range("I1").Value = Range("G" & i).Value
    If tmpItem = Acier & Diametre3 & Assemblage & Epaisseur & Position Then Range("J1").Value = Range("G" & i).Value
Next i

End Sub

Comment récuper une valeur après un filtre

5 réponses

Discussions similaires