T
Tommy
Guest
Salut a tous !
Voici un autre probleme pour vous !
J'entre des code en A6:A123. Une fois entrer, l'heure se log automatiquement dans la case suivante (B6:B123) avec ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range('Waybill'), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = 'dd Mmm yyyy hh:mm:ss'
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
ThisWorkbook.Save
End Sub
Ensuite le workbook se sauvegarde. Ce que je veux ajouter aussi, c'est qu'excel pose la question 'Combiens de boite', tout de suite apres avoir entrer une donnée en A6:A123 avec une possibilité pour l'utilisateur d'y inscrire un nombre (exemple : 10) et qu'ensuite, une 2ieme question apparait 'Sur combiens' encore la avec la possibilité d'inscrire un nombre (exemple : 15) pour ensuite avoir ces 2 nombre entré dans la case correspondante E6:E123. Ce qui donnerais comme réponse 10/15. Et est-il possible d'avoir par defaut le chiffre 1 d'inscript dans le champs de réponse (le champs ou on peut y inscrire le nombre de la question)?
J'espere etre un peu clair, car je ne suis pas le roi de l'expliquation !
Merci encore a vous.
Voici un autre probleme pour vous !
J'entre des code en A6:A123. Une fois entrer, l'heure se log automatiquement dans la case suivante (B6:B123) avec ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range('Waybill'), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = 'dd Mmm yyyy hh:mm:ss'
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
ThisWorkbook.Save
End Sub
Ensuite le workbook se sauvegarde. Ce que je veux ajouter aussi, c'est qu'excel pose la question 'Combiens de boite', tout de suite apres avoir entrer une donnée en A6:A123 avec une possibilité pour l'utilisateur d'y inscrire un nombre (exemple : 10) et qu'ensuite, une 2ieme question apparait 'Sur combiens' encore la avec la possibilité d'inscrire un nombre (exemple : 15) pour ensuite avoir ces 2 nombre entré dans la case correspondante E6:E123. Ce qui donnerais comme réponse 10/15. Et est-il possible d'avoir par defaut le chiffre 1 d'inscript dans le champs de réponse (le champs ou on peut y inscrire le nombre de la question)?
J'espere etre un peu clair, car je ne suis pas le roi de l'expliquation !
Merci encore a vous.