jacky49
XLDnaute Impliqué
Bonjour le forum et meilleurs vœux à tous pour cette nouvelle année
Voila, j'ai ces 2 codes ci-dessous qui fonctionnent mais j'ai un problème lorsque je veux sélectionnées les lignes A6:A40, il m’efface le contenu et me met que des croix dans les cellules.De plus, j'aimearis ajouter une condition ou bien un autre code qui dit de masquer les lignes ou l'adresse mail n'est pas cochée
merci d'avance
jacky
Voila, j'ai ces 2 codes ci-dessous qui fonctionnent mais j'ai un problème lorsque je veux sélectionnées les lignes A6:A40, il m’efface le contenu et me met que des croix dans les cellules.De plus, j'aimearis ajouter une condition ou bien un autre code qui dit de masquer les lignes ou l'adresse mail n'est pas cochée
merci d'avance
jacky
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("j6:j100")) Is Nothing Then Target.Offset = "X"
If Not Intersect(Target, Range("k6:k100")) Is Nothing Then
For j = 6 To Feuil1.Range("k65536").End(xlUp).Row
If Target.Offset <> "" Then Target.Offset(i, -1).ClearContents
Next j
End If
End Sub
Private Sub CheckBox2_Click()
Dim ligne$
For i = 6 To 100
If CheckBox2.Value = True And Cells(i, 11).Value <> "" Then
Cells(i, 10).Value = "X"
Else
Exit For
End If
If i < 6 Then Exit Sub
Next i
If CheckBox2.Value = False Then Range("j6:j100").ClearContents
End Sub