Discussion :

[gratias]

Je souhaite créer une macro qui recopie toutes les valeurs (N° LOT) qui ont comme destination "séchage" dans une 2nd feuille.

MERCI

[SfJ5Rpw8]

Bonsoir,

bon tu en est ou ?

http://www.developpez.net/forums/d84...s-discussions/

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Peut-être comme ça :

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
27
Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet DEstination)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau de Lignes)
Dim J As Integer 'déclare la variable J (incrément)
Dim K As Integer 'déclare la variable K (incrément)
 
Set OS = Sheets("2015") 'définit l'onglet OS
Set OD = Sheets("sechage") 'définit l'onglet OD
TC = OS.Range("A1").CurrentRegion 'définit le tableau de cellules TC
J = 1 'initialise J
For I = 2 To UBound(TC, 1) 'boucle 1 : sur toutes les lignes du tableau TC (en partant de la seconde)
    If TC(I, 2) = "sechage" Then 'condition : si la valeur de la données ligne I colonne 2 de TC est égale à "sechage"
        'redimensionne le tableau TL (auntant de lignes que TC a de colonnes, J colonnes)
        ReDim Preserve TL(1 To UBound(TC, 2), 1 To J)
        For K = 1 To UBound(TC, 2) 'boucle 2 : sur toutes les colonnes du tabelau de cellules TC
            TL(K, J) = TC(I, K) 'récupère dans la ligne de TL la valeur de la colonne de TC (Transposition)
        Next K 'prochaine colonne de la boucle 2
        J = J + 1 'incrément J (ajoute une colonne au tableau TL)
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle 1
OD.Cells.ClearContents 'efface d'éventuelle ancienne données de l'onglet OD
'renvoie dans la cellule A1 (redimensionné) de l'onglet OD le tableau TL tarnsposé (inversion ligne/colonne)
OD.Range("A1").Resize(UBound(TL, 2), UBound(TL, 1)).Value = Application.Transpose(TL)
End Sub

[clementmarcotte]

Bonjour,

Je souhaite créer une macro qui recopie toutes les valeurs (N° LOT) qui ont comme destination "séchage" dans une 2nd feuille.

MERCI

Si je me fies à cette seule question; tu enregistres une macro en faisant un filtre avancé (Excel 2007 et suivants) ou un filtre élaboré (Excel 2003 et avant) avec extraction dans une feuille différente ou une nouvelle feuille.

L'enregistreur de macros est souvent plus rapide que le forum.

[Philippe Tulliez]

Bonjour,
Je ne peux qu'abonder dans le même sens que la proposition de Clément.
En vba, après avoir défini la zone des données, la zone des critères et la zone d'exportation, la copie des lignes de la liste des données selon critère se résume à une ligne de code et est très facile à maintenir.
A lire éventuellement Les filtres avancés ou élaborés dans Excel

[gratias]

l'idée de filtre avancé me plait vraiment car c'est à ma porté de faire un filtre avancé, sauf que lorsque je l'effectue excel m'indique "vous pouvez seulement copier des valeurs filtrées vers la feuille active"

Une idée pour m'aider ??

[Philippe Tulliez]

Bonjour,
Comme je te l'avais déjà suggéré, à lire Les filtres avancés ou élaborés dans Excel et plus particulièrement VII-C. Exportation vers une autre feuille que la table de données