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 🙂

 

[Keiko]

Bonjour @Keiko🙂,

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

Un très grand merci !
Ca fonctionne super bien !

 

[Keiko]

Bonjour @Keiko🙂,

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

Bonjour @Keiko🙂,

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

J'ai encore une petite question, comme je peux faire pour faire la même chose mais je veux multiplier le choix.
la je disais si HUAWEI ok tu peux écrire ou si il n'est pas la tu effaces.
Mnt je dis, HUWAEI, SMA et Solar Edge et cela dans la même case, comme je devrais faire?
J'ai essayé les "HUAWEI", " SMA", "SOLAR EDGE" mais ca va pas :/

 

[mapomme]

Bonjour @Keiko 😉,

Pour être plus pratique, j'ai ajouté une feuille "Data".
Dans la première colonne, on indique les articles qui autorisent la saisie sur la feuille Feuil1. On peut en ajouter ou en modifier à la volée.

J'ai ajouté un module Module1 dans lequel se trouve la procédure VerificationSaisie() qui va autoriser la saisie ou bien l'effacement de D156 de la feuille "Feuil1" selon que la cellule BC8 contient ou non une valeur autorisant la saisie.

Ensuite, 4 procédures évènementielles lance VerificationSaisie() quand elles sont exécutées.

• dans le module de la feuille "Feuil1" : Private Sub Worksheet_Change
• dans le module de la feuille "D" : Private Sub Worksheet_Calculate et Private Sub Worksheet_Change
• dans le module de la feuille "Data" : Private Sub Worksheet_Change

Code de VerificationSaisie() dans Module1 :

Sub VerificationSaisie()
Dim ligne As Long
   ligne = Application.IfError(Application.Match(Sheets("d").Range("bc8"), Sheets("DATA").Columns("a"), 0), 0)
   If ligne = 0 Then
      Application.EnableEvents = False
      Sheets("Feuil1").Range("d156").ClearContents
      Application.EnableEvents = True
      Beep
   End If
End Sub