matthieumagl
XLDnaute Nouveau
Bonjour,
Je mets ci-joint un fichier.
Je cherche, à partir de l'événement WORKSHEET_CHANGE à obtenir dans la cellule D5 la dernière modification entrée dans les cellules de ma plage B1:B4.
Lorsque je saisie directement à la main mes chiffres dans ma plage B1:B4, pas de problème: ça fonctionne !
(feuille1)
Par contre, lorsque la saisie est indirecte, c'est-à-dire lorsqu’il y a des formules dans B1:B4, cela ne fonctionne plus.
(feuille2)
Et je n'arrive pas à savoir pourquoi?
En plus, ma TARGET de type Range est bien en ByVal
Auriez vous une explication s'il vous plait? Comment y arriver?
PS: Je fais ce petit exercice pour ensuite récupérer une seule valeur à partir de plusieurs TCD qui "bougent" avec des filtres.
Cordialement,
Merci d'avance pour votre aide,
Matthieu
Je mets ci-joint un fichier.
Je cherche, à partir de l'événement WORKSHEET_CHANGE à obtenir dans la cellule D5 la dernière modification entrée dans les cellules de ma plage B1:B4.
Lorsque je saisie directement à la main mes chiffres dans ma plage B1:B4, pas de problème: ça fonctionne !
(feuille1)
Par contre, lorsque la saisie est indirecte, c'est-à-dire lorsqu’il y a des formules dans B1:B4, cela ne fonctionne plus.
(feuille2)
Et je n'arrive pas à savoir pourquoi?
En plus, ma TARGET de type Range est bien en ByVal
Auriez vous une explication s'il vous plait? Comment y arriver?
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Range("D5") = Target.Value
Else
If Target.Address = "$B$2" Then
Range("D5") = Target.Value
Else
If Target.Address = "$B$3" Then
Range("D5") = Target.Value
Else
If Target.Address = "$B$4" Then
Range("D5") = Target.Value
End If
End If
End If
End If
End Sub
PS: Je fais ce petit exercice pour ensuite récupérer une seule valeur à partir de plusieurs TCD qui "bougent" avec des filtres.
Cordialement,
Merci d'avance pour votre aide,
Matthieu