Petit Problème avec ces codes

[jacky49]

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

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

 

[kjin]

Re : Petit Problème avec ces codes

Bonsoir,
Très sincèrement et malgré ma bonne volonté, je pense que si tu expliquais clairement le fonctionnement de ce fichier ....
Exemple

If Not Intersect(Target, Range("j6:j100")) Is Nothing Then Target.Offset = "X"

😕😕
A+
kjin

 

[jacky49]

Re : Petit Problème avec ces codes

Bonsoir le forum, Kjin,
en fait la checkbox 2 sert à cocher la colonne j pour sélectionner les adresses mail pour envoyer le message et le fichier.
Le problème qui se pose, c'est lorsque je sélectionne le tableau de A5 à L40 par exemple, cela me met des croix dans toute les cellules et mes données sont perdues, et en fait quand je rajoutes une personne et qu'ensuite je veux trier pour ranger par catégorie , je ne peux pas car cela me met plein de croix ou bien, je met ' devant le code et la j' y arrive mais comme le fichier servira à d'autres, je cherche comment éviter cela
merci de votre aide
ce serait plutôt dans ce code ci-dessous qu'il y a le problème, pourtant c'est bien mis colonne j et K dans le 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

 

[kjin]

Re : Petit Problème avec ces codes

Bonjour,
Je ne vois aucune explication claire du fonctionnement...
Désolé
A+
kjin

 

[néné06]

Re : Petit Problème avec ces codes

Bonjour jacky49, Kjin,

A première vue, l'erreur semble provenir de ta routine "Worksheet_SelectionChange(ByVal Target As Range)".
A chaque changement de cellules, cette routine se s'exécute à nouveau.
Gérer le problème avec : Application.EnableEvents=false".

A+

 

[kjin]

Re : Petit Problème avec ces codes

Bonjour,

A première vue...

A la dixième aussi...et je n'ai toujours pas compris le fonctionnement de ce fichier
A+
kjin