Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recuperer les donnes des cases pleines seulement

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion tdaoui
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tdaoui

Guest
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 ? 😕
 

Pièces jointes

Trier par date Trier par votes
Re : Recuperer les donnes des cases pleines seulement

Bonjour tdaoui,

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

Code: 
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+
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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 :

Code: 
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
390
job75
R
  • Question Question
Autres MOYENNE en supprimant les #N/A et les cases affichées vides sous ""
Réponses
12
Affichages
377
job75
D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
433
sylvanu
  • Résolu(e)
Microsoft 365 Concaténer colonne d'un tableau des cases visibles uniquement
Réponses
12
Affichages
546
Jean-Eric
R
  • Question Question
Microsoft 365 Formule qui sélectionne un ligne et qui récupère la ligne en-dessous
2
Réponses
29
Affichages
811
roro67200
R
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
194
sylvanu
M
  • Résolu(e)
XL pour MAC dissociation des lettres d'un mot
Réponses
10
Affichages
405
mapomme
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
134
dysorthographie
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
510
job75
S
  • Résolu(e)
XL 2016 Récupération valeurs cellules lignes autre onglet
Réponses
11
Affichages
421
safranien
S
  • Résolu(e)
Microsoft 365 [VBA] Listes dynamiques selon cases à (dé)cocher
2
Réponses
18
Affichages
1 K
alexga78
A
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
392
NikonvsWild
N
D
  • Résolu(e)
Microsoft 365 récupérer des données d'une feuille excel d'un classeur A pour les incrémenter automatiquement sur le classeur B
Réponses
10
Affichages
447
TooFatBoy
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
560
akm
A
I
  • Question Question
Microsoft 365 le choix entre les fonctions Filtre ou RechercheX ou Index equiv
Réponses
4
Affichages
352
ALS35
A
P
  • Résolu(e)
Microsoft 365 Comparaison 2 tableaux EXCEL différents
Réponses
12
Affichages
765
Peter DOE
P
  • Résolu(e)
XL 2021 Temps réel d'éxécution macro
Réponses
3
Affichages
251
treza88
F
  • Question Question
XL 2016 Transformation fichier
Réponses
6
Affichages
325
Cousinhub
M
  • Résolu(e)
XL pour MAC Création d'une liste (non déroulante)
Réponses
3
Affichages
287
Blackfwolf
B
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
345
Piment
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…