Discussion :

[FCL31]

Voici mon problème :

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

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
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 :

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

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

Une idée

[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 :

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

1
2
3
4
5
6
7
8
 
Sub Dates()
 
    Range("J2:L9999").NumberFormat = "m/d/yyyy"
 
    FormatDate
 
End Sub

[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 ?

[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?

[Invité]

Bonjour,

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

Code :

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

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()" ?

[FCL31]

Oui excuse j'ai modifié mais sa marche toujours pas

[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.