Discussion :

[bigs3232]

bonjour
j'aimerais savoir si c'est possible de copier dans la colonne A la selection active dans le bloc de cellule visible vers la ligne suivante du bloc de la cellule active et non vers la ligne suivante standard
voici mon code

Code :

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

1
2
3
4
5
6
7
8
Sub copy_cellule_visible()
  For Each c In Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
     If c.Value = Selection.Value Then
     c.Offset(i + 1, 0).Value = c.Value
     'MsgBox c.Offset(i + 1, 0).Value
     End If
  Next c
End Sub

je vous ai aussi envoyé un fichier joint en test
merci d'avavnce