Discussion :

[Beehappy]

Bonjour les développeurs je reviens vers vous à cause d'un problème
quand j'exécute ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
'Pour Non
If Target = "Non" Then Target.Offset(0, 2).ClearContents
If Target = "Non" Then Target.Offset(0, 3).ClearContents
If Target = "Non" Then Target.Offset(0, 6).ClearContents
'Pour VIDE
If Target = "" Then Target.Offset(0, 2).ClearContents
If Target = "" Then Target.Offset(0, 3).ClearContents
If Target = "" Then Target.Offset(0, 6).ClearContents
Exit sub 
End Sub

EXCEL SE bloque , se FERME et laisse ce message d'erreur : Erreur d'exécution -2147417848 (80010108) La méthode Clearcontents de l'objet Range a échoué"

[weetoz]

Salut, essais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
If Target.value = "Non" Then 
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
Target.Offset(0, 6).ClearContents
end if
'Pour VIDE
If Target.value = "" Then 
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
Target.Offset(0, 6).ClearContents
end if
Exit sub
End Sub

Après je pencherais pour "Target.Offset(x, y).value = ""

[BENNASR]

bonjour

la première partie est logique, en effet avec Worksheet_Change si tu saisie non en colonne A tu efface l'équivalent en colonne D ou autre
ce que je comprends pas la deuxiemme partie : si cellule est vide !!
et oui ça peut planter parce que tu n'indique pas ou s'applique la règle et comme ça le code tourne en vide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)) Is Nothing Then
If Target = "Non" Then
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
Target.Offset(0, 6).ClearContents
End If
'Pour VIDE
If Target = "" Then
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
Target.Offset(0, 6).ClearContents
End If
End If
End Sub

revenir avec explication de la deuxieme partie du code

[BENNASR]

plus simple :
ça suppose pour la deuxième partie du code que tu as des données en A et qd tu efface une donnée , l'équivalent en B s’efface aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then
If Target = "Non" Then
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
Target.Offset(0, 6).ClearContents
End If
'Pour VIDE
If Target = "" Then
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
Target.Offset(0, 6).ClearContents
End If
End If
End Sub

[Beehappy]

Bennasr ce que je veux dire par vide est que si l'utilisateur efface les données en colonne C et la colonne devient VIDE , les données en colonnes E, F et I s'effacent automatiquement .
Et en fait votre code et celui de weetoz fonctionnent parfaitement pour le "non" et les autres valeurs que j'ai . Mais rien ne se passe pour le vide.
Est ce qu'il y a une autre manière de dire cellule vide au développeur à part "" ??

[BENNASR]

voir ma dernière proposition (4)

[Beehappy]

La proposition est suuuuper MMMMEERCI !
J'ai une AUTRE PETITE QUESTION : ce code s'exécute quand la personne fait entrer "Non" si elle saisit "non" ou "NON" le code ne s'applique pas. Comment je peux faire pour le dire au développeur ?

[Pierre Fauconnier]

Salut.

Mon grain de sel...

Comme Philippe le signale, il faut désactiver l'écoute des évènements mais il faut alors gérer l'erreur avec un On Error Resume Next ou On Error Goto, car si une erreur survient entre la désactivation et la réactivation de l'écoute des évènements, le code sortira de la procédure pour rendre la main à Excel sans réactiver l'écoute.

[Beehappy]

Ceci était mon code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(3)) Is Nothing Then
 
'Pour non
If Target = "Non" Or Target = "NON" Or Target = "non" Then
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
End If
 
'Pour vide
If Target = "" Then
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
 
    End If

Si j'ai bien compris je dois maintenant faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
rivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(3)) Is Nothing Then
 
'Pour non
If LCase(Target.Value) = "non" Then
Target.Offset(0, 2).ClearContents
Target.Offset(0, 3).ClearContents
End if

C'est ça ?