Double filtre sur feuille vba, copier valeurs affichées
Résolu/Fermé
Stephxx
Stephxx
- Messages postés
- 26
- Date d'inscription
- mercredi 17 juin 2015
- Statut
- Membre
- Dernière intervention
- 31 août 2015
Stephxx
- Messages postés
- 26
- Date d'inscription
- mercredi 17 juin 2015
- Statut
- Membre
- Dernière intervention
- 31 août 2015
A voir également:
- Double filtre sur feuille vba, copier valeurs affichées
- Double filtre sur feuille vba, copier valeurs affichées ✓ - Forum - Excel
- Vba copier valeur cellule dans une autre feuille ✓ - Forum - VB / VBA
- VBA .Copier valeur cellule excel sans formule ✓ - Forum - Excel
- VBA: Copier valeur en fonction de la date du jour ✓ - Forum - Excel
- Excel(VBA) copier valeurs dans une cellule ✓ - Forum - VB / VBA
1 réponse
Stephxx
24 juin 2015 à 17:21
- Messages postés
- 26
- Date d'inscription
- mercredi 17 juin 2015
- Statut
- Membre
- Dernière intervention
- 31 août 2015
24 juin 2015 à 17:21
Pour l'étape deux, avez vous plus sexy que ça ? :) avec Array peut être ?
merci
Sub Macro1()
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("A1:A65000").Copy
End With
Range("E1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("B1:B65000").Copy
End With
Range("F1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("C1:C65000").Copy
End With
Range("G1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("D1:D65000").Copy
End With
Range("H1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("E1:E65000").Copy
End With
Range("S1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("F1:F65000").Copy
End With
Range("T1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("H1:H65000").Copy
End With
Range("U1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("R1:R65000").Copy
End With
Range("V1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("S1:S65000").Copy
End With
Range("W1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("T1:T65000").Copy
End With
Range("X1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("AA1:AA65000").Copy
End With
Range("Y1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("AB1:AB65000").Copy
End With
Range("Z1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("AC1:AC65000").Copy
End With
Range("AA1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("AD1:AD65000").Copy
End With
Range("AB1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("AE1:AE65000").Copy
End With
Range("AC1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("AG1:AG65000").Copy
End With
Range("AD1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("AM1:AM65000").Copy
End With
Range("AE1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("BA1:BA65000").Copy
End With
Range("AF1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("BS1:BS65000").Copy
End With
Range("P1").PasteSpecial
With Workbooks("Stock0.xlsx").Worksheets("Référentiel Sxx+Projection").Range("BT1:BT65000").Copy
End With
Range("Q1").PasteSpecial
End Sub
merci