aide macro, incrémentation date

[TANGHAM]

Bonjour

je souhaite que lorsqu'il y a une saisie dans une case de la colonne numéro, la date s'incrémente directement dans la case date de la même ligne

Ca me parait pas très compliqué mais je me remets dans le VBA et je rame

Merci de votre aide

PS si vous pouvez mettre le code dans votre réponse car je ne peux pas télécharger les fichiers du boulot

 

[mth]

Re : aide macro, incrémentation date

Bonjour,

Peut-être avec ce code, dans ThisWorkbook:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, ActiveSheet.Range("B:B")) Is Nothing Then
        Range("A" & Target.Row) = "=Today()"
    End If
End Sub

Bon après-midi,

mth

 

[mth]

Re : aide macro, incrémentation date

re ....

🙁 bêtise de ma part ....

merci à Patrick pour son message, qui m'a fait remarquer mon erreur.
Afin de corriger je vous livre sa remarque, avec toutes mes excuses pour ne pas avoir réfléchi plus loin que le bout de mon nez ...

Citation:
 
La piste que vous indiquez comporte une fonction dynamique qui, lorsque la date change, va automatiquement affecter la valeur de la cellule la contenant.
Pour éviter ce problème ne vaut-il pas mieux faire
Code :
---------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, ActiveSheet.Range("B:B")) Is Nothing Then
Range("A" & Target.Row) = Format(Now, "dd/mm/yyyy")
End If
End Sub

Encore merci Patrick et bonne soirée à tous,

mth

Edit: coucou bh2 🙂 bises et merci également

 

[Cousinhub]

Re : aide macro, incrémentation date

Bonsoir,

un petit complément.....

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Application.Intersect(Target, ActiveSheet.Range("B1:B65000")) Is Nothing Then
        Target.Offset(0, -1).Value = IIf(Target = "", "", Date)
    End If
End If
End Sub

Bonne soirée

 

[TANGHAM]

Re : aide macro, incrémentation date

Bonjour

la dernière proposition de bhbh marche parfaitement
maintenant, commen faire pour que mon bouton "traité" fonctionne dès que l'on clique dans une case de la colonne "date de traitement" et qu'il ait le même effet?

par ailleurs, puis je empêcher la saisie dans ces cases gérées par les macros?
car quand je les verrouille, ça lance le déboguage dès que j'utilise les macros

Ou au pire que le bouton "traité" descendent en même temps que l'on descend dans le tableau

 

[Pierrot93]

Re : aide macro, incrémentation date

Bonjour à tous,

si j'ai bien compris, rajoute la procédure ci-dessous dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("D2:D65536")) Is Nothing Then
        Target.Value = Date
    End If
End Sub

bon après midi
@+

 

[TANGHAM]

Re : aide macro, incrémentation date

Bonjour je me permets un petit UP car mon problème n'est pas encore réglé

Pour la question du bouton, j'ai figé le haut du tableau et ça règle en partie le problème même si ça n'est pas top

Par contre pour mon problème de colonne à protéger je n'y arrive pas

Merci de votre aide

Bonjour

la dernière proposition de bhbh marche parfaitement
maintenant, commen faire pour que mon bouton "traité" fonctionne dès que l'on clique dans une case de la colonne "date de traitement" et qu'il ait le même effet?

par ailleurs, puis je empêcher la saisie dans ces cases gérées par les macros?
car quand je les verrouille, ça lance le déboguage dès que j'utilise les macros

Ou au pire que le bouton "traité" descendent en même temps que l'on descend dans le tableau