Discussion :

[La Zélie]

Bonjour le forum,

Je fais appel à vous car je tourne en rond depuis 2 heures avec une macro toute simple.

Voilà mon code

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
Sub Reception_Donnees()
 
 
 
      'on désactive la mise à jour de l'écran
1     Application.ScreenUpdating = False
 
      ' on supprime les liens
2     ActiveSheet.Hyperlinks.Delete
 
      'on supprime les images
3     ActiveSheet.Shapes.SelectAll
4     Selection.Delete
 
      'on supprime les lignes vides
      Dim i As Long
5     For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
6         If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
7     Next i
 
 
 
      'on supprime les colonnes
 
8     Range("B:B,D:J").Delete Shift:=xlToLeft
 
      'on s'occupe de la celluleprix à déplacer et convertir
9     Application.DisplayAlerts = False
 
10    Range("A1").End(xlDown).Cut [H2]
 
11    Range("H2").TextToColumns Destination:=Range("H2"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
              Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
              :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
              1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
 
12    Range("H2:N2").Copy
13        Range("G2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
              False, Transpose:=True
14        Range("H2:N2").Delete
 
15
 
      'on supprime 20 lignes à partir de la cellule contenant "Origines"
 
16    Columns("A:A").EntireColumn.Find(What:="origines", After:=ActiveCell).Activate
17        ActiveCell.Range("A1:F20").Delete
 
 
      'on sélectionne les données qui restent et cut en F2 de feuille "Finalisation"
 
18    Range([G1], [A1].End(xlDown)).Cut Worksheets("Finalisation").[F2]
 
 
19    Application.ScreenUpdating = True
      '
End Sub

Elle s'arrête sur la ligne 8 et quand j'arrive à en sortir elle s'arrête ligne 11.
Je n'en vois pas la raison ça m'énerve ça m'énerve ça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerve

j'espère que je vais trouver une aide. merci d'avance

[jfontaine]

Bonjour,

Peux tu nous dire ou est exécuter le code. Une feuille, un module ...?

[La Zélie]

Merci de me répondre.

Ma macro est dans un module et je ne l'utilise que dans un onglet "reception_donnees". Le résultat de cette macro est envoyé dans l'onglet "Finalisation".

[jfontaine]

Dans ce cas il serait bon de spécifier la feuille sur laquelle le traitement doit se passer.
Sur la partie de suppression de ligne on trouve bien activesheet, mais après plus rien

[La Zélie]

J'ai essayé avec activesheet.range..., avec sheet("Reception_Données"), le problème est toujours là

Pour avancer, j'ai divisé cette macro en 5 petites macros et je les ai réunis avec des application.run et là tout fonctionne.

J'aimerais quand même trouver ce qui cloche.Je vais continuer de chercher.

Merci à toi jfontaine de t'avoir penché sur mon problème.

La nuit porte conseil, à ce qu'il parait.Je vais donc aller dormir.

Bonne nuit à tous.