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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de groupe de 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
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" <stephol@prodiag.fr> a écrit dans le message de groupe de discussion :
4b95faf1$0$17895$ba4acef3@reader.news.orange.fr...
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.
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" a écrit dans le message de groupe de 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
STEPH B
Merci ca marche parfaitement
"michdenis" a écrit dans le message de news:
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" a écrit dans le message de groupe de 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
Merci ca marche parfaitement
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
6118050B-5649-4CC0-B102-67B88A4C8893@microsoft.com...
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" <stephol@prodiag.fr> a écrit dans le message de groupe de
discussion :
4b95faf1$0$17895$ba4acef3@reader.news.orange.fr...
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.
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" a écrit dans le message de groupe de 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.