Option Explicit
Dim Target_Old
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b3")) Is Nothing And UCase(Range("d3")) = "HUAWEI" Then
Target_Old = Target
ElseIf Not Intersect(Target, Range("b3")) Is Nothing And UCase(Range("d3")) <> "HUAWEI" Then
Target = Target_Old
End If
End Sub
Super, c'est tout bête mais ca marche super bien
Le souci est qu'ils peuvent quand même noter dedans si avant ils ont rempli HUAWEI.
Car ca ne revient pas en arrière.
Quelqu'un aurait la solution en macro?
Le souci est qu'ils peuvent quand même noter dedans si avant ils ont rempli HUAWEI.
Car ca ne revient pas en arrière.
Quelqu'un aurait la solution en macro?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d156")) Is Nothing Then
If LCase(Sheets("d").Range("bc8")) <> LCase("HUAWEI") Then
Application.EnableEvents = False
Range("d156").ClearContents
Application.EnableEvents = True
Beep
End If
End If
End Sub
Le code dans le module de la feuille "D" :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("bc8")) Is Nothing Then
If LCase(Range("bc8")) <> LCase("HUAWEI") Then
Application.EnableEvents = False
Sheets("Feuil1").Range("d156").ClearContents
Application.EnableEvents = True
Beep
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d156")) Is Nothing Then
If LCase(Sheets("d").Range("bc8")) <> LCase("HUAWEI") Then
Application.EnableEvents = False
Range("d156").ClearContents
Application.EnableEvents = True
Beep
End If
End If
End Sub
Le code dans le module de la feuille "D" :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("bc8")) Is Nothing Then
If LCase(Range("bc8")) <> LCase("HUAWEI") Then
Application.EnableEvents = False
Sheets("Feuil1").Range("d156").ClearContents
Application.EnableEvents = True
Beep
End If
End If
End Sub
Cela marche super aussi.
Mais il y a encore un mais et je pensais que ca fonctionnerait avec le code.
Mais si HUAWEI dans D!BC8 est bien encodé on peut remplir la cellule D156.
Mais si je viens à effacer D!BC8 ou changer de produit il n'efface pas D156.
Aurais tu une solution?
Mais il y a encore un mais et je pensais que ca fonctionnerait avec le code.
Mais si HUAWEI dans D!BC8 est bien encodé on peut remplir la cellule D156.
Mais si je viens à effacer D!BC8 ou changer de produit il n'efface pas D156.
Aurais tu une solution?
Je viens de voir.
Comme la cellule Huawei est une cellule ou il y a déja un code index dans une colonne.
Ben ca ne prend pas en compte la réponse comme si on ne l'avait pas érit...
Alors que la réponse change :/
Je viens de voir.
Comme la cellule Huawei est une cellule ou il y a déja un code index dans une colonne.
Ben ca ne prend pas en compte la réponse comme si on ne l'avait pas érit...
Alors que la réponse change :/