Discussion :

[Tyu38]

Bonjour,

J'ai un classeur excel avec plusieurs feuilles que je remplis et j'aurais besoin d'un récap sur la première :
- dans chaque feuille j'ai des tableaux (taille fixe) avec des références et je mets un quantitatif dans la colonne E (valeur décimale positive ou négative)
- dans la première feuille il faut que je retrouve toutes les lignes de ces feuilles où le quantitatif est <> 0 (mon tableau récap commence en B22).

Est-ce que vous pouvez m'aider à réaliser la macro qui va bien ?
J'ai essayé d'adapter des codes que j'ai trouvé, mais sans succès.

Merci

[Marc-L]

Bonjour,

voir le tutoriel Les filtres avancés ou élaborés dans Excel …

[Phifou]

Bonjour,

pour faire un essai de réponse qui devrait correspondre j'espère :
(sans faire de filtre)

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
25
26
Sub RecupererValeurs()
 
Dim i, j as integer
Dim PremiereLigne as integer
Dim DerniereLigne as integer
Dim NomFeuille as string
Dim FeuilleRecap as string
 
    ' Initialise les variables ici
NomFeuille = "LeNomDeTaFeuilleICI"
FeuilleRecao = "Idem mais pour l'autre"
PremiereLigne = 3 'pour l'exemple, à toi de changer
DerniereLigne = 24 ' Dans le cas ou tu as une taille variable pour ton tableau tu peux utiliser cette formule :
                             ' DerniereLigne = worksheets(NomFeuille).cells(cells.rows.count, 5).end(xlup).row
 
for i = PremiereLigne to DerniereLigne
    If worksheets(NomFeuille).cells(i, 5).value <> 0 then
        worksheets(FeuilleRecap).cells(22 + j, 2) = worksheets(NomFeuille).cells(i, 5)
        j = j + 1
    end If
next
 
endsub
 
'Remarque : 
'Si tu veux utiliser les emplacements des feuilles plutôt que leur noms, tu peux utiliser worksheets(1) qui renvoi la position de la feuille.

Je ne sais pas si tu veux entrer tes valeurs de haut en bas ou de droite à gauche dans le tableau, j'ai pris parti pour la première option, à toi d'adapter ce code. Si tu as des questions n'hésite pas.


Philippe

[Tyu38]

ok, merci pour le code. Je l'ai adapté et ça marche niquel !!