changer et figer date selon valeur cellule

[wrap food]

Bonjour a tous
J'aurais besoin d'aide.
J'ai un fichier avec des dates en A6:B7.
J'aimerais que si une de ces dates changes la date du jour soit mis en C2 et qu'elle soit figée.
Mais aussi que si on rechange ces dates, la date en C2 "figé" soit celle du jour du changement .
C'est surement simple mais je n'y arrive pas.
J'ai mis un code dans la feuille mais ça ne fonction pas ......

Je joints un fichier pour que cela soit plus explisite .

Cdt

 

[Jacky67]

Bonjour,
Une proposition en pj

 

[wrap food]

Bonjour
Et merci devoir passé du temps sur mon probléme.

Mais en faite j'ai omis de précisser une chose qui est importantes je pense ...


J'ai en faite pluisieurs plages de ''dates'' ( 20) dans une même feuille.
Et ces différentes plages correspondent a 20 date a figer ......

est ce que je peux modifier le code que vous avez mis le fichier ou dois je passer par une autre procédure.

Encore merci pour votre temps

Cdt

 

[Jacky67]

Bonjour
Et merci devoir passé du temps sur mon probléme.

Mais en faite j'ai omis de précisser une chose qui est importantes je pense ...


J'ai en faite pluisieurs plages de ''dates'' ( 20) dans une même feuille.
Et ces différentes plages correspondent a 20 date a figer ......

est ce que je peux modifier le code que vous avez mis le fichier ou dois je passer par une autre procédure.

Encore merci pour votre temps

Cdt

Re..
'Intersect' supporte jusqu' a 30 plages différentes.

If Intersect(Target, Range("A6:b7, F6:G7")) Is Nothing Then Exit Sub

If Intersect(Target, Range("A6:b7, F6:G7,******,*****,etc")) Is Nothing Then Exit Sub
Sinon mettre en ligne un classeur avec ces plages et la structure définitive et un exemple du résultat souhaité.

 

[wrap food]

Re bonjour
En effet c'est un oubli de ma part , j'aurais du mettre un fichier en exemple .
désolé .
le probléme est le suivant .
Quand, depuis l'Userform 'SAISIE' avec le combobox le selection une personne, la macro va sur la feuille correspondante.
je souhaiterais que la date du jour s'incrive dans la cellule correspondant à la demande .
J'éspére que cela est possible .
Cdt

 

[Jacky67]

Re bonjour
En effet c'est un oubli de ma part , j'aurais du mettre un fichier en exemple .
désolé .
le probléme est le suivant .
Quand, depuis l'Userform 'SAISIE' avec le combobox le selection une personne, la macro va sur la feuille correspondante.
je souhaiterais que la date du jour s'incrive dans la cellule correspondant à la demande .
J'éspére que cela est possible .
Cdt

Re..
J'avoue ne pas comprendre la logique de fonctionnement
Essaye ceci

Private Sub ComboBox1_Click()
On Error Resume Next
Dim Feuille As String
Feuille = ComboBox1.Value
Worksheets(Feuille).Select
If ActiveSheet.Name <> "Saisie" Then Range("G17,P17,Y17,AH17,AQ17,AZ17,BI17,BR17,CA17,CJ17,CS17,DB17,DK17,DT17,EC17,EL17,EU17,FD17,FM17,FV17") = Date
End Sub

 

[Dranreb]

Bonjour

Mais en faite j'ai omis de précisser une chose qui est importantes je pense ...


J'ai en faite pluisieurs plages de ''dates'' ( 20) dans une même feuille.

Vous auriez vraiment intérêt à enregistrer dans la base une seule ligne par demande et en saisir une seule aussi dans l'UserForm.