Ouverture userform suivant valeur cellule

débutant -  
 débutant -
Bonjour,

Je débute en Vba, avec les différents forum j'arrive à y voir plus clair mais là, je bloque sur un point.
Je souhaiterai faire apparaître un userform uniquement suivant la valeur d'une cellule que complète l'opérateur.

Exemple: si la cellule A1 vaut W on affiche sinon on affiche pas.

Merci d'avance,

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

code a mettre dans VBA dela feuille de saisie A1: (changer le nom de la forme)

A1=w ou W-------->Userform s'affiche
A1<>w ou W ----->Userform s'efface

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1")) Is Nothing And Target.Count = 1 Then
        If UCase(Target) = "W" Then
            UserForm1.Show vbModeless
        Else
            UserForm1.Hide
        End If
    End If
End Sub


Bonne suite
0
debutant
 
Merci!
0
debutant
 
Merci!
0
débutant
 
Merci pour ta rapidité! Bon après midi!
0