changer et figer date selon valeur cellule

wrap food à dit:

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

Cliquez pour agrandir...

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

wrap food à dit:

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

Cliquez pour agrandir...

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

wrap food à dit:

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.

Cliquez pour agrandir...