Formule en VBA qui s'ajoute à chaque ligne
Re,
*Contexte : Ce tableau sera rempli de manière "automatique" avec un remplissage vie une douchette (scan de code barre). Après chaque scan, j'ai une tabulation qui passe à la case suivante
Peux-tu en dire un peu plus sur ton process ?
Sinon, je commente la procédure.
@+
Bonjour Jean-Eric,
Aurais tu besoin de plus d'information d'un point de vue process pour traduire la macro que tu m'as envoyé ?
Ta solution est super intéressante et je souhaiterai pour la reproduire.
Bonjour,
Je t'avais oublié !...
Je reviens vers toi.
Cdlt.
Bonjour,
SI j'ai bien compris ...
Tu peux tester la Version 5 ci-jointe ...
En espèrant que cela t'aide
Bonjour James,
J'ai oublié quelque chose dans mon idée (et oui, on a des weekend).
La formule date + 1,29... n'exclue pas les weekend.
Comment faire en sorte que l'on puisse ne pas prendre en compte le samedi et dimanche ?
Exemple:
On est lundi => mardi 7:00 OK
On est mercredi => jeudi 7:00 OK
On est vendredi => lundi 7:00 et non pas samedi 7:00 NOK
Bonjour,
Une petite modif
' Ajouter +1 à la date du jour MAIS pour Jour Ouvrable et bloquer les heures à (07:00:00)
Target.Offset(0, 7).Value = Application.WorkDay(Date, 1) + 1.2916667En espèrant que cela t'aide
Bonjour,
Une petite modif
' Ajouter +1 à la date du jour MAIS pour Jour Ouvrable et bloquer les heures à (07:00:00) Target.Offset(0, 7).Value = Application.WorkDay(Date, 1) + 1.2916667En espèrant que cela t'aide
Je pense que cela va fonctionner. Cependant, j'ai un autre problème qui viens se poser à moi.
La date ne se fige plus et si je reviens 30 ligne au dessus et que je clic sur la cellule activant la macro, je modifie la date.
Je sais que le problème se situe autour de :
If Not IsEmpty(Target) And Target = "YES" Or Target = "yes" Then
Aurais tu une idée pour figer la date malgré cette condition ?
Private Sub Worksheet_Change(ByVal Target As Range)
' Si Utilisateur choisit plusieurs cellules à la fois ... Sortir
If Target.Count > 1 Then Exit Sub
Dim x As Long
x = Target.Column
Select Case x
Case 2
If Not IsEmpty(Target) And Target = "YES" Or Target = "yes" Then
Target.Offset(0, 6).Value = Application.WorkDay(Date, 1) + 0.2916667
Else
Target.Offset(0, 6).ClearContents
Target.Offset(0, 6).Formula = Now
End If
Case 6
If Not IsEmpty(Target) Then
Target.Offset(0, 1).Formula = "=IFERROR(VALUE(CONCATENATE(" & "E" & Target.Row & "," & "F" & Target.Row & ")),"""")"
Else
Target.Offset(0, 1).ClearContents
End If
End Select
End Sub
Bonjour,
Je t'avais oublié !...
Je reviens vers toi.
Cdlt.
Salut Jean Eric,
J'ai réussi à m'en sortir sur la compréhension du tableau après de nombreuse heure de déchiffrage. J'ai cependant quelques point qui ne sont pas toujours clair.
J'ai besoin de ton aide sur un sujet :
En colonne P : tu as un nombre (1 ou 0)
Lorsque j'ai 1, je voudrais ouvrir une Inputbox en demandant le problème et remplir la colonne Q avec la réponse de l'inputbox.
Si j'ai 0, rien faire
Pourrais tu m'aider ?