donnée remplacée en mode partageRésolu

Question

Bonjour, 
j'utilise une macro qui fonctionne en mode exclusif 
qui consiste a rentrer des données selon userform sur la ligne 5

Private Sub enregistrer2_Click() 'bouton d enregistrement de demande de planifWorksheets("gestionnaire_de_taches").ActivateRange("a2").SelectOn Error Resume Next  ActiveSheet.ShowAllData  ActiveWorkbook.RefreshAllApplication.EnableEvents = FalseIf titre.Value = "" Then    MsgBox ("donner un titre qui resume la tache")    Exit SubEnd IfIf description.Value = "" Then    MsgBox ("donner une description succinte de la tache. Si la tache est trop longue, mettre en piece jointe le fichier DM")    Exit SubEnd IfIf besoin.Value = "" Then    MsgBox ("il est necessaire de donner un besoin, afin de pouvoir mesurer l importance")    Exit SubEnd IfIf responsable.Value = "" Then    MsgBox ("il est necessaire de donner un responsable")    Exit SubEnd IfIf ressource.Value = "" Then    MsgBox ("il est necessaire de donner la ou les ressources")    Exit SubEnd IfIf prerequis.Value = "" Then    MsgBox ("il est necessaire de donner les prequis, si non noter N/A")    Exit SubEnd IfIf postrequis.Value = "" Then    MsgBox ("il est necessaire de donner les postquis, si non noter N/A")     Exit SubEnd IfWorksheets("gestionnaire_de_taches").Range("A5:AE5").Insert Shift:=xlShiftDown 'ajoute une ligne en 5Worksheets("gestionnaire_de_taches").ActivateRange("A400:AE400").SelectSelection.CopyWorksheets("gestionnaire_de_taches").ActivateRange("A5:AE5").SelectActiveSheet.Paste 'reprend le formatRange("A5").SelectWorksheets("gestionnaire_de_taches").Range("G5") = ComboBox1.Value      'zone ligneWorksheets("gestionnaire_de_taches").Range("H5") = Combobox2.Value      'equipement salle(....)Unload Medemande2planif.HideMsgBox ("N'oubliez pas de noter et communiquer le n° ID de votre tache au sein de votre service afin de ne pas avoir de doublon")Application.EnableEvents = TrueEnd Sub
et lorsque je passe en mode partager, les données se trouvant sur la ligne 5 sont effacés par les nouvelles... 

NB: "Application.EnableEvents = True" est dû a une macro qui empeche toutes modifications sans passer par les userforms (je ne pense pas que ca vienne de cela)

merci de votre aide

ucfoutu · Answer

Bonjour,
si tu veux dire qu'un autre utilisateur "admis" en partage peut faire cette modification, c'est que tu as mal paramétré les options de partage à définir (selon TES besoins) comme exposéici :
https://support.office.com/fr-ch/article/Utiliser-un-classeur-partag%C3%A9-pour-collaborer-b8207fe9-a613-483f-b804-0ca4658b0c61
(rien à voir avec le développement en soi)
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

mikmak78 · Answer

ok je vais revoir les parametres de partage.
merci

cs_MPi · Answer

Attention à EnableEvents.
Tu le mets à False avant tes vérifications où tu utilises Exit Sub...

mikmak78 · Answer

j'ai testé tous les options de parametrage de partage. Et mon probleme apparaissait encore.
J'ai checké pas à pas le code...
il semble que
l'increment de ligne demandé ne soit pas effectué
Worksheets("gestionnaire_de_taches").Range("A5:AE5").Insert Shift:=xlShiftDown 'ajoute une ligne en 5
j'ai remplacé le code par
Range("A5").SelectSelection.EntireRow.Insert
en mode partage, il n y a plus de probleme...
c'est quand meme bizzare je trouve

ucfoutu · Answer

Cette ligne n'était nullement responsable.
Il est à mon avis probable, d'ailleurs, que tu peux la remettre telle qu'elle était.
Je pense que tout simplement, tu n'avais pas sauvegardé, fermé et rouvert après modifications de tes paramètres de partage, la fois précédente.

Donnée remplacée en mode partage

5 réponses

Votre réponse

Discussions similaires