Discussion :

[chris09300]

Bonsoir
j'ai le code suivant, et la macro s'arrete a left en couleur rouge dans le code ci dessous, et je ne sais pas pourquoi,
merci de votre aide
cris

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
ub Arrivee()
'
    Application.ScreenUpdating = False
  
    Workbooks.Open Filename:= _
        "C:\A-A LA MASIA\Reservation Vagues oceanes\MASIA.xls"
    Windows("ETAT DES LIEUX.xlsm").Activate
    Sheets("MASIA").Select
    ActiveWindow.SelectedSheets.Delete
    Windows("MASIA.xls").Activate
    Sheets("MASIA").Select
    Sheets("MASIA").Copy Before:=Workbooks("ETAT DES LIEUX.xlsm").Sheets(2)
    Windows("MASIA.xls").Activate
    ActiveWorkbook.Close
Sheets("AR-Base").Select
Sheets("MASIA").Select
    Dim Cols, c As Range, i As Long
Cols = Array("C", "D", "E", "I", "J", "L", "M", "O")
'ligne avec fichier type elodie
'Cols = Array("B", "D", "E", "F", "G", "H", "I", "J", "L", "M", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
    With Sheets("MASIA")
        .Range("1:7").Delete
        For i = 50 To 1 Step -1
            If IsNumeric(Application.Match(Left(.Cells(1, i).Address(0, 0), 1), Cols, 0)) Then
               .Columns(i).Delete
            End If
        Next i
        '   Columns("G:G").Delete
       For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
            If Application.IsEven(i) Then
                .Rows(i).Delete
            End If
       Next i
        For Each c In .Range(.[F1], .Cells(.Rows.Count, 6).End(xlUp))
            c.Value = Mid(c.Value, 3, 4)
        Next c
        Columns(6).Cut
        Columns(1).Insert
        Columns(4).Cut
        Columns(2).Insert
    End With
        Columns("E:E").Delete
    [A1].Select
Application.Run "'ETAT DES LIEUX.xlsm'!Mise_En_Forme_Click"
Application.ScreenUpdating = True
End Sub

[SfJ5Rpw8]

Pas de message ?

[chris09300]

le message se trouve en tete du code.
cette macro fonctionnais sur un autre poste, et depuis que j'ai changer d'ordi, elle se bloque sur le mot left
cris

[SfJ5Rpw8]

Donc pas de message ? d'erreur ?
$



Jette un oeil au références menu outils/références .. histoire d'être sur de ne pas en avoir de Manquante ..

[chris09300]

aucun message d'erreur
peux tu me dire de quel type de reference pourrait'il manquer
cris

[SfJ5Rpw8]

n'importe qu'elle référence .. il suffit qu'il en manque une pour mettre "en vrac" toutes les autres références (même la référence VBA qui englobe les fonctions VBA standard ..)

[chris09300]

autant pour moi, j'ai relance rla macro et le message suivant apparaot

erreur de compilation
projet ou bibliotheque introuvable

cris

[SfJ5Rpw8]

qu'attends tu pour aller dans le menu outils/référence histoire de voir les références manquantes !

[chris09300]

j'ai ete voir, mais je ne connais pas toutes les references qui sont neccessaires.
car dans ce code, je fais simplement une copie de donnees d'un autre classeur, que je triture pas macro pour n'avoir que les donnees qui m'interessent, un tri, des mise en couleur, pas appel a de listview ou autre

cris

[SfJ5Rpw8]

Mais y a-t-il des références dont le nom est : "MANQUANTE : ....."

[chris09300]

si une
manquante:microsoft data bound list controls 6.0

[SfJ5Rpw8]

Décoche cette référence...

[chris09300]

c'est fait et j'ai relancer la macro et tout fonctionne maintenant,
peux tu m'expliquer ce qui a pu ce passer, car je n'est rien fait ni enlever de references

merci beaucoup
cris

[SfJ5Rpw8]

Si tu as changé de PC ... et sur ton ancien PC tu as du utiliser un contrôle que tu n'utilise plus ... et qui n'est pas présent sur ton nouveau PC.

[chris09300]

ok bien compris
encore merci de l'aide que tu m'a apporte
cris