Bonjour,

Je cherche à faire fonctionner ces deux macros qui fonctionne de marnière independante ensemble.

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
Sub Récup()
'
' Récup Macro
 
 
Application.ScreenUpdating = False ' gel affichage écran
 
 
    Sheets("query").Select ' début relever des infos query
    Range("A1:I15").Select
    Selection.Copy
    Sheets("Transposition").Select
    Range("A1:O9").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("B12:O19").Select
    Selection.Copy
    Sheets("KRM2").Select
    Application.Goto Reference:="R4C256"
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    ActiveCell.Offset(0, 1).Select
 
Application.ScreenUpdating = True ' degel affichage écran
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub séquence()
 
' 
SendKeys "%m", True
SendKeys "c", True
SendKeys "c", True
 
 
End Sub
J'ai essayé de les combiner de la manière suivante , sans succés.
J'ai cc qui s'écrit dans une case sélectionnée.

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
Sub MAJ()
'
'
SendKeys "%m", True
SendKeys "c", True
SendKeys "c", True
 
Application.ScreenUpdating = False ' gel affichage écran
 
 
    Sheets("query").Select ' début relever des infos query
    Range("A1:I15").Select
    Selection.Copy
    Sheets("Transposition").Select
    Range("A1:O9").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("B12:O19").Select
    Selection.Copy
    Sheets("KRM2").Select
    Application.Goto Reference:="R4C256"
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    ActiveCell.Offset(0, 1).Select
 
Application.ScreenUpdating = True ' degel affichage écran
 
End Sub
Merci d'avance.