Recuperer les donnes des cases pleines seulement

[tdaoui]

Bonjour le forum,
Bonjour à tous,

Je souhaite savoir comment récupérer les lignes avec les cases pleines uniquement (uniquement les cases pleines de la colonne E en rouge)
En PJ un exemple

Merci pour votre aide

Existe-t-il une méthode pour créer une macro le permettant ? 😕

 

[bqtr]

Re : Recuperer les donnes des cases pleines seulement

Bonjour tdaoui,

Ton fichier modifié. L'extraction se fait sur la feuille 2.

Sub Copie()

Dim derlign As Long, i As Long

derlign = Sheets("Brut").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Range("A2:E" & derlign).Clear

Application.ScreenUpdating = False
  For i = 2 To derlign
    If Sheets("Brut").Cells(i, 5) <> "" Then Sheets("Brut").Range("A" & i & ":E" & i).Copy Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1)
  Next
Application.ScreenUpdating = True

End Sub

A+

 

[tdaoui]

Re : Recuperer les donnes des cases pleines seulement

Super !

Merci beaucoup

 

[tdaoui]

Re : Recuperer les donnes des cases pleines seulement

Bonjour,

En essayant d'apporter une modification sur le fichier
Modifications :
J'ai ajouté une nouvelle colonne et dans 'Feuil3' je souhaite extraire uniquement les lignes pleines existantes dans la feuille "Brut"

Le problème c'est qu'il les exporte dans la colonne F alors que moi je souhaite les extraire dans la colonne 2

Excusez ma question (peut être quelle est un peu bête 🙁) mais veuillez m'excuser

 

[bqtr]

Re : Recuperer les donnes des cases pleines seulement

Bonsoir,

Si je comprends bien tu veux extraire dans la feuille 3, les colonnes A,B,C,D et F de la feuille Brut.
Si c'est bien cela, essaye ceci :

Sub CopieFeuil3()

Dim derlign As Long, i As Long

derlign = Sheets("Brut").Range("A65536").End(xlUp).Row
Range("A2:E" & derlign).Clear

Application.ScreenUpdating = False
  For i = 2 To derlign
    If Sheets("Brut").Cells(i, 6) <> "" Then Union(Sheets("Brut").Range("A" & i & ":D" & i), Sheets("Brut").Range("F" & i)).Copy Sheets("Feuil3").Range("A" & Sheets("Feuil3").Range("A65536").End(xlUp).Row + 1)
  Next
Application.ScreenUpdating = True

End Sub

Tu parles de colonne 2 ?? je ne comprends pas trop.


A+

 

[tdaoui]

Re : Recuperer les donnes des cases pleines seulement

Super !

Merci à toi bqtr 😎