Macro qui marche "pas à pas" mais pas avec le bouton

**Sarah775** · 12/07/2017, 11h13

Bonjour la communauté,

Je vous demande de l'aide concernant les macros.

J'ai bien réussi à faire les enregistrements que je voulais mais il me reste un petit souci.

Dans un fichier avec plusieurs onglets, il y a seulement un seul onglet qui ne répond pas bien à ce que je lui dis de faire, alors que lorsque je l’exécute "pas à pas "cela fonctionne.
Je ne comprends pas pourquoi elle me donne un autre résultat quand je clique sur le bouton que j'ai créé alors qu'il s'agit bien de la même macro en "pas à pas".
J'ai essayé de mettre cette macro sur un autre onglet et refaire les mêmes enregistrements mais ça me donne le même résultat..

Auriez-vous une idée d'où le problème pourrait provenir ?

Je sais pas si je suis claire dans mes explications mais je galère vraiment sur ce point qui j'en suis sure doit être un problème de paramétrage surement.

Je vous remercie pour votre temps.

Cordialement,
Sarah.

**Jean-Philippe André** · 12/07/2017, 11h17

Bonjour,

si tu peux nous montrer le code en question, cela nous serait très utile pour t'aider.

Sans ce code, on ne peut que spéculer

**parmi** · 12/07/2017, 14h29

Bonjour,

Je pense que tu ne nommes pas explicitement les noms des onglets et, éventuellement, des classeurs... Est-ce possible ?
Comme dit par Jean-Philippe, un bout de code aiderait à mieux comprendre...

**Sarah775** · 12/07/2017, 14h34

Envoyé par Jean-Philippe André

Bonjour,

si tu peux nous montrer le code en question, cela nous serait très utile pour t'aider.

Sans ce code, on ne peut que spéculer

Bonjour,

Voici le code de la macro :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub P11_Effacement()
'
' P11_Effacement Macro
'
 
    Sheets("P11").Select
    ActiveWindow.SmallScroll Down:=6
    Range("E37:J38").Select
    Range("J37").Activate
    Selection.Copy
    Range("E40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E34:J35").Select
    Range("J34").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Range("E37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L37:L39").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K34:K36").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-21
    Range("L4:L33").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("M4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K4:K33").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("L4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=0
    Range("E4:I33").Select
    Range("I4").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("E5").Select
End Sub

Si vous avez une adresse mail je peux vous envoyer le excel en question?

Merci pour votre aide.

**Jean-Philippe André** · 12/07/2017, 14h40

Salut,

cela ne sera pas nécessaire.

Le code a surement été généré par l'enregistreur de macros; donc on va dans un premier temps le simplifier (en effet il n'est pas optimal de passer par une sélection de cellules avant de les copier coller (on peut s'affranchir de cette selection).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range().Select
Selection.Copy

se simplifiant en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range().Copy

DE la meme facon, les scrolldown ne servent à rien de concret (si ce n'est un aspect graphique)

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
33
34
35
36
37
38
39
40
41
Sub P11_Effacement()
'
' P11_Effacement Macro
'
 
    Sheets("P11").Select
    Range("E37:J38").Select
    Range("J37").Activate
    Selection.Copy
    Range("E40").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E34:J35").Select
    Range("J34").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Range("E37").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L37:L39").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M40")..PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K34:K36").Select
    Application.CutCopyMode = False
    Range("K34:K36").Copy
    Range("L37").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
        Range("L4:L33").Copy
    Range("M4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("K4:K33").Copy
    Range("L4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E4:I33").Select
    Range("I4").ClearContents
    Application.CutCopyMode = False
    Range("E5").Select
End Sub

en sachant que je n'ai pas tout corrigé, regarde dejà ce que te donne ce code.

**Sarah775** · 12/07/2017, 14h44

Merci pour ta proposition mais le problème c'est qu'il faut justement copier qu'un certain nombre de cellules pour les recopier plus bas.
C'est pour cela que je copie et je colle par la suite.
Les scrolldown oui ne servent à rien mais ne dérangent pas dans la macro.
J'ai toujours le même problème :/

**Jean-Philippe André** · 12/07/2017, 14h50

OK,

qu'entends tu par "cela ne fonctionne pas" ? tu as un message d'erreur ? le résultat obtenu n'est pas celui attendu ? Excel crashe ?

**Sarah775** · 12/07/2017, 15h12

Envoyé par Jean-Philippe André

OK,

qu'entends tu par "cela ne fonctionne pas" ? tu as un message d'erreur ? le résultat obtenu n'est pas celui attendu ? Excel crashe ?

Le résultat obtenu n'est pas celui attendu.

on me met des 0% au lieu des cellules copiées collées.

**parmi** · 12/07/2017, 15h39

Il faudrait que tu nous dises ce que tu veux copier et où exactement tu veux le coller (sur la même feuille?)

Dans ton code, tu écris ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Sheets("P11").Select
    Range("E37:J38").Select
    Range("J37").Activate
    Selection.Copy
    Range("E40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

qui équivaut à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Sheets("P11").Range("E37:J38").Copy
    Sheets("P11").Range("E40").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

**Sarah775** · 12/07/2017, 15h49

Envoyé par parmi

Il faudrait que tu nous dises ce que tu veux copier et où exactement tu veux le coller (sur la même feuille?)

Dans ton code, tu écris ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Sheets("P11").Select
    Range("E37:J38").Select
    Range("J37").Activate
    Selection.Copy
    Range("E40").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

qui équivaut à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Sheets("P11").Range("E37:J38").Copy
    Sheets("P11").Range("E40").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Oui c'est ça le copier coller sur la même feuille.

C'est le glissement des années 2016 à 2015 et de 2015 à 2014.

et ce qui ne marche pas c'est le copier coller K34:K36 à L37:39

**parmi** · 12/07/2017, 16h38

Reprend les 2 lignes que je t'ai mises en changeant seulement les adresses au besoin.
En mettant le nom de la feuille, la macro fonctionnera bien peu importe où se trouve le code.
Est-ce que ça fonctionne mieux ?

Macro qui marche "pas à pas" mais pas avec le bouton

Macros et VBA Excel

Discussions similaires

Partager

Partager