Discussion :

[yassxavi]

Bonjour à tous,

Je vous remercie d'avance pour votre aide qui me sera d'une grande utilité dans mon travail et je précise que je suis débutant en VBA

Alors je vous explique . La première feuille "Calcul2" contient les données de 12mois de la colonne F à Q.
Pour chaque ligne je dois copier les 12 données, ensuite aller sur la feuille "S-Wilk Test" est coller ces données en transposé dans la colonne "Data", le tableau de statistiques à coté me donne une décision "Reject" ou "Accept", je dois copier cette décision, ensuite revenir sur la première feuille et la coller dans la colonne R sur la ligne dont j'ai copié les 12 données.

J'ai effectué une macro qui permet d'enregistrer les étapes que j'ai déjà expliqué au dessus, mais n'est effectué biensûr que sur la première ligne (premiére référence produit) , le but est de reproduire la macro sur toute les lignes du tableau "calcul2".

Je vous met en pièce jointe le fichier excel. Sinon la macro réalisé sur la première ligne est la suivante:

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
28
29
30
31
32
Sub Macro5()
'
' Macro5 Macro
'
'
   Sheets("Calcul 2").Select
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    Range("F4:Q4").Select
    Selection.Copy
    Sheets("S-Wilk Test").Select
    Range("C6:C17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    Range("M30").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Calcul 2").Select
    Range("R4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[Daniel.C]

Bonjour,

Essaie :

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
Sub Macro5()
    Dim C As Range, Plage As Range
    Application.ScreenUpdating = False
    With Sheets("Calcul 2")
        Set Plage = .Range("C4", .Cells(.Rows.Count, 3).End(xlUp))
    End With
    With Sheets("S-Wilk Test")
        For Each C In Plage
            C.Offset(, 3).Resize(, 12).Copy
            .[C6:C17].PasteSpecial xlPasteValues, Transpose:=True
            C.Offset(, 15).Value = .[M30]
        Next C
    End With
    Application.ScreenUpdating = True
End Sub

[yassxavi]

Wahou,

Quoi dire d'autre ?

ça marche à merveille , bon la boucle fait 5min pour faire 4000 lignes mais ça me semble très correcte.

Merci énormément Daniel pour l'aide mais aussi pour la réactivité impressionnante