Pourcentage les tâches en cours et fait.

H

hoerwind

XLDnaute Barbatruc

• 11 Mai 2012

• #2

Re : Pourcentage les tâches en cours et fait.

Bonjour,

Pourrais-tu nous en dire un peu plus, où, comment, pourquoi, ... ?

Et en éliminant sous le fichier joint toutes les données qui n'ont rien à voir avec la question, ce serait encore mieux !

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Mai 2012

• #3

Re : Pourcentage les tâches en cours et fait.

Salut Krimodz2008
Salut hoerwind 😉

Sans poser toutes ses questions 😱 voici le fichier

A+

 

Pièces jointes

• Krimodz2008_Suivi Action HSE HMD 2011 v6.xlsx

  349.3 KB · Affichages: 71

Vote positif 0 Vote négatif

K

krimodz2008

XLDnaute Occasionnel

• 11 Mai 2012

• #4

Re : Pourcentage les tâches en cours et fait.

bonjour tout le monde moi je cherche le % action fait et action en cours dans l'onglet action HMD HSE.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Mai 2012

• #5

Re : Pourcentage les tâches en cours et fait.

Re,

As-tu vu mon fichier ?
Il suffit de déplacer les formules ...

A+

 

Vote positif 0 Vote négatif

K

krimodz2008

XLDnaute Occasionnel

• 11 Mai 2012

• #6

Re : Pourcentage les tâches en cours et fait.

ahh excuse BrunoM45 j'ai pas vu .....merci cher ami et bonen journée.

 

Vote positif 0 Vote négatif

K

krimodz2008

XLDnaute Occasionnel

• 11 Mai 2012

• #7

Re : Pourcentage les tâches en cours et fait.

une autre question BrunoM45 et ce qu'il possibilité dans l'onglet mise à jour de faire paraitre automatiquement le nom de la personne qui a enregistrer les modification sur ce fichier....sans intervenir manuellement pour l'écrire.

NB: j'ai les nom des personnes qui peuvant intervenir dans ce fichier nous sommes 3.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Mai 2012

• #8

Re : Pourcentage les tâches en cours et fait.

Re,

Oui c'est tout à fait possible, reste à savoir ce que tu veux inscrire en infos

Actuellement, le code inscrit toutes les feuilles dans lesquelles tu fais une modif.
avec, normalement le nom de la personne

A+

 

Pièces jointes

• Krimodz2008_Suivi Action HSE HMD 2011 v6.xlsm

  360.6 KB · Affichages: 117

Vote positif 0 Vote négatif

K

krimodz2008

XLDnaute Occasionnel

• 11 Mai 2012

• #9

Re : Pourcentage les tâches en cours et fait.

Ce que je veux c'est inserre des textes bien définit et le nom de la derniere personne qui apporté des modification sur le fichier.

 

Vote positif 0 Vote négatif

K

krimodz2008

XLDnaute Occasionnel

• 11 Mai 2012

• #10

Re : Pourcentage les tâches en cours et fait.

bonsoir brunoM45 et ce que vous pouvez m'expliquer et me dire et ce que c'est fait sur le fichier que vous m'avez envoyer, parce que je n'est pas compris.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Mai 2012

• #11

Re : Pourcentage les tâches en cours et fait.

Re,

Dans le fichier j'ai ajouté du code dans ThisWorkbook (pour le voir : ALT+F11)
Le code ajouté est :

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim DLig As Long
  ' Si modifications apportées dans la feuille "Mises à jour" on sort
  If Sh.Name = "Mises à jour" Then Exit Sub
  ' Empécher les évènements
  Application.EnableEvents = False
  With Sheets("Mises à jour")
    DLig = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & DLig + 1).Value = Format(Now(), "mm/dd/yyyy")
    .Range("B" & DLig + 1).Value = GetNom
    .Range("C" & DLig + 1).Value = Sh.Name
  End With
  Application.EnableEvents = True
End Sub

Ce code qui s'active à chaque modification sur le fichier, fait appel à une fonction dans "Module1"

Code:

Option Explicit

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, _
      ByVal lpUserName As String, lpnLength As Long) As Long

 Public Const NoError = 0

 Public Function GetNom()
  Const lpnLength As Integer = 255
  Dim status As Integer
  Dim lpName, lpUserName As String, UName As String, VNom As String


  lpUserName = Space$(lpnLength + 1)
  status = WNetGetUser(lpName, lpUserName, lpnLength)
  If status = NoError Then
    UName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
  Else
    UName = "#INCONNU!"
    Exit Function
  End If
  GetNom = UName
End Function

Est-ce plus clair !?

A+

 

Vote positif 0 Vote négatif

K

krimodz2008

XLDnaute Occasionnel

• 11 Mai 2012

• #12

Re : Pourcentage les tâches en cours et fait.

brunoM45 tout ça pour moi c'est du chinoi si je comprend ce que tu as fait je suis un champion mais en grosso modo comment je sais que mon fichier enregistre tout automatiquement la personne qui entrain de modofier ce fichier.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Mai 2012

• #13

Re : Pourcentage les tâches en cours et fait.

Re,

Désolé 😱
Dans la feuille "Mise à Jour" tu dois avoir de nouvelles lignes de créées

A+

 

Vote positif 0 Vote négatif

K

krimodz2008

XLDnaute Occasionnel

• 11 Mai 2012

• #14

Re : Pourcentage les tâches en cours et fait.

excuse moi brunoM45 pas compris comment.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 11 Mai 2012

• #15

Re : Pourcentage les tâches en cours et fait.

Wouahouu 🙁

Dans le fichier que j'ai mis dans le post #8
https://www.excel-downloads.com/threads/pourcentage-les-taches-en-cours-et-fait.184262/
Dans la feuille "Mises à jour", la dernière ligne remplie est la 9 ... ok ?

Maintenant va modifier une valeur dans une de tes feuilles
Reviens dans la feuille "Mises à jour", la dernière ligne remplie devrait être la 10 ... oui/non ?

A+

 

Vote positif 0 Vote négatif