Deux macro en une

Version imprimable

Deux macro en une

Bonjour,

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

Code:

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:

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:

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.

30/03/2011, 18h21
helas

Bonsoir,
Sendkeys simule la frappe au clavier. Avant de l'utiliser, il faudrait donner le focus à l'objet qui en a besoin, est-ce une zône de texte, une cellule ?

Code:

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
33
34
35
36
Sub MAJ()
'
'
 
 
SendKeys "%m", True 'onglet complement
SendKeys "c", True ' complement showcaze
SendKeys "c", True ' rafraichir les requetes
 
 
Application.ScreenUpdating = False ' gel affichage écran
 
 
 
Sheets("query").Select ' début relever des infos de la requete
    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

Je souhaite faire mettre à jour les donnés dans un tableau.
Ce que je ne comprend pas , c'est que le tableau ou arrive la requete se met à jour , mais le tableau ou je reporte la requete conserve les anciennes données.

Merci d'avance