Discussion :

[pitoumad]

Bonjour
Voici le problème qui me préoccupe : après un filtre, je dois parcourir les lignes visibles pour concaténer 2 colonnes successives dans une autre cellule séparées par un saut à la ligne.
Voici ce que j'ai tenté, masi je peine à corriger mes erreurs...
Merci de votre aide !

Code :

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

1
2
3
4
5
6
7
 
Dim c, c_filte As Range
Selection.AutoFilter Field:=1, Criteria1:="4"
Set c_filtre = AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
For Each c In c_filtre
        c.Cells(27).Value = c.Cells(11).Text & vbCrLf & c.Offset(0, 1).Text
Next

Vu mon inexpérience en vba, je suis perdue ...

[pitoumad]

J'ai trouvé cela en cherchant mieux :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim ligne
Selection.AutoFilter Field:=7, Criteria1:="4"
 
For Each ligne In ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows
If (ligne.Row > 1) Then 'pour ne pas traiter le titre
    Range("aa" & ligne.Row).Value = Range("L" & ligne.Row).Value & Chr(10) & Range("K" & ligne.Row).Value
End If
Next ligne