Cellule target

Résolu/Fermé
lagodille Messages postés 99 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 6 mars 2008 - 16 déc. 2007 à 23:38
lagodille Messages postés 99 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 6 mars 2008 - 17 déc. 2007 à 23:58
Bonjour,

Si je place une croix sur une des cellules citées ci desous j'efface de part et d'autre le contenu des cellules.
Seulement si après je désire supprimer cette croix alors ca bug en ligne 3 Pourquoi ?


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Union([I11], [I14], [I17], [I20], [I23], [I26], [I41], [I44], [I47], [I50], [I53], [I56])) Is Nothing Then Exit Sub

If Target.Value = "X" Then

Target.Offset(0, -4).Resize(3, 4).ClearContents
Target.Offset(0, 1).Resize(3, 4).ClearContents

End If

End Sub


MERCI

3 réponses

Bonjour lagodille,

j'ai recopié ton sub chez moi et il marche.
Peux-tu préciser le "ca bug en ligne 3" ? Quel message d'erreur ?
0
lagodille Messages postés 99 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 6 mars 2008 4
17 déc. 2007 à 21:44
bonsoir
ci joint mon fichier http://www.cijoint.fr/cij8626321735011.xls
si l'on essaye de supprimer la croix rouge ca bug
merci
0
Bonsoir

Ne me demande pas pourquoi, mais quand tu insères un X ton target est constitué d'une seule cellule, alors que quand tu l'effaces, c'est une plage de 3 cellules ... Donc target.value ne veut plus rien dire

Il suffit de mettre
    If Target.Offset(0, 0).Value = "X" Then

pour que ça marche dans tous les cas
0
lagodille Messages postés 99 Date d'inscription vendredi 16 novembre 2007 Statut Membre Dernière intervention 6 mars 2008 4
17 déc. 2007 à 23:58
merci pour ton aide je le saurai pour la prochaine fois
encore merci

si toute fois tu pouvais me renseigner sur un post que j'ai posé sur "mot de passe a partir d'une cellule"
apparemment personne n'est capable d'y répondre et je ne sais pas pourquoi ?????

encore merci
0