Extraction de cellule non vide VBA

Sa Mariam

XLDnaute Nouveau
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
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour Sa Mariam, bienvenue sur XLD,

La feuille source étant la feuille active exécutez cette macro :
VB:
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+
 
Dernière édition:

job75

XLDnaute Barbatruc
Bon avec une feuille dédiée nommée "Extraction" :
VB:
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
 
Dernière édition:

Sa Mariam

XLDnaute Nouveau
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
 

Sa Mariam

XLDnaute Nouveau
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
 

Discussions similaires


Haut Bas