Change SelectionChange

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

J'ai une cellule gérée par Change qui met à jour une cellule de SelectionChange.D16

Comment écrire le code pour que la procédure ne boucle pas ?

Merci

Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Application.Intersect(Target, Range("D16")) Is Nothing Then
            Range("B7").Value = Range("D16").Value
        End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rng = Target.Row
col = Target.Column
        If Not Application.Intersect(Target, Range("A19:DZ19")) Is Nothing Then
            Range("D16").Value = Cells(Rng, col).Value
            Range("B7").Value = Cells(Rng, col).Value
        End If
End Sub

Bonjour,

Je ne suis pas sûr de comprendre l'objecif final ...

Cependant, pour éviter que le serpent ne se morde ....

tu as besoin en début de code de l'instruction :

Application.EnableEvents = False

et en fin de code ... retour à la normale :

Application.EnableEvents = True

Merci bien, je teste à l'instant, Je reviens ......

Je reviens satisfaite, Je retiens cette écriture qui me servira, j'en suis persuadée

A + Merci encore et à bientôt sur le site

Le problème posé il y a quelques jours n'a put être pas de solution !

https://forum.excel-pratique.com/post319241.html#p319241

an.pi a écrit :

Je reviens ......

Je reviens satisfaite ...

Tu vas me faire rougir ...

Content que cela fonctionne ...!!!

A +

J'aime cet humour, mais: ......j'ai ....66 ans ....!!!!!

an.pi a écrit :

J'aime cet humour, mais: ......j'ai ....66 ans ....!!!!!

Et du peps à revendre ...!!!