cellule target Résolu/Fermé

Question

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

le père · Answer

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 ?

le père · Answer

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

lagodille · Answer

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

Cellule target

3 réponses

Discussions similaires