Problème de fusion de macro

Version imprimable

Bonjour,

Voici mon problème. J'ai deux macros qui fonctionne lorsqu'elles sont séparées. Mais quand je les fusionne, elles créer un conflit et la fonction if ne fonctionne plus.

1er code choisi une macro d'impression en fonction des cellule D8 des feuilles Route 10-A et Route 10-B. Elle fonctionne parfaitement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Text
Sub Selection_Semaine()
 
    Dim Route10A As String, Route10B As String
 
    Route10A = Sheets("Route 10-A").Range("D8")
 
    Route10B = Sheets("Route 10-B").Range("D8")
 
    If Route10A = Route10B Then
 
    ImprimerRoute10Semaine
 
    Else
 
    Imprimer_Semaine
 
    End If
 
End Sub

2e Code, Change les dates des feuilles de semaine afin qu’elles indiquent les informations du lundi suivant, imprime les feuilles de fin de semaine et du lundi puis remet la configuration "normal" du classeur. Encore cette macro fonctionne parfaitement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Imprimer_Weekend()
'
' Imprimer_Weekend Macro
'
 Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 semaine")).Select
    Sheets("Route 1").Activate
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=Calcule!R[-6]C[1]"
    Range("B9").Select
    Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 Samedi", _
        "Route 10 Dimanche")).Select
    Sheets("Route 1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 Semaine")).Select
    Sheets("Route 1").Activate
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=Calcule!R[-6]C[3]"
    Range("B9").Select
    Sheets("Horaire").Select
End Sub

Le code fusionné est

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
37
38
39
40
41
42
43
Option Compare Text
Sub Imprimer_Weekend()
'
' Imprimer_Weekend Macro
'
    Dim Route10A As String, Route10B As String
 
    Route10A = Sheets("Route 10-A").Range("D8")
 
    Route10B = Sheets("Route 10-B").Range("D8")
 
    Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 semaine")).Select
    Sheets("Route 1").Activate
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=Calcule!R[-6]C[1]"
    Range("B9").Select
    Application.Wait Time + TimeSerial(0, 0, 5)
 
    If Route10A = Route10B Then
 
  '     Sheets(Array("Route 1", "Route 11", "Route 10 semaine", "Route 10 Samedi", _
  '      "Route 10 Dimanche")).Select
  '  Sheets("Route 1").Activate
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
    MsgBox ("pareil")
    Else
 
 '   Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 Samedi", _
 '       "Route 10 Dimanche")).Select
 '   Sheets("Route 1").Activate
 '   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
 '       IgnorePrintAreas:=False
    MsgBox ("pas pareil")
    End If
 
    Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 Semaine")).Select
    Sheets("Route 1").Activate
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=Calcule!R[-6]C[3]"
    Range("B9").Select
    Sheets("Horaire").Select
End Sub

J'ai mis les commandes d'impression en commentaire et mit des message box afin de tester sans gaspiller une tonne de papier. Voici le problème, peu importe le résultat des cellule D8 des feuille Route 10-A et Route 10-B (pareil ou pas pareil), le résultat change en fonction de la date et non des cellules souhaitées. Voyez-vous un problème dans mon code? si oui, le quel? si vous le désiré je peux vous mettre mon fichier en pièce jointe.

Merci d'avance pour votre aide.

03/10/2019, 05h55
Transitoire

Bonjour, Que voulez vous dire exactement par la fonction If ne fonctionne plus. Pourriez vous nous expliquer exactement quelle est la place des lignes 37 à 42 dans la fonction si et d'ailleurs ce que fait exactement votre programme (en ce qui concerne cette partie du code). Je parle d'explications en Français et pas en moitié Français, moitié codage.
Cordialement 8-)
03/10/2019, 09h17
Menhir

Est-ce que D8 contient une valeur saisie ou une formule ?
03/10/2019, 20h16
Miraie

Citation:

Envoyé par Menhir

Est-ce que D8 contient une valeur saisie ou une formule ?

La cellule D8 contient une formule de recherche vertical
04/10/2019, 08h39
Menhir

Citation:

Envoyé par Miraie

La cellule D8 contient une formule de recherche vertical

Pourrais-tu présenter cette formule ?
05/10/2019, 02h33
Miraie

Citation:

Envoyé par Menhir

Pourrais-tu présenter cette formule ?

Code:

=RECHERCHEV(B8;Horaire!A3:F46;5;FAUX)

pour la feuille Route 10-A
et

Code:

=RECHERCHEV(B8;Horaire!A3:F46;6;FAUX)

pour la feuille Route 10-B

J'ai trouvé mon problème! :mrgreen:
Je modifiais mes cellules après les avoir fixé mes variables. En les modifiant avant, le problème est réglé.

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
37
38
39
40
41
42
43
Option Compare Text
Sub Imprimer_Weekend()
'
' Imprimer_Weekend Macro
'
    Dim Route10A As String, Route10B As String
 
    Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 semaine")).Select
    Sheets("Route 1").Activate
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=Calcule!R[-6]C[1]"
    Range("B9").Select
 
    Route10A = Sheets("Route 10-A").Range("D8")
 
    Route10B = Sheets("Route 10-B").Range("D8")
 
 
    If Route10A = Route10B Then
 
  '     Sheets(Array("Route 1", "Route 11", "Route 10 semaine", "Route 10 Samedi", _
  '      "Route 10 Dimanche")).Select
  '  Sheets("Route 1").Activate
  '  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  '      IgnorePrintAreas:=False
    MsgBox ("parreil")
    Else
 
 '   Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 Samedi", _
 '       "Route 10 Dimanche")).Select
 '   Sheets("Route 1").Activate
 '   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
 '       IgnorePrintAreas:=False
    MsgBox ("pas pareil")
    End If
 
    Sheets(Array("Route 1", "Route 11", "Route 10-A", "Route 10-B", "Route 10 Semaine")).Select
    Sheets("Route 1").Activate
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "=Calcule!R[-6]C[3]"
    Range("B9").Select
    Sheets("Horaire").Select
End Sub

Merci quand même pour votre aide,:D