cellule et userform

Le
STEPH B
Bonjour,

J'ai une cellule E91 dans une feuille nommée <<email_DO>>, j'aimerais que
lorsque cette cellule est égale à XXX, qu'un userform s'ouvre
automatiquement.

est ce possible?

Merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #21347661
Bonjour,

Dans le module feuille où l'action se déroule, utilise l'un des
2 événements suivants pour insérer quelques lignes de code :

Si E91 contient une formule :
'--------------------------
Private Sub Worksheet_Calculate()
If Range("E91").Value = "XXX" Then
Userform1.Show
End If
End Sub
'--------------------------

Si la valeur E91 est saisie manuellement :
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E91").Value = "XXX" Then
Userform1.Show
End If
End Sub
'--------------------------




"STEPH B" 4b95faf1$0$17895$
Bonjour,

J'ai une cellule E91 dans une feuille nommée <<email_DO>>, j'aimerais que
lorsque cette cellule est égale à XXX, qu'un userform s'ouvre
automatiquement.

est ce possible?

Merci d'avance
STEPH B
Le #21398211
Merci ca marche parfaitement

"michdenis"
Bonjour,

Dans le module feuille où l'action se déroule, utilise l'un des
2 événements suivants pour insérer quelques lignes de code :

Si E91 contient une formule :
'--------------------------
Private Sub Worksheet_Calculate()
If Range("E91").Value = "XXX" Then
Userform1.Show
End If
End Sub
'--------------------------

Si la valeur E91 est saisie manuellement :
'--------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E91").Value = "XXX" Then
Userform1.Show
End If
End Sub
'--------------------------




"STEPH B" discussion :
4b95faf1$0$17895$
Bonjour,

J'ai une cellule E91 dans une feuille nommée <<email_DO>>, j'aimerais que
lorsque cette cellule est égale à XXX, qu'un userform s'ouvre
automatiquement.

est ce possible?

Merci d'avance

Publicité
Poster une réponse
Anonyme