Discussion :

[amapacha]

Bonjour à vous!

voilà!! je vais essayer de faire court, j'ai un probleme
je souhaiterais que quand on modifie une cellule du pojet 1 par exemple, la date du jour s'affiche et dans la colonne des dates et un commentaire dans la colonne com.
est ce qu'on peut m'aider.?

Merci d'avance

[Daniel.C]

Bonjour,

C'est possible avec une macro. Quel commentaire faut-il mettre ? Faut-il afficher une boîte de dialogue pour que tu entres le commentaire ?

[amapacha]

Bonjour, et merci de ta rapide reaction,

Alors si une boite de dialogue peut s'affiche ça va encore etre super cool.
il faut bien que, ce que la personne ecrit s'affiche dans les cellules fusionnée de "com"

[Daniel.C]

Mets la macro suivante dans le module de la feuille "Feuil1" :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rep As String
    If Intersect(Target, [B3:G11]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    [I3].Value = Date
    Rep = InputBox("Entrez un commentaire")
    [H3] = Rep
    Application.EnableEvents = True
End Sub

Pièce jointe : amapacha Classeur1.xlsm

[amapacha]

c'est exactement ce que je veux mais n'y a t-il pas moyen de generaliser ceci sur l'ensemble des projet.?
faut-il que je refasse la meme chose pour tout les projets.? j'ai une centaine de projet à gerer à gerer. ça va faire un long code tu ne pense pas.?

[Daniel.C]

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rep As String, Ligne As Variant, C As Range
    If Range("A" & Target.Row).Borders(xlEdgeRight).LineStyle <> 1 Or Target.Column > 7 Then Exit Sub
    Application.EnableEvents = False
    Set C = Cells(Target.Row, 1)
    Do Until C.Value <> ""
        Set C = C.Offset(-1)
    Loop
    Ligne = C.Row
    Cells(Ligne, 9).Value = Date
    Rep = InputBox("Entrez un commentaire")
    Cells(Ligne, 8) = Rep
    Application.EnableEvents = True
End Sub

[amapacha]

c'est super.!! ça marche.!!!

j'essai de comprendre comment ça marche, puis je reviens vers toi si j'ai des parties du code que je ne comprend pas.

Merci beaucoup Daniel!!!