Bonjour à toutes et à tous,
J'ai un souci sur un code qui devrait s'exécuter au changement de valeur de ma cellule mais qui s'exécute aussi juste quand je clique sur la cellule.
c'est cette partie :
je pense que dans ce code global, ce n'est pas sa place.
j'ai tenté de l'intégrer au code suivant en remplaçant Target pas R :
Mais à cet emplacement, il ne s'exécute pas.
Auriez-vous la solution car tous mes essais n'ont pas abouti.
Avec mes remerciements,
Amicalement,
Lionel,
J'ai un souci sur un code qui devrait s'exécuter au changement de valeur de ma cellule mais qui s'exécute aussi juste quand je clique sur la cellule.
Code:
Private Sub Worksheet_SelectionChange(ByVal R As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Not Intersect(R, Range("j7:j20000")) Is Nothing And R.Count = 1 Then 'présent(s) au RdV
PratiqueSuivisAppels01.Show
End If
If Not Intersect(R, Range("p7:p20000")) Is Nothing And R.Count = 1 Then 'présent(s) au RdV
PratiqueSuivisAppels02.Show
If [R] = "RdV Fait" Then
Range(R.Offset(0, -9), R.Offset(0, 1)).Select
Call CopieTelRdV
End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
c'est cette partie :
Code:
If [R] = "RdV Fait" Then
Range(R.Offset(0, -9), R.Offset(0, 1)).Select
Call CopieTelRdV
End If
je pense que dans ce code global, ce n'est pas sa place.
j'ai tenté de l'intégrer au code suivant en remplaçant Target pas R :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False
If Not Intersect(Target, Range("I3")) Is Nothing Then
Target.Offset(0, 0).Select
Call Telephone
End If
If Not Intersect(Target, Range("i7:i20000")) Is Nothing Then
ActiveSheet.Unprotect Password:=""
Target.Offset(0, 2) = Now()
End If
If Not Intersect(Target, Range("l7:l20000")) Is Nothing Then
ActiveSheet.Unprotect Password:=""
Target.Offset(0, -7) = Now()
Target.Offset(0, 4) = ""
Target.Offset(0, 8) = ""
Target.Offset(0, 9) = ""
End If
end sub
Mais à cet emplacement, il ne s'exécute pas.
Auriez-vous la solution car tous mes essais n'ont pas abouti.
Avec mes remerciements,
Amicalement,
Lionel,
Dernière édition: