Salut Naël Bureautique et Gestion je suis un nouveau abonné et j'appréci ce que vous faites je me suis inspiré de votre code pour avoir ce qui suit qu'en dites vous !? Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C12")) Is Nothing Then Range("D12:E12").Value = "" Else If Not Intersect(Target, Range("D12")) Is Nothing Then Range("E12").Value = "" End If End If End Sub les listes se mettent a blanc au changement au lieu du click
🤓Si vous souhaitez plus de vidéos cliquer sur : ruclips.net/p/PLTd14btLGHCTKtAG6r5B79nDE1uYkRjvP
Salut Naël Bureautique et Gestion
je suis un nouveau abonné et j'appréci ce que vous faites
je me suis inspiré de votre code pour avoir ce qui suit
qu'en dites vous !?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C12")) Is Nothing Then
Range("D12:E12").Value = ""
Else
If Not Intersect(Target, Range("D12")) Is Nothing Then
Range("E12").Value = ""
End If
End If
End Sub
les listes se mettent a blanc au changement au lieu du click
Le plus simple est de tester votre code. Si vous pouvez me faire retour
Merci bien pour le code vba ;)
Avec plaisir 😁