Discussion :

[lpetitlolo]

bonjour à tous . J'ai créer un fichier de programmation qui sert à 12 personnes .Sur se fichier , il y a des cellules à remplir part d'autres personnes , et des cellules contenant des formule de calcul afin de définir un temps pour effectuer la tache . Depuis quelques temps , nous nous sommes aperçu que certain temps sont changer ( malgré une protection) . J'ai trouver sur le net , un petit fichier sympathique qui m'enregistre dans un fichier log ( fichier txt) toutes les modifications apporter sur une feuille défini . Mon soucis , et que j'aimerais que l'enregistrement des modifications ne se fasse pas sur toute la feuille mais sur une plage bien défini ( ex : de la cellule A18 à la cellule AZ 999) enregistrement des modifs dans le fichier log. si modification faite sur le plage A1 : AZ18 pas d'enregistrement .
merci d'avance pour votre aide précieuse et pour le temps passé à résoudre mon problème .

[furtif13780]

bonjour à tous . J'ai créer un fichier de programmation qui sert à 12 personnes .Sur se fichier , il y a des cellules à remplir part d'autres personnes , et des cellules contenant des formule de calcul afin de définir un temps pour effectuer la tache . Depuis quelques temps , nous nous sommes aperçu que certain temps sont changer ( malgré une protection) . J'ai trouver sur le net , un petit fichier sympathique qui m'enregistre dans un fichier log ( fichier txt) toutes les modifications apporter sur une feuille défini . Mon soucis , et que j'aimerais que l'enregistrement des modifications ne se fasse pas sur toute la feuille mais sur une plage bien défini ( ex : de la cellule A18 à la cellule AZ 999) enregistrement des modifs dans le fichier log. si modification faite sur le plage A1 : AZ18 pas d'enregistrement .
merci d'avance pour votre aide précieuse et pour le temps passé à résoudre mon problème .

Bonjour
Votre fichier joint n'est pas visible avec l'extension xlsm (macro).
Compresser ce fichier en zip ou simiilaire
Cdlt

[Menhir]

Tu devrais plutôt présenter le code dans un message.
Beaucoup de participants à ce forum évitent d'ouvrir les pièces jointes, surtout si elles peuvent contenir des macros.
http://www.developpez.net/forums/d84...s-discussions/

[lpetitlolo]

Merci de vos réponses . voici donc les deux code du fichier .

voici le code ce trouvant dans le module1 .

Public reference As String
Public feuille As String
Public av As String
Public nv As String
Public utilisateur As String
Public datemodif As String

Sub ecriture()

Open "C:\Users\Drouetl\Documents\log\excel-plus.txt" For Append As 1
' Adresse à modifier pour placer le fichier où vous le souhaitez
' Attention à ce que l'accès en écriture soit autorisé, y compris sur un emplacement réseau

Print #1, "-- Modification du fichier --"
Print #1, "La cellule " & reference & " a été modifiée, dans la feuille " & feuille
Print #1, "Ancienne valeur :" & av
Print #1, "Nouvelle valeur :" & nv
Print #1, "Changée par :" & utilisateur
Print #1, "Modifiée le :" & datemodif


Close 1
End Sub


deuxième code se trouvant dans le feuille 1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
nv = Target.Value
Else
nv = "Valeur inconnue"
End If
utilisateur = Environ("Username")
datemodif = Now
reference = Target.Address
feuille = Target.Worksheet.Name

'Ne pas oublier de lancer la macro d'écriture

Call ecriture

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Ne marche que si on ne sélectionne qu'une cellule
'av = Target.Value

'sinon :

If Target.Count = 1 Then
av = Target.Value
Else
av = "Valeur inconnue"
End If

End Sub

[Menhir]

j'aimerais que l'enregistrement des modifications ne se fasse pas sur toute la feuille mais sur une plage bien défini ( ex : de la cellule A18 à la cellule AZ 999) enregistrement des modifs dans le fichier log. si modification faite sur le plage A1 : AZ18 pas d'enregistrement .

Est-ce que la ligne 18 est inclue ou exclue (ton explication est contradictoire) ?

Je vais partir du principe qu'elle est exclue. Si ce n'est pas le cas, tu modifieras.

Rajoute la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If Row(Target) <= 18 Then Exit Sub

En tout début de ta macro Worksheet_Change.

[parmi]

Je dirais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Target.Row <= 18 Then Exit Sub

[Menhir]

Effectivement.
Je finis par m’emmêler entre les fonctions Excel et les propriétés VBA.

[parmi]

[lpetitlolo]

nickel . ca fonctionne impeccable . merci infiniment de votre aide