BONJOUR à t outes et à tous
j'ai il y quelques jours,récupéré sur le forum le code( ci-dessous)et j'essais aujourd'hui de l'adapter à l'un de mes tableaux qui comprends 12 colonnes(A,K)
j'applique Cette procédure au colonnes B et C j'aimerais pouvoir en plus y intégrer les colonnes J et K qui ne sont pas contigues (où là aussi je ne rentre que des 1 ou "" ),j'ai essayé de créer une référence à une Zone (Union (Zone1colonne(B:C),(Zone2Colonnes(J:k)) sans y parvenir
je m'addresse donc à vous les excellant(es) (s)
Pourriez vous m'indiquer la solution et où l'insérer dans le code actuel
MERCI d'avance pour la solution
Option Explicit
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("B3:C20")) Is Nothing Then
If Target.Value = "" Then
Target.Value = 1
Else
Target.Value = ""
End If
Range("M1").Select
End If
End Sub
Jean Marie A+++