Gérer l'affichage UsF selon résultat cellule
Bonjour à tous,
Je bugue sur un petit sujet qui sera sans doute facile à régler pour les experts que vous êtes.
J'ai créer un formulaire de vote dans un classeur.
Dès que les 5 choix (ou plus) dont l'utilisateur à droit sont atteints, j'ai un UsF qui s'affiche pour signaler que la limite est atteinte.
Je ne souhaite pas limiter à 5 choix, ce qui veut dire que si 6, voire 7 ou plus de "OUI" ont été sélectionnés, mon décompte dans [AR10] s'adapte à chaque fois et fait réapparaître également à chaque fois mon message de mise en garde.
Mon code:
Sub Worksheet_Change(ByVal Target As Range)
If [AR10] >= 5 Then
UsF_Auswahlgrenze1.Show
End If
End Sub
Le problème est le suivant :
Je ne veux l'affichage du UsF que lorsque la valeur de cette cellule change.
Je suis obligé de laisser le calcule automatique sur la feuille.
Mais lorsque d'autre cellule sont remplies (Nom, Prénom par exemple) alors que les 5 choix sont faits, à chaque nouvels ajouts, le UsF s'affiche.
Solution cherchée :
Je ne veux l'affichage du UsF que lorsque la cellule [AR10] est modifiée - dès le nombre 5, et donc par aucune autre.
D'avance merci pour votre intérêt.
Cordialement
Willau
Bonjour,
Un essai ...
On combine la cellule modifiée et la valeur ...
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AR10")) Is Nothing Then
If [AR10] >= 5 Then UsF_Auswahlgrenze1.Show
End If
End Subric
Salut Ric
Merci pour ta contribution.
Hélas ça ne fonctionne pas.
Il n'y a pas s'insère dans la cellule, mais un calcul.
Formule : =NB.SI(AI15:AI74;"JA")
Cela me compte automatiquement le nombre de "OUI" ("JA"), et à cinq je veux déclencher mon avertisseur.
Je peux essayer d'envoyer le fichier, mais pour l'heure il contient des infos que je ne peux pas partager. (Stand by)
Merci encore !
Bonjour,
Si on utilise la plage Ai15:Ai74 ... est-ce que ça convient ou ça serait trop contraignant ?
Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("AI15:AI74")) Is Nothing Then
If [AR10] >= 5 Then UsF_Auswahlgrenze1.Show
End If
End Subric