Cellule target
Résolu
lagodille
Messages postés
99
Statut
Membre
-
lagodille Messages postés 99 Statut Membre -
lagodille Messages postés 99 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 6.0
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 ? -
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 mettreIf Target.Offset(0, 0).Value = "X" Then
pour que ça marche dans tous les cas -
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
