Re : Changer la date d'un DTPicker automatiquement
Bonjour Bebere
S = Application.WorksheetFunction.Sum(Range("E9:E9"))
sur cette ligne j'avais une erreur ("E9:E36") une étourderie, mais en fait je ne mettais les instructions dans la programmation du bouton de L'UserForm1 sans succès. J'ai changé mon fusil d'épaule et mis les instructions sur la feuille concerné et mon bricolage fonctionne et pour la durée de la tâche, et pour la date du DTPicker1 ; Le DTPicker21 est sur la feuille programme des travaux et sert à donner la date du début de chantier
voilà mon code :
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
On Error GoTo ETIQUETTE
If Not Intersect(Target, Range("D5
36")) Is Nothing Then
UserForm1.Show
UserForm1.Durée.Value = Range("D36").End(xlUp).Offset(0, 1).Value
Range("D36").End(xlUp).Offset(-1, 136).Select
ActiveCell.End(xlToLeft).Select
UserForm1.DTPicker1.Value = ActiveCell.End(xlUp).Value
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
ETIQUETTE: MsgBox "Changer la date manuellement & vbokonly"
End Sub
C'est du bricolage avec des offset dans tout les sens pour aller chercher la date en ligne 5 de ma feuille, par rapport à la dernière ligne renseignée de la plage G6
J36. Il y a certainement plus simple avec une boucle pour rechercher la dernière cellule renseigner de la plage mais comme je ne sais pas faire je bricole avec mes maigres connaissances.
Pour envoyer le fichier ça devient compliquer car il dépasse très largement les 3MO
Si vous avez une idée pour simplifié ma petite routine, je suis preneur car je ne demande qu'à apprendre
Encore merci pour votre aide
Didier