Microsoft 365 Validation de cellulle

Keiko

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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
 

Pièces jointes

  • Keiko- Validation saisie- v3.xlsm
    22.2 KB · Affichages: 3
Dernière édition:

Discussions similaires

Réponses
2
Affichages
199
Réponses
8
Affichages
363

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale