Afficher UserForm selon résultat dans différentes cellules

Bonjour à tous

J'ai un UsF d'alerte qui s'affiche quand ma valeur dans "AC12" est égale à 1.

Private Sub Worksheet_Calculate()

If [AC12] = 1 Then

UsF_Red_A1.Show

End If

End Sub

J'aimerais savoir quelle serait la formule pour identifier ce fameux "1" sur plusieurs cellules ?

genre: AC12 et AC15 et AT12 et AT15 et AT 18 etc.

Enfin, est-il possible de forcer l'affichage du UsF en premier plan devant toutes les fenêtres des autres applications windows ?

D'avance merci pour votre aide !

J'avance de manière fulgurante dans mes travaux grace à vos précieuses contributions.

Codialement

Willau

Bonjour,

Peut-être quelque chose comme ça :

For Each cell In Range("AC12,AC15,AT12,AT15,AT18")
    If cell.Value = 1 Then
        UsF_Red_A1.Show
    End If
Next cell

EDIT :

Quelle est la plage de donnée sur laquelle ton contrôle doit se faire ?

Bonjour SlmShady69

Merci pour ta réponse.

J'ai fait un essai hélas infructueux.

Dans ma macro:

Private Sub Worksheet_Calculate()

If [AC12] = 1 Then

UsF_Red_A1.Show

End If

End Sub

Cela fonctionne bien pour la cellule AC12

J'aimerais pouvoir ajouter une liste de cellule afin que lorsqu'un nouveau calcul automatique se produit, la macro soit lancée.

Avec ton code, ça semble ne pas fonctionner.

Merci quand même

Willau

Essaye comme ça :

Private Sub Worksheet_Calculate()
With ThisWorksheet
For Each cell In Range("AC12,AC15,AT12,AT15,AT18")
    If cell.Value = 1 Then
        UsF_Red_A1.Show
    End If
Next cell
End With
End Sub

En mettant ton code dans la feuille concernée