Bonjours à tous,
Voila, je n'arrive pas a controler la saisie dans une colone, je mexplique:
dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou
oui ou o ou O mon message apparait automatiquement.
Merci d'avance.
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
Pounet95
Bonjour, Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case Target Case "Oui", "O", "OUI", "o", "OUi", "oui" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" a écrit dans le message de news: uBpFYRW$
Bonjours à tous, Voila, je n'arrive pas a controler la saisie dans une colone, je mexplique: dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou oui ou o ou O mon message apparait automatiquement. Merci d'avance.
Bonjour,
Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub
Select Case Target
Case "Oui", "O", "OUI", "o", "OUi", "oui"
MsgBox " Mon message"
Case Else
'ne rien faire ou faire autre chose
End Select
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" <AZZE@Az.AZ> a écrit dans le message de news:
uBpFYRW$EHA.2076@TK2MSFTNGP15.phx.gbl...
Bonjours à tous,
Voila, je n'arrive pas a controler la saisie dans une colone, je
mexplique:
dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou
oui ou o ou O mon message apparait automatiquement.
Merci d'avance.
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case Target Case "Oui", "O", "OUI", "o", "OUi", "oui" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" a écrit dans le message de news: uBpFYRW$
Bonjours à tous, Voila, je n'arrive pas a controler la saisie dans une colone, je mexplique: dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou oui ou o ou O mon message apparait automatiquement. Merci d'avance.
azza
Un tres grand merci pour ton aide. PS: tu porte un jolie pseudo :)
"Pounet95" a écrit dans le message news: #8$OBYW$
Bonjour, Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case Target Case "Oui", "O", "OUI", "o", "OUi", "oui" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" a écrit dans le message de news: uBpFYRW$
Bonjours à tous, Voila, je n'arrive pas a controler la saisie dans une colone, je mexplique: dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou
oui ou o ou O mon message apparait automatiquement. Merci d'avance.
Un tres grand merci pour ton aide.
PS: tu porte un jolie pseudo :)
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message news:
#8$OBYW$EHA.1600@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub
Select Case Target
Case "Oui", "O", "OUI", "o", "OUi", "oui"
MsgBox " Mon message"
Case Else
'ne rien faire ou faire autre chose
End Select
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" <AZZE@Az.AZ> a écrit dans le message de news:
uBpFYRW$EHA.2076@TK2MSFTNGP15.phx.gbl...
Bonjours à tous,
Voila, je n'arrive pas a controler la saisie dans une colone, je
mexplique:
dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui
ou
oui ou o ou O mon message apparait automatiquement.
Merci d'avance.
Un tres grand merci pour ton aide. PS: tu porte un jolie pseudo :)
"Pounet95" a écrit dans le message news: #8$OBYW$
Bonjour, Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case Target Case "Oui", "O", "OUI", "o", "OUi", "oui" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" a écrit dans le message de news: uBpFYRW$
Bonjours à tous, Voila, je n'arrive pas a controler la saisie dans une colone, je mexplique: dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou
oui ou o ou O mon message apparait automatiquement. Merci d'avance.
Clément Marcotte
Bonjour,
Tu peux être un petit peu paresseux et raccourci ton case un brin. ;-)
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case ucase(Target) Case "O", "OUI" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
"Pounet95" a écrit dans le message de news:%238$OBYW$
Bonjour, Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case Target Case "Oui", "O", "OUI", "o", "OUi", "oui" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" a écrit dans le message de news: uBpFYRW$
Bonjours à tous, Voila, je n'arrive pas a controler la saisie dans une colone, je mexplique: dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou
oui ou o ou O mon message apparait automatiquement. Merci d'avance.
Bonjour,
Tu peux être un petit peu paresseux et raccourci ton case un brin.
;-)
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub
Select Case ucase(Target)
Case "O", "OUI"
MsgBox " Mon message"
Case Else
'ne rien faire ou faire autre chose
End Select
End Sub
"Pounet95" <pasdepub@oneado.fr> a écrit dans le message de
news:%238$OBYW$EHA.1600@TK2MSFTNGP10.phx.gbl...
Bonjour,
Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub
Select Case Target
Case "Oui", "O", "OUI", "o", "OUi", "oui"
MsgBox " Mon message"
Case Else
'ne rien faire ou faire autre chose
End Select
End Sub
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" <AZZE@Az.AZ> a écrit dans le message de news:
uBpFYRW$EHA.2076@TK2MSFTNGP15.phx.gbl...
Bonjours à tous,
Voila, je n'arrive pas a controler la saisie dans une colone, je
mexplique:
dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape
Oui ou
oui ou o ou O mon message apparait automatiquement.
Merci d'avance.
Tu peux être un petit peu paresseux et raccourci ton case un brin. ;-)
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case ucase(Target) Case "O", "OUI" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
"Pounet95" a écrit dans le message de news:%238$OBYW$
Bonjour, Dans le module de la feuille, mettre
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B1:B20")) Is Nothing Then Exit Sub Select Case Target Case "Oui", "O", "OUI", "o", "OUi", "oui" MsgBox " Mon message" Case Else 'ne rien faire ou faire autre chose End Select End Sub
-- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"AZZA" a écrit dans le message de news: uBpFYRW$
Bonjours à tous, Voila, je n'arrive pas a controler la saisie dans une colone, je mexplique: dans B1:B20 ou BB (la colone entiere) jaimerai que lorsque ja tape Oui ou
oui ou o ou O mon message apparait automatiquement. Merci d'avance.
