LilouExcelNovice
XLDnaute Nouveau
Bonjour,
Je suis novice dans en VBA, j'ai tout de même réussi à faire un petit programme qui me permet de faire du filtre élaboré. Il me reste un problème à régler :
Le but => Faire remonter des informations d'un tableau source (sous forme tabulaire) vers un tableau cible (toujours sous forme tabulaire) selon des critères de sélection (d'où mon filtre élaboré).
Tout fonctionne parfaitement sauf si mon tableau cible n'a pas asses de ligne.
Je ne trouve pas dans mon VBA, ni quoi ni où mettre, une fonction qui ajouterai le nombre de lignes nécessaires
Voici mon VBA :
Sub GENERATION_SITUATION()
Sheets("Factures CLIENTS").Range("Tableau17[#All]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Bilan Chantier").Range("O4:O5"), CopyToRange:=Range("Tableau68[[#Headers],[#Data]]"), Unique:=True
End Sub
Je suis sure que parmi tous les membres, il y a bien quelqu'un qui pourra m'aider
Par avance merci pour votre aide précieuse.
Je suis novice dans en VBA, j'ai tout de même réussi à faire un petit programme qui me permet de faire du filtre élaboré. Il me reste un problème à régler :
Le but => Faire remonter des informations d'un tableau source (sous forme tabulaire) vers un tableau cible (toujours sous forme tabulaire) selon des critères de sélection (d'où mon filtre élaboré).
Tout fonctionne parfaitement sauf si mon tableau cible n'a pas asses de ligne.
Je ne trouve pas dans mon VBA, ni quoi ni où mettre, une fonction qui ajouterai le nombre de lignes nécessaires
Voici mon VBA :
Sub GENERATION_SITUATION()
Sheets("Factures CLIENTS").Range("Tableau17[#All]").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Bilan Chantier").Range("O4:O5"), CopyToRange:=Range("Tableau68[[#Headers],[#Data]]"), Unique:=True
End Sub
Je suis sure que parmi tous les membres, il y a bien quelqu'un qui pourra m'aider
Par avance merci pour votre aide précieuse.