Pas de passage d'une macro à une autre dans un même module

Version imprimable

:salut:

Voici mon problème :

J'ai le code ci-dessous qui ne marche pas

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Sub Dates()
    For j = 2 To 99999
        Cells(j, 10).NumberFormat = "m/d/yyyy"
        Cells(j, 11).NumberFormat = "m/d/yyyy"
        Cells(j, 12).NumberFormat = "m/d/yyyy"
    Next j
    FormatDate
End Sub
Sub FormatDate()
 Application.ScreenUpdating = False
    For i = 1 To Range("A65535").End(xlUp).Row
        If Cells(i, 1) Like "##.##/####" Or Cells(i, 1) Like "##/##.####" Or Cells(i, 1) Like "##.##.####" Or Cells(i, 1) Like "##.##.##" Or Cells(i, 1) Like "##.##/##" Or Cells(i, 1) Like "##/##.##" Then
            Cells(i, 1).NumberFormat = "@": Cells(i, 1) = Replace(Cells(i, 1), ".", "/"): Cells(i, 1).NumberFormat = "m/d/yyyy"
        End If
    Next i
      RemplacePresse
 Application.ScreenUpdating = True
End Sub
Sub RemplacePresse()
On Error Resume Next
  Columns("B:B").Replace What:="presse", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  On Error GoTo 0
    RemplaceText1
End Sub
Sub RemplaceText1()
On Error Resume Next
  Columns("B:B").Replace What:="à chambre fixe", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  On Error GoTo 0
    RemplaceText2
End Sub
Sub RemplaceText2()
On Error Resume Next
  Columns("B:B").Replace What:="HAUTE DENSITE", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  On Error GoTo 0
    RemplaceText3
End Sub
Sub RemplaceText3()
On Error Resume Next
  Columns("B:B").Replace What:="Bale Pack", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  On Error GoTo 0
    RemplaceText4
End Sub
Sub RemplaceText4()
On Error Resume Next
  Columns("B:B").Replace What:="HD", Replacement:="", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
  On Error GoTo 0
    SupEspace
End Sub
Sub SupEspace()
'Dim i As Long
   For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
       Cells(i, 2) = Trim(WS.Cells(i, 2))
   Next i
    InterLigne
End Sub
Sub SupInterLigne()
    For i = 2 To Range("A60000").End(xlUp).Row
        If Range("A" & i).Value = "" Then
           Rows(i).Delete
        End If
    Next i
End Sub

J'ai la première partie :

Code:

1
2
3
4
5
6
7
8
Sub Dates()
    For j = 2 To 99999
        Cells(j, 10).NumberFormat = "m/d/yyyy"
        Cells(j, 11).NumberFormat = "m/d/yyyy"
        Cells(j, 12).NumberFormat = "m/d/yyyy"
    Next j
    FormatDate
End Sub

Qui a l'ai de marcher mais sa passe pas à la suite :cry:

Une idée :question:

03/09/2009, 14h14
jfontaine
Bonjour,

Je n'ai pas regarder la suite mais pour la premiere partie, tu peux éviter la boucle avec la méthode ci dessous
Code:

1 2 3 4 5 6 7 8 Sub Dates() Range("J2:L9999").NumberFormat = "m/d/yyyy" FormatDate End Sub
03/09/2009, 14h21
FCL31

Bien vu mais malheureusement, sa ne résous pas le problème

Mais je me pose la question si c'est un problème de passage d'une partie du module a une autre ou alors si c'est une partie qui ne fonctionne pas ?
03/09/2009, 14h22
diude54

Bonjour, je viens de tester chez moi en plaçant ton code dans un module et je n'ai eu aucun problème.
As tu essayé de dérouler en pas à pas pour voir ce qu'il se passe?
03/09/2009, 15h03
Invité
Bonjour,

Je n'ai peut-être pas tout compris, mais dans cette procédure :
Code:

1 2 3 4 5 6 7 Sub SupEspace() 'Dim i As Long For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 2) = Trim(WS.Cells(i, 2)) Next i InterLigne End Sub
On trouve un appel vers la procédure "Interligne()" qui à priori n'existe pas, par contre il existe une procédure "SupInterLigne()" ?
03/09/2009, 15h15
FCL31

Oui excuse j'ai modifié mais sa marche toujours pas
03/09/2009, 15h30
Invité

Si je lance votre procédure "Sub Dates()" sur une feuille vide et après avoir rectifié le nom "SupInterLigne" comme indiqué dans la réponse précédente, les procédures se lancent bien les unes après les autres et je n'ai aucun message d'erreur.

Mais ce n'est pas une preuve. Il faudrait un exemple de votre fichier, car il suffit d'une donnée non conforme, par exemple.
04/09/2009, 08h21
ouskel'n'or

Déjà, pour trouver d'éventuelles erreurs, mets tous les "On error resume next" en remarque.
Ensuite tu peux simplifier le code obtenu en enregistrant ton action. Tous les paramètres par défaut peuvent être supprimés. Après on y voit plus clair ;)
Par exemple, dans la procédure RemplacePresse, tu peux limiter l'instruction à ceci.

Code:

Columns("B:B").Replace What:="à chambre fixe", Replacement:="", LookAt:=xlPart

Même remarque pour RemplaceText1 et 2
Mais je ne vois toujours pas la raison de l'erreur... et comme tu ne devrais pas en avoir, "On error resume next" ne servirait à rien, donc, commence par là et mets-les tous en remarque. VBA va t'expliquer ton problème :aie:
Bonne journée

Citation:

Envoyé par ouskel'n'or

Mais je ne vois toujours pas la raison de l'erreur... et comme tu ne devrais pas en avoir, "On error resume next" ne servirait à rien, donc, commence par là et mets-les tous en remarque. VBA va t'expliquer ton problème

J'avais essayé mais sans succé.

J'ai séparer les macro en les mettant dans des modules différent et j'ai rajouté

Code:

Columns("A:A").NumberFormat = "mm/dd/yyyy"

aprés
Code:

1 2 3 4 5 6 Sub FormatDate() Application.ScreenUpdating = False For i = 1 To Range("A65535").End(xlUp).Row If Cells(i, 1) Like "##.##/####" Or Cells(i, 1) Like "##/##.####" Or Cells(i, 1) Like "##.##.####" Or Cells(i, 1) Like "##.##.##" Or Cells(i, 1) Like "##.##/##" Or Cells(i, 1) Like "##/##.##" Then Cells(i, 1).NumberFormat = "@": Cells(i, 1) = Replace(Cells(i, 1), ".", "/"): Cells(i, 1).NumberFormat = "mm/dd/yyyy" End If: Next i
qui (je pense ne sert a rien) mais maintenant sa a l'air de marcher :koi:

A préciser que dans la macro
Code:

1 2 3 4 5 6 7 8 9 Sub FormatDate() Application.ScreenUpdating = False For i = 1 To Range("A65535").End(xlUp).Row If Cells(i, 1) Like "##.##/####" Or Cells(i, 1) Like "##/##.####" Or Cells(i, 1) Like "##.##.####" Or Cells(i, 1) Like "##.##.##" Or Cells(i, 1) Like "##.##/##" Or Cells(i, 1) Like "##/##.##" Then Cells(i, 1).NumberFormat = "@": Cells(i, 1) = Replace(Cells(i, 1), ".", "/"): Cells(i, 1).NumberFormat = "mm/dd/yyyy" End If: Next i RemplacePresse Application.ScreenUpdating = True End Sub
j'ai inversé les lignes suivante :

Code:

Application.ScreenUpdating = True

et

Code:

RemplacePresse

car sa appelait la macro suivante sans arrivé jusqu'a

Code:

Application.ScreenUpdating = True

Le problème pouvait il venir de là ??

PS - je ne met pas encore :resolu: en attendant une éventuelle réponse à ma dernière question (Toutefois je n'en ai pas je le mettrais)

04/09/2009, 10h55
ouskel'n'or
Que s'est-il passé quand tu as supprimé les On error... ?
Épi un truc que j'avais pas vu...
Citation:
Code:

1 2 3 4 5 For j = 2 To 99999 Cells(j, 10).NumberFormat = "m/d/yyyy" Cells(j, 11).NumberFormat = "m/d/yyyy" Cells(j, 12).NumberFormat = "m/d/yyyy" Next j
J'ai un trou... y'a combien de lignes dans une feuille de calculs de 2003 ? Tu devrais déjà corriger ça.
Quant à "Application.ScreenUpdating = True" je le mettrais dans Dates, après FormatDate puisque ce sera la dernière procédure "visitée" par VBA.
Code:

1 2 3 4 5 6 7 Sub Dates() For truc to machin ... Next FormatDate Application.ScreenUpdating = True End Sub
Mais réponds à ma question ;)
A+
04/09/2009, 11h36
FCL31
Citation:

Envoyé par ouskel'n'or

Que s'est-il passé quand tu as supprimé les On error... ?

Rien de plus rien de moins

Citation:

Envoyé par ouskel'n'or

J'ai un trou... y'a combien de lignes dans une feuille de calculs de 2003 ?

65536 lignes
Je ai modifier. c'est bon
Citation:
Envoyé par ouskel'n'or

Quant à "Application.ScreenUpdating = True" je le mettrais dans Dates, après FormatDate puisque ce sera la dernière procédure "visitée" par VBA.

Code:

1 2 3 4 5 6 7 Sub Dates() For truc to machin ... Next FormatDate Application.ScreenUpdating = True End Sub
En fait sa change quoi ??
04/09/2009, 14h18
ouskel'n'or

Citation:

Envoyé par FCL31

En fait sa change quoi ??

Rien, c'est pour le principe. Tu souhaites éviter les mouvements de feuilles gourmands en temps d'exécution ? Alors tu commences la macro "maître" en supprimant la mise à jour de l'affichage et en la rétablissant quand tout est fini. Et c'est plus facile de savoir où tu as mis tout ça si tu les mets "là", "là" qui, pour ce qui te concerne, est la macro "Dates" :mouarf:
Mais tu fais bien comme tu veux selon tes envies et ton humeur du moment :aie:
Bon week-end