Récupérer cellule non vide

[piep14]

Bonsoir, je cherche a récupérer les cellules non vide dans une plage donnée, est ce possible ? puis de les afficher a la suite

Merci

 

[Lii]

Re : Récupérer cellule non vide

Bonsoir,

un exemple (VBA).

 

[ROGER2327]

Re : Récupérer cellule non vide

Bonsoir.

Une autre procédure : Les données étant dans la plage nommée DATA, la procédure NonVide placera les données non vides de la plage DATA en colonne à partir de la cellule active.​

Cette cellule active peut être n'importe quelle cellule du classeur contenant la plage DATA, à l'exception des cellules contenues dans la plage DATA.​

Voici le code :​

Option Explicit

Sub NonVide()
'
' Procédure créée le 17 Brumaire CCXVII (7/11/2008) par ROGER2327
'
'
Dim tf As Boolean, i&, c
Dim plage, adr
    adr = Selection.Cells(1, 1).Address
    tf = Range("DATA").Parent.CodeName <> ActiveSheet.CodeName
    If Not tf Then tf = tf Or Intersect(Range("DATA"), Range(adr)) Is Nothing
    If tf Then
        plage = Range("DATA").Value
        For Each c In plage
            If Not IsEmpty(c) Then
                Range(adr).Offset(i, 0) = c
                i = i + 1
            End If
        Next c
        Range(adr).Offset(i, 0).Select
        Selection = Empty
    End If
End Sub

Si l'on veut récupérer les données en ligne (attention qu'il n'y en ait pas trop !), il suffit de remplacer partout Offset(i, 0) par Offset(0, i)​

A tester ! Vos remarques éventuelles sont bienvenues.​

ROGER2327