Discussion :

[herve1501]

Bonjour,

Mon but est de pouvoir reporter la date de pointage saisie dans la feuille courante vers la date d'encaissement de la feuille "Chèques"
mais dans une fonction Worksheet_Change, je rencontre une erreur d'exécution que je ne m'explique pas, la voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Procédure de Pointage des chèques lors du pointage d'une opération CHQ
Private Sub Worksheet_Change(ByVal Target As Range)
    
    'Seule la zone de pointage est concernée
    If Intersect(Target, Range("tb_pointage")) Is Nothing Then Exit Sub
    
    'Cela ne concerne que les opérations "chèque" avec la saisie d'une date valide
    'ATTENTION: remplacer CHQ par la valeur par défaut dans "def_chq"
    If Target.Offset(0, -3) <> "CHQ" Then Exit Sub
    If IsDate(Target) = False Then Exit Sub
    
    'Extraire le numéro de chèque du commentaire
    l_nochq = Target.Offset(0, -2)
    
    'Mettre à jour la date d'encaissemenet du chèque dans la feuille "Chèques"
    Range("chq_nochq").Find(l_nochq).Offset(0, 4) = Target
       
End Sub

Pouvez-vous m'aider à corriger cette ligne de macro ?
Merci de votre aide

Merci

voici le fichier: Pièce jointe 496684

[ARTURO83]

Bonjour,

Il faut spécifier la feuille de destination

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Sheets("Chèques").Range("chq_nochq").Find(l_nochq).Offset(0, 4) = Target

Cdlt

[herve1501]

OK ça marche, grand merci.

Hervé