Discussion :

[Alex86]

Bonjour,

En ces temps de télétravail, je reprends quelques macro (la reprise est dur compte tenu que j'en fais très rarement).

Pour celle-ci, je souhaite copier les lignes non vide de la colonne H de l'ensemble des feuilles du classeur excel à partir de la ligne 16.

J'ai ensuite les coller dans une nouvelle feuille à partir de la cellule B2. Voilà ou j'en suis actuellement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "T2"
 
Dim k As Integer, i As Integer
k = Sheets.Count ' ensemble des feuilles
 
For i = 1 To k
    Sheets(i).Activate 'pour toute les feuilles
 
Dim plage As Range
Dim cel As Range
Set plage = Range("H16:H" & Range("H65536").End(xlUp).Row) 'colonne à copier
For Each cel In plage
If cel.Value <> "" Then
 
ActiveWorkbook.Sheets("T2").Range("A65536").End(xlUp).Value = cel.Value
 
End If
 
Next cel
 
Next i
Set plage = Nothing

Mon code bloque à la partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Sheets("T2").Range("A65536").End(xlUp).Value = cel.Value

Merci de votre aide.

Cordialement,

[Philippe Tulliez]

Bonjour,
Comme il s'agit d'exportation de données suivant conditions, je ne peux que te conseiller la méthode AdvancedFilter de l'objet Range (Filtre avancé d'excel)
A lire éventuellement Les filtres avancés ou élaborés dans Excel

Cependant il est également possible, suivant ta version d'Office, de le faire je pense avec PowerQuery mais n'ayant pas encore suffisamment d'expérience sur ce produit je me garderai bien de tout conseils

[Alex86]

Merci, pour cette information.

J'ai testé (je ne suis pas un spécialiste du filtre avancé). J'ai des messages d'erreur lorsque j'essaye d'inclure plusieurs feuilles à la fois.

[Philippe Tulliez]

Bonjour,

J'ai des messages d'erreur lorsque j'essaye d'inclure plusieurs feuilles à la fois

J'ai développé des exportations avec cette méthode avec de nombreux scénarios sans difficulté

Merci de publier le code que tu as écrit et nous indiquer à quelle ligne l'erreur se produit et quel est le message d'erreur. Une image de la zone des données (ligne de titre et quelques lignes de données suffisent) ainsi que la zone des critères sera un plus

[Alex86]

Bonjour,

Après plusieurs test, je ne maîtrise pas les filtres avancées dans excel sur plusieurs pages.

J'ai bien regardé votre guide qui est très bien fait, mais je trouve pas d'exemple similaire.

Auriez vous un exemple ou un code ?

Le but est de copier les cellules non vide de la colonne H de l'ensemble des feuilles et de les coller à la suite dans une une autre feuille.

En vous remerciant,

[Philippe Tulliez]

Bonjour,

J'ai bien regardé votre guide qui est très bien fait, mais je trouve pas d'exemple similaire.

On ne peut évidemment pas donner un exemple pour tous les cas possibles et imaginables. Il faudrait une centaine de pages peut-être.

Il faut juste écrire une formule logique (qui renvoie VRAI ou FAUX) dans la zone des critères et le filtre avancé fait le reste.

Pour celle-ci, je souhaite copier les lignes non vide de la colonne H de l'ensemble des feuilles du classeur excel à partir de la ligne 16.

Alors ai-je bien compris ?
Faut-il exporter toutes les lignes de la liste des données commençant à la ligne 16 dont la cellule de la colonne H est remplie ?
Dans l'affirmative, il y a donc lieu de se poser la question de savoir quelle formule me renverrait VRAI si la cellule H de la ligne à tester est remplie

[Alex86]

Bien sur, je comprends bien qu'il est quasi impossible de faire un exemple pour tous le monde.

Alors ai-je bien compris ?
Faut-il exporter toutes les lignes de la liste des données commençant à la ligne 16 dont la cellule de la colonne H est remplie ?
Dans l'affirmative, il y a donc lieu de se poser la question de savoir quelle formule me renverrait VRAI si la cellule H de la ligne à tester est remplie

C'est exactement ça. Si j'ai bien compris le tuto, il faudrait que je filtre avec <>. Cependant, avec ce filtre, il me laisse les cellules vides entre chaque valeurs. De plus si j'essaye de filtrer plusieurs pages en même temps, le filtre est grisé et je ne peux plus l'utiliser (je ne passe pas par VBA mais uniquement par le filtre avancé pour le moment).

[Philippe Tulliez]

Bonjour,
Je privilégie les critères calculés et donc pour ce cas ci =NBCAR(H2)>0 ou H2 représente la cellule de la première ligne des données à exporter de la colonne H

Evidemment l'exportation se fera sur la liste de données se trouvant sur la feuille active.
S'il y a plusieurs listes à exporter, il y a lieu de répéter l'exportation autant de fois qu'il n'y a de liste (utilisation d'une boucle)