droits de modification sur une plage de cellule

[hyp-axa]

Bonjour à tous,

Aprés une recherche infructueuse dans ce merveilleux forum, j'ai decidé de vous exposer mon projet ( je dis projet alors que je n'ai rien codé.....je ss trés débutant et je ne sais pas d'ou commencer)

J'ai un classeur que je partage sur le réseau avec plusieurs utilisateurs(manager dans l'exemple en pj) et afin de sécuriser les modifications et les controler, de façon à permettre à chacun de modifier les les cellules lui concernant. En effet, sur chaque feuille, j'ai une colonne où j affiche le nom de chaque utilisateur, l'idée est de permettre à chacun d entre eux de modifier une plage de cellule sur la même ligne où son nom est renseigné.

pour identifier l utilisateur, je propose une identification par ID Windows.

en pj un petit exemple du fichier.

merci bcp pour votre aide

 

[hyp-axa]

Re : droits de modification sur une plage de cellule

Je n'ai jamais passé par ce moyen et en plus le nombre d'utilisateur est considérable dans mon organisation et bouge d'un jour à un autre...

Merci quand mm Eric pr votre proposition
cdt,
mohammed

 

[hyp-axa]

Re : droits de modification sur une plage de cellule

Bonjour Job, Steple, le Forum
Je voulais vous remercier pour votre aide.

La macro me permet de récupérer les lignes une fois les deux conditions réalisées.
Cette récupération se fait sur un seul classeur; Y a-t-il un moyen d'aller récupérer les données mais à partir d'un autre classeur via son chemin sur le réseau;

Merci d'avance

MOHAMMED

 

[job75]

Re : droits de modification sur une plage de cellule

Bonjour hyp-axa, le forum,

Cela devient un peu longuet non ?

Sub Copie()
Dim plage As Range
On Error Resume Next 'si le fichier n'existe pas ou si si aucune donnée à copier
[COLOR="Red"]1[/COLOR] With Workbooks("toto.xls").Sheets("Adhérence")
  [COLOR="Red"]If Err Then
    If MsgBox("Voulez-vous ouvrir 'C:\toto.xls' ?", 4) = 7 Then Exit Sub
    Err = 0
    Workbooks.Open "C:\toto.xls" 'chemin d'accès à adapter
    If Err Then Msgbox "Fichier introuvable !": Exit Sub
    GoTo 1
  End If[/COLOR]
  .AutoFilterMode = False 'désactive le filtre automatique
  With .Range("IV5:IV" & .Range("A65536").End(xlUp).Row) 'plage auxiliaire
    .Formula = "=AND(K5=""Reception"",L5=""Non"")"
    .Value = .Value
    .Replace False, ""
    Set plage = Intersect(.SpecialCells(xlCellTypeConstants).EntireRow, .Parent.[A:N])
    plage.Copy
    [COLOR="red"]ThisWorkbook.[/COLOR]Sheets("BD").[A65536].End(xlUp)(2).PasteSpecial xlPasteValues
    .ClearContents
  End With
End With
End Sub

A+

 

[hyp-axa]

Re : droits de modification sur une plage de cellule

Bonjour JOb et le forum,

Une derniere demande, pour mettre à jour les liaisons sur un fichier excel déja ouvert, je fais édition - liaisons - mettre à jour les valeurs

Comment je peux écrire cela en vba? J'ai essayé d'enregistrer une macro mais cela ne marche ( il n'enregistre pas le fait d'aller dans édition .....)

C'est ma derniere question, je vous remercie tous pour votre patience et aide.

Mohammed

 

[job75]

Re : droits de modification sur une plage de cellule

Re,

Les liens se mettent à jour automatiquement à l'ouverture du fichier si la case "Confirmation de la mise à jour automatique des liens" est décochée (menu Outils-Options-Modification).

Mais si cette case a été cochée, lors de l'invite vous cliquez peut-être sur "Ne pas mettre à jour".

Alors pour mettre à jour les liens, utiliser ensuite ce code :

ThisWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources 'ou ActiveWorkbook

A+