bonsoir a tous! je veux récupérer uniquement les ligne avec des données d'une feuille contenant un tableau. mais lorsque j'exécute mon code, c'est toute les ligne qui sont récupéré. je précise également que plusieurs colonne du tableau contiennent des formule. alors je me demande si c'est la cause de mon problème? et comment le résoudre? j'ai vraiment besoin et hâte de franchir cette étape. Merci bien
XL 2016 Compiler les données de différente feuille
- Initiateur de la discussion Bebzinda
- Date de début
Phil69970
XLDnaute Barbatruc
Bonjour @Bebzinda
Bis repetita
Une remarque tout d'abord :
1) Beaucoup de tes demandes s'appellent Vba ou Copy
Voir la charte :
2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.
2.4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.
Et ta réponse de l'époque que tu n'as pas su tenir compte !!!!
Pour info :
On essaye d'aider les demandeurs mais nous ne sommes ni Champollion ni Columbo
Bonne lecture
Bis repetita
Une remarque tout d'abord :
1) Beaucoup de tes demandes s'appellent Vba ou Copy
Voir la charte :
2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.
2.4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.
Et ta réponse de l'époque que tu n'as pas su tenir compte !!!!
C'est bien la question que je me posais avec si peu d'élément
Pour info :
On essaye d'aider les demandeurs mais nous ne sommes ni Champollion ni Columbo
Bonne lecture
slt suis vraiment desolé! excusez moi!Bonjour @Bebzinda
Bis repetita
Une remarque tout d'abord :
1) Beaucoup de tes demandes s'appellent Vba ou Copy
Voir la charte :
2.3 – Le titre de la question doit être clair et comporter explicitement le sujet de la demande. Cela sous-entend qu’une nouvelle demande fait l’objet d’un nouveau fil.
2.4 – La question doit être posée le plus clairement possible en comprenant bien que le lecteur ne peut pas s’imaginer le problème.
Et ta réponse de l'époque que tu n'as pas su tenir compte !!!!
C'est bien la question que je me posais avec si peu d'élément
Pour info :
On essaye d'aider les demandeurs mais nous ne sommes ni Champollion ni Columbo
Bonne lecture
ok merci@Bebzinda
Il ne tient qu'à toi de renommer ta demande et de donner des éléments supplémentaires comme un fichier avec des explications correctes !!!
job75
XLDnaute Barbatruc
Bonjour Bebzinda, Phil69970,
Elle se déclenche quand on active la feuille.
Les lignes qui ne contiennent pas de données sont supprimées, grâce au tri l'exécution est très rapide même sur de grands tableaux.
Edit : j'avais oublié la fonction SIGN.
A+
Voyez le fichier joint et cette macro dans le code de la feuille "Résultat" :
VB:
Private Sub Worksheet_Activate()
Dim cc%
Application.ScreenUpdating = False
Cells.Delete 'RAZ
[Tableau1].ListObject.Range.Copy [A1] 'copier-coller du tableau structuré
cc = UsedRange.Columns.Count + 1
UsedRange.Columns(cc) = "=1/SIGN(COUNTIF(RC1:RC[-1],""><""))" 'colonne auxiliaire
With ListObjects(1).Range
.Columns(cc) = .Columns(cc).Value 'supprime les formules en colonne auxiliaire
.Sort .Columns(cc), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
.Columns(cc).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les valeurs d'erreur
.Columns(cc).Delete xlToLeft 'supprime la colonne auxiliaire
End With
End SubLes lignes qui ne contiennent pas de données sont supprimées, grâce au tri l'exécution est très rapide même sur de grands tableaux.
Edit : j'avais oublié la fonction SIGN.
A+
Dernière édition:
job75
XLDnaute Barbatruc
Pour tester j'ai recopié le tableau A2: D10 sur 90 000 lignes.
Chez moi avec Win 11 Excel 2019 la macro s'exécute en 2,1 secondes (20 000 lignes supprimées).
Chez moi avec Win 11 Excel 2019 la macro s'exécute en 2,1 secondes (20 000 lignes supprimées).
Dernière édition:
job75
XLDnaute Barbatruc
Avec un tableau non structuré la macro est un peu différente mais c'est le même principe :
C'est plus rapide qu'avec le tableau structuré : 0,78 seconde sur 90 000 lignes.
VB:
Private Sub Worksheet_Activate()
Dim cc%
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Sheets("Feuil1").[A1].CurrentRegion.Copy [A1] 'copier-coller du tableau
cc = UsedRange.Columns.Count + 1
With UsedRange.Resize(, cc)
.Columns(cc) = "=1/SIGN(COUNTIF(RC1:RC[-1],""><""))" 'colonne auxiliaire
.Columns(cc) = .Columns(cc).Value 'supprime les formules en colonne auxiliaire
.Sort .Columns(cc), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
.Columns(cc).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les valeurs d'erreur
.Columns(cc).Delete xlToLeft 'supprime la colonne auxiliaire
End With
With Usedrange: End With 'actualise les barres de défilement
Columns.AutoFit 'ajustement largeurs
End Sub
Dernière édition:
slt merci bien pour votre reaction j'ai texter le code mais cela n'a pas totalement résolu le problème. le fichier ci joint est muni de 2 feuil mais il faudra dupliquer la feuil "Feuil1" au moins deux foi afin de comprendre ma situation. le fichier d'origine est trop volumineux raison pour laquelle je l'ai synthétisé ainsi. maintenant avec les 4 feuils et avec la feuil"Compilation" en dernière , je veux récupérer les informations des trois première Feuil.
job75
XLDnaute Barbatruc
Bonjour,
J'ai ouvert le fichier, il est plein de #NOM?
Désespéré je l'ai refermé
A+
J'ai ouvert le fichier, il est plein de #NOM?
Désespéré je l'ai refermé
A+
effectivement! j'ai supprimer plusieurs feuil afin de réduire sa taille et je l'ai délibérément laissé ainsi pour vous rappeler que ce sont des formule dans certaine cellule.Bonjour,
J'ai ouvert le fichier, il est plein de #NOM?
Désespéré je l'ai refermé
A+
job75
XLDnaute Barbatruc
Testez avec cette macro dans le code de la feuille "Compilation" :
Elle se déclenche quand on active la feuille.
VB:
Private Sub Worksheet_Activate()
Dim cc%, rc&
Application.ScreenUpdating = False
Rows("3:" & Rows.Count).Delete 'RAZ
With Sheets("Feuil1").ListObjects(1).Range
cc = .Columns.Count + 1
rc = .Rows.Count
.Copy [A3] 'copier-coller du tableau structuré
End With
Cells(3, cc).Resize(rc) = "=1/SIGN(COUNTIF(RC1:RC[-1],""><""))" 'colonne auxiliaire
With ListObjects(1).Range
.Columns(cc) = .Columns(cc).Value 'supprime les formules en colonne auxiliaire
.Sort .Columns(cc), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
On Error Resume Next 'si aucune SpecialCell
.Columns(cc).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les valeurs d'erreur
.Columns(cc).Delete xlToLeft 'supprime la colonne auxiliaire
End With
With UsedRange: End With 'actualise les barres de défilement
Columns.AutoFit 'ajustement largeurs
End Subbonsoir! merci vraiment pour cette question qui m'a ouvert l'esprit. pourquoi des lignes vides pour un tableau structuré
Discussions similaires
- Question
- Question
- Résolu(e)
- Question
- Question
