Microsoft 365 Validation de données sous condition

fanfan38

XLDnaute Barbatruc

• 17 Avril 2025

• #2

Bonjour
Ci joint ma solution par macro

A+ François

 

Pièces jointes

• Essai - Copie.xlsm

  21.9 KB · Affichages: 17

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2025

• #3

Bonjour drop91, François,

drop91 à dit:

de préférence sans utiliser de macro.

Cliquez pour agrandir...

Sans macro on ne peut pas avoir en même temps en E2 une liste de validation et une formule.

François :

VB:

If Target.Column <> 4 Or Target.Row = 1 Then Exit Sub

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2025

• #4

Attention également : si l'on copie la plage D2: D3 sur D4 il y a bug...

Il faut une boucle pour traiter les sélections multiples.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2025

• #5

Perso j'utiliserais :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("D2:D" & Rows.Count), UsedRange)
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False 'désactive les évènemebts
With Intersect(Target.EntireRow, Columns(5))
    .Validation.Delete 'RAZ
    .ClearContents
End With
For Each Target In Target 'si entrées multiples
    If Target Like "Non Conformity*" Then
        Target(1, 2).Validation.Add xlValidateList, Formula1:="Niveau1;Niveau2;Niveau3"
    Else
        Target(1, 2) = IIf(IsEmpty(Target), "", "Pas d'action")
    End If
Next Target
Application.EnableEvents = True 'réactive les évènemebts
End Sub

Chez moi la copie de D2: D3 sur D4: D10001 se fait en 1,5 seconde.

Sur D4: D100001 => 24 secondes...

 

Pièces jointes

• Essai - Copie.xlsm

  23.8 KB · Affichages: 11

Dernière édition: 17 Avril 2025

Vote positif 0 Vote négatif

D

drop91

XLDnaute Junior

• 17 Avril 2025

• #6

Merci à tous. Je voulais savoir s’il était possible d’obtenir le résultat sans utiliser de macro, mais j’ai compris que ce n’était pas faisable.
En revanche, lorsqu’une non-conformité est détectée, je souhaitais pouvoir choisir entre trois niveaux (niveau 1, niveau 2 ou niveau 3) dans la colonne E, chacun correspondant à une ligne différente.
Cependant, dans les deux fichiers, les niveaux sont affichés ensemble, ce qui fait qu’au lieu d’avoir trois choix distincts, je n’en ai qu’un seul.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2025

• #7

drop91 à dit:

Cependant, dans les deux fichiers, les niveaux sont affichés ensemble, ce qui fait qu’au lieu d’avoir trois choix distincts, je n’en ai qu’un seul.

Regarde la pièce jointe 1216655

Cliquez pour agrandir...

Je ne comprends pas comment vous obtenez cette image car les 3 niveaux sont dans une liste de validation qui permet de faire le choix !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Avril 2025

• #8

Bon j'ai compris, votre version Excel n'accepte pas le séparateur point-virgule alors utilisez le fichier joint avec :

VB:

        Target(1, 2).Validation.Add xlValidateList, Formula1:="Niveau1,Niveau2,Niveau3"

 

Pièces jointes

• Essai - Copie.xlsm

  23.8 KB · Affichages: 12

Vote positif 0 Vote négatif

Solution

D

drop91

XLDnaute Junior

• 18 Avril 2025

• #9

Bonjour à tous, oui en effet le point virgule ne donnait pas le bon résultat, le fichier est fonctionnel avec la virgule, et je vous remercie tous pour vos réponses, ainsi que la résolution de mon problème.

 

Vote positif 0 Vote négatif