Modification macro liste validation de Modeste

  • Initiateur de la discussion Initiateur de la discussion ZABOU
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ZABOU

XLDnaute Nouveau
Bonjour à tous

Je repris l'exemple du fichier sur lequel Modeste a mis en place une liste de validation évolutive sans doublon par macro.

Mon problème réside dans le fait que je ne peux dire à quel moment les données seront inscrites dans la colonne S de la feuille Base.
Cette colonne S alimentant elle-même la liste sans doublon de la feuille Produits - colonne H.

Un message d'erreur apparait sur la feuille Validation dès l'instant où la colonne S est vide.
Je sais que c'est normal puisqu'elle s'appuie justement sur les données figurant dans celle-ci.

Pourriez-vous me dire s'il est possible de prévoir dans la macro elle-même le cas où il n'y aurait pas encore de données en colonne S ?

Merci à tous
 

Pièces jointes

Re : Modification macro liste validation de Modeste

Bonjour ZABOU

modifier macro comme suit

Code:
Private Sub Worksheet_Activate()
Set b = Sheets("BASE")
Set liste = CreateObject("scripting.dictionary")
With Sheets("PRODUITS")
        .[H2].Resize(Application.CountA(.[H:H]), 1).Clear
        For lig = 2 To b.Cells(Rows.Count, 19).End(xlUp).Row
            If b.Cells(lig, 19) <> "" Then liste(b.Cells(lig, 19).Value) = ""
        Next lig
        If liste.Count <> 0 Then .[H2].Resize(liste.Count, 1) = Application.Transpose(liste.keys)
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
12
Affichages
958
Retour