Microsoft 365 Validation de cellulle

[Keiko]

Bonjour à tous,

je souhaiterais qu'on puisse écrire dans D156 si et seulement si dans la cellule D!BC8 il est stiuplé "HUAWEI".

Que pouvez-vous me proposer comme solution?

Je ne vois pas comment faire avec la validation de données et une macro.

Help

 

[jm.andryszak]

bonjour
A tester

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

 

[Keiko]

Malheureusement ca ne fonctionne pasz

 

[mapomme]

Bonsoir,

Avec une validation des données en D156 (sans macro) :

 

[natorp]

Bjr le fil

Il faut décocher "Ignorer si vide"

Bonne journée, cordialement, Gérard

 

[Keiko]

Bonsoir,

Avec une validation des données en D156 (sans macro) :
Regarde la pièce jointe 1156323

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?

 

[mapomme]

Re,

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?

Voir le fichier joint.

Le code dans le module de la feuille "Feuil1" :

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" :

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

nota : les lignes BEEP peuvent être supprimées.

 

[Keiko]

Re,



Voir le fichier joint.

Le code dans le module de la feuille "Feuil1" :

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" :

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

nota : les lignes BEEP peuvent être supprimées.

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?

 

[mapomme]

Re,

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?

Chez moi, quand D!BC8 est différent de "HUAWEI", D156 est effacée.
Attention, la cellule D156 n'a pas de validation de données !!!

 

[Keiko]

Re,

Chez moi, quand D!BC8 est différent de "HUAWEI", D156 est effacée.
Attention, la cellule D156 n'a pas de validation de données !!!

 

[Keiko]

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 :/

 

[mapomme]

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 :/

Là je ne comprend pas la remarque . Je ne sais même pas ce que c'est que "un code index dans une colonne".

Fournissez votre classeur en cause? On verra plus clair.

 

[mapomme]

Re,

Il est tard. Bonne-nuit .

 

[Keiko]

Re,

J'ai repris ton fichier pour t'expliquer.

 

[mapomme]

Bonjour @Keiko,

J'ai rajouté du code dans le module de la feuille D.