Discussion :

[faustien]

bonsoir,

j'ai eu plaisir à echanger avec vous depuis 2 jours et votre aide m'est precieuse.

Malheureusement j'ai un nouveau problème a priori de compatibilité office 2016.

La macro fonctionne tres bien mais une fois des modifications faites, fichier sauvegardé, lorsque je ré-ouvre le fichier j'ai un plantage .

Apres une soirée de recherche et un morceau de la matinée,je me rends compte que ce plantage n’apparaît pas en XLS mais uniquement en XLSM.

En pièce jointe j'ai mis mon fichier.

Quelqu'un peut-il m'aider à résoudre

[Igloobel]

Bonjour,

Pour comme ça sans ouvrir cela ressemble à une incompablité de version (2003 - 2007)

Peux-tu sortir tes macros (de ton fichier .xls et de ton fichier .xlsm) pour les comparer. N'oublie pas le bouton # pour les mettre en forme

Je rappelle que bon nombre d'intervenants n'ouvre pas les fichier tiers et pour cela je t'invite à lire les règles du forum

A+

[Menhir]

En pièce jointe j'ai mis mon fichier.

Je pense qu'ordinairement il est risqué d'ouvrir une pièce jointe contenant une macro mais qu'il faudrait être franchement inconscient pour en ouvrir une en sachant que ça plante Excel.

Donc, d'accord avec Igloobel ( ) : affiche tes code dans un message balisé.

[faustien]

Voila le code

En fait lorsque je réouvre le fichier, la macro qui se situait dans la feuille planning (worksheet) est deplacée dans une autre feuille créé à l'ouverture, suite à la récupération

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
'Choix du materiel et du N° parc
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([d3:d1000], Target) Is Nothing And Target.Count = 1 Then
    Set f = Sheets("matériel")
    Set d = CreateObject("Scripting.Dictionary")
    For Each c In f.Range("d2:d" & f.[d65000].End(xlUp).Row): d(c.Value) = "": Next c
    Target.Validation.Delete
    Target.Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
  End If
End Sub
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([d3:d1000], Target) Is Nothing And Target.Count = 1 Then
   If Target <> "" Then
    Set f = Sheets("matériel")
    Set d = CreateObject("Scripting.Dictionary")
    d("demande") = ""
    For Each c In f.Range("d2:d" & f.[d65000].End(xlUp).Row)
      If c.Value = Target Then d(c.Offset(, 2)) = ""
    Next c
    If d.Count > 0 Then
      Target.Offset(, 1).Validation.Delete
      Target.Offset(, 1).Validation.Add xlValidateList, Formula1:=Join(d.keys, ",")
      a = d.keys: Target.Offset(, 1) = a(0)
      If d.Count > 1 Then Target.Offset(, 1).Select: SendKeys "%{down}"
     Else
       Application.EnableEvents = False
       Target = ""
       Target.Offset(, 1) = ""
       Target.Offset(, 1).Validation.Delete
       Application.EnableEvents = True
     End If
   End If
  End If
End Sub