Bonsoir à tous,
je travail sur un fichier qui contient des procédure de type "événementiel", ces codes fonctionnent bien sauf quand j'ai une activité sur un autre classeur alors que le fichier en question est également ouvert, dans ce cas, les événements ne fonctionnent plus. Pour retrouver la fonctionnalité des événements, je suis obliger de fermer excel...et de ré-ouvrir mon classeur. Le fichier est du coup inutilisable...
puisque dépendant des instances ouvertes.
ayant chercher longtemps du coté des macros, j'en viens à me demander si le pb ne viens pas d’ailleurs. option classeur; extension fichier (XLSM)...ce truc me rend dingue
voici un des codes "événement" concerné.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim resultat As String
Sheets("Gestionnaire XXXX").Unprotect ("mdp")
If Not Intersect(Target, thisWorkbook.Sheets("Gestionnaire XXXX").Range("G6:G905")) Is Nothing Then
'instructions
resultat = InputBox("Veuillez indiquer dans le champ ci-dessous le nombre XXXXXX", "saisie xxxxxx", "0")
ActiveCell.Offset(-1, 4).Value = resultat
End If
Dim cell As Range
For Each cell In thisWorkbook.Sheets("Gestionnaire XXXX").Range("G6:G905")
If cell = "" And cell.Offset(0, -1) <> "" And cell.Offset(0, -5) <> 1 And cell.Offset(0, 5) <> "" Then
Dim Rep As Integer
Rep = msgbox("Le prochain audit procces de l'opérateur " & cell.Offset(0, -3) & " au poste " & cell.Offset(0, -2) & " prévu le " & cell.Offset(0, 5) & " doit être réalisé par un XXXXXX." & Chr(10) & Chr(10) & " - cliquer sur OK pour prévenir par E-mail votre partenaire XXXXX." _
& Chr(10) & Chr(10) & " - cliquer sur annuler pour sortir de la procédure ", vbOKCancel + vbInformation, "Information")
If Rep = vbOK Then
' ici le traitement si réponse positive
cell.Offset(0, -5) = 1
Call Mail_auto
Else
' ici le traitement si réponse négative
Exit Sub
End If
End If
Next
End Sub
je n'ai trouvé aucune discutions sur un sujet similaire compte tenu du nombre de personnes qui post sur les forums, je trouve ça vraiment étrange, même au niveau des cours sur le sujet des "événement worksheet ou workbook, je ne trouve rien sur les risques de conflits ou sur les précautions à prendre si plusieurs classeurs sont ouverts...
Merci par avance à celles et ceux qui souhaitent m'aider.
++