Extraction de cellule non vide VBA

[Sa Mariam]

Salut, je débute sur VBA, ça fait 3 jours dont jai commencé mon auto-formation donc jai besoin d'aide.
J'ai une BD qui se compose de 13 colonnes et j'ai besoin de les extraire en prenant en considération que le contenu des cellules de la colonne C soit non vide.
Donc le nombre de ligne que jai vais extrairedans toutes les colonnes dépendera de la colonne C.
Après l'extraction je souhaite les afficher sur l'interface VBA sous forme de tableau (comme indiqué sur l'image).
Merci d'avance pour votre aide

 

[job75]

Bonjour Sa Mariam, bienvenue sur XLD,

La feuille source étant la feuille active exécutez cette macro :

Sub Extraction()
With ActiveSheet.UsedRange
    .AutoFilter 3, "<>" 'filtre automatique
    Workbooks.Add 'nouveau document vierge
    .Copy [A1]
    .AutoFilter 3
End With
End Sub

Le résultat s'affiche dans un nouveau document mais on pourrait utiliser une feuille dédiée.

A+

 

[job75]

Bon avec une feuille dédiée nommée "Extraction" :

Sub Extraction()
Dim F As Worksheet
On Error Resume Next
Set F = Worksheets("Extraction")
If F Is Nothing Then MsgBox "La feuille de calcul 'Extraction' n'existe pas...": Exit Sub
On Error GoTo 0
If ActiveSheet.Name = F.Name Then Exit Sub
F.Cells.Delete 'RAZ
With ActiveSheet.UsedRange
    .AutoFilter 3, "<>" 'filtre automatique
    .Copy F.[A1]
    .AutoFilter 3
End With
F.Activate 'facultatif
End Sub

 

[Sa Mariam]

Bonjour, merci pour votre réponse
ya une erreur au niveau de l'auto filtre.
Sinon je pense que ce code permet d'extraire les données dans une nouvelle feuille alors que je veux les afficher dans l'interface

 

[job75]

ya une erreur au niveau de l'auto filtre.

Pas du tout, le filtre automatique filtre la 3ème colonne du UsedRange qui normalement est la colonne C.

Si ce n'est pas le cas adaptez...

 

[Sa Mariam]

Salut, désolé jai pas reçu les notifications, jai pu en régler le problème, tout simplement jai affiché le contenu de ma feuille sous forme de tableau.
Merci pour votre collaboration