Cellule target
Résolu
lagodille
Messages postés
99
Date d'inscription
Statut
Membre
Dernière intervention
-
lagodille Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
lagodille Messages postés 99 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Cellule target
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
- Si cellule contient texte alors ✓ - Forum Excel
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 ?
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 mettre
pour que ça marche dans tous les cas
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
ci joint mon fichier http://www.cijoint.fr/cij8626321735011.xls
si l'on essaye de supprimer la croix rouge ca bug
merci