Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel pour select case

pour select case

8 réponses
Avatar
testou
bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la cellule A1
si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Pounet95
Bonjour, teste tout
Un exemple de la structure Select Case ...... End Select

Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on est poli et gentil"
Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les contributeurs sympas MPFE ou non"
Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de news:

bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la cellule A1
si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci



Avatar
Jacky
:o)))))))
JJ

"Pounet95" a écrit dans le message de
news:
Bonjour, teste tout
Un exemple de la structure Select Case ...... End Select

Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on est poli et gentil"
Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les contributeurs sympas MPFE ou
non"

Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de
news:


bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la cellule A1
si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci






Avatar
testou
oui merci et marrant

"Pounet95" wrote:

Bonjour, teste tout
Un exemple de la structure Select Case ...... End Select

Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on est poli et gentil"
Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les contributeurs sympas MPFE ou non"
Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de news:

bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la cellule A1
si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci







Avatar
Pierre Fauconnier
Marrant ;-)))... surtout que je viens de découvrir la pugnacité ( il n'y a
pas d'autres termes) de Testou à venir nous les cas... ;-)

Cela étant, le case "Urgent" ne sera jamais rencontré puisque l'on passe
d'abord sur Case "Teste Tout","Urgent"... ce qui implique que l'on répondra
toujours à "Urgent", même s'il n'est pas aussi "teste tout"...

Je dis ce la pour l'édification de Testou, car les case contenant plusieurs
valeurs ( case "Teste Tout", "Urgent" ) ne sont pas des case "Teste Tout"
AND "Urgent" mais des case "Teste Tout" OR "Urgent" et VBA ne passe pas sur
deux case à l'intérieur d'un bloc Select ... End Select

Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Pounet95" a écrit dans le message de
news:
Bonjour, teste tout
Un exemple de la structure Select Case ...... End Select

Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on est poli et gentil"
Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les contributeurs sympas MPFE ou
non"

Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de
news:


bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la cellule A1
si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci






Avatar
Jacquouille
Salut Pierre
Et avec toutes ces cases qui se promènent, on est certain qu'il n'en manque
pas une quelque part? -)

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"Pierre Fauconnier" a écrit dans le
message de news:
Marrant ;-)))... surtout que je viens de découvrir la pugnacité ( il n'y a
pas d'autres termes) de Testou à venir nous les cas... ;-)

Cela étant, le case "Urgent" ne sera jamais rencontré puisque l'on passe
d'abord sur Case "Teste Tout","Urgent"... ce qui implique que l'on
répondra
toujours à "Urgent", même s'il n'est pas aussi "teste tout"...

Je dis ce la pour l'édification de Testou, car les case contenant
plusieurs
valeurs ( case "Teste Tout", "Urgent" ) ne sont pas des case "Teste Tout"
AND "Urgent" mais des case "Teste Tout" OR "Urgent" et VBA ne passe pas
sur
deux case à l'intérieur d'un bloc Select ... End Select

Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Pounet95" a écrit dans le message de
news:
Bonjour, teste tout
Un exemple de la structure Select Case ...... End Select

Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on est poli et gentil"
Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les contributeurs sympas MPFE ou
non"

Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de
news:


bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la cellule A1
si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci










Avatar
Pierre Fauconnier
Salut Jacquouille,

Chez moi, c'est de moins en moins sûr... Je suis allé aux objets perdus,
mais comme ils étaient perdus, je n'ai rien trouvé...

Pierre

"Jacquouille" a écrit dans le message de
news:
Salut Pierre
Et avec toutes ces cases qui se promènent, on est certain qu'il n'en
manque

pas une quelque part? -)

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"Pierre Fauconnier" a écrit dans le
message de news:
Marrant ;-)))... surtout que je viens de découvrir la pugnacité ( il n'y
a


pas d'autres termes) de Testou à venir nous les cas... ;-)

Cela étant, le case "Urgent" ne sera jamais rencontré puisque l'on passe
d'abord sur Case "Teste Tout","Urgent"... ce qui implique que l'on
répondra
toujours à "Urgent", même s'il n'est pas aussi "teste tout"...

Je dis ce la pour l'édification de Testou, car les case contenant
plusieurs
valeurs ( case "Teste Tout", "Urgent" ) ne sont pas des case "Teste
Tout"


AND "Urgent" mais des case "Teste Tout" OR "Urgent" et VBA ne passe pas
sur
deux case à l'intérieur d'un bloc Select ... End Select

Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"Pounet95" a écrit dans le message de
news:
Bonjour, teste tout
Un exemple de la structure Select Case ...... End Select

Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on est poli et gentil"
Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les contributeurs sympas MPFE ou
non"

Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"testou" a écrit dans le message de
news:


bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la cellule A1
si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci














Avatar
® © ¿
;o))) Bonsour ® Pierre,
Fallait aller aux objets trouvés,
et attendre dans la salle des pas perdus !!!
;o)))

NB:
as-tu vu les liens FAQ Powerpoint que je te signale sur
le forum du meme nom ?
;o)))
@+

-----Message d'origine-----
Salut Jacquouille,

Chez moi, c'est de moins en moins sûr... Je suis allé
aux objets perdus,

mais comme ils étaient perdus, je n'ai rien trouvé...

Pierre

"Jacquouille" a écrit
dans le message de

news:
Salut Pierre
Et avec toutes ces cases qui se promènent, on est
certain qu'il n'en


manque
pas une quelque part? -)

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"Pierre Fauconnier"
a écrit dans le


message de news:



Marrant ;-)))... surtout que je viens de découvrir
la pugnacité ( il n'y



a
pas d'autres termes) de Testou à venir nous les
cas... ;-)




Cela étant, le case "Urgent" ne sera jamais
rencontré puisque l'on passe



d'abord sur Case "Teste Tout","Urgent"... ce qui
implique que l'on



répondra
toujours à "Urgent", même s'il n'est pas
aussi "teste tout"...




Je dis ce la pour l'édification de Testou, car les
case contenant



plusieurs
valeurs ( case "Teste Tout", "Urgent" ) ne sont pas
des case "Teste



Tout"
AND "Urgent" mais des case "Teste Tout" OR "Urgent"
et VBA ne passe pas



sur
deux case à l'intérieur d'un bloc Select ... End
Select




Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre.
Merci




"Pounet95" a écrit dans le
message de



news:
Bonjour, teste tout
Un exemple de la structure Select Case ...... End
Select





Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on
est poli et gentil"




Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les
contributeurs sympas MPFE ou




non"
Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque )
http://www.excelabo.net/




"testou" a écrit
dans le message de




news:
3CB1DECF-9F7C-46F7-9DD9-





bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la
cellule A1





si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci












.







Avatar
Pierre Fauconnier
Salut...

Oui, la salle des pas perdus n'est pas la salle des retrouvés, puisqu'ils ne
sont pas perdus... Et tu as remarqué que c'est dans les palaiss qu'il y a
souvent une salle des pas perdus... En fait, y a que les beaux qui s'y
retrouvent... ;)

Cela me fait penser qu'un palais népalais n'est pas laid...


ET merci pour les liens PPT . Pas encore eu le temps d'aller voir, mais cela
ne saurait tarder...

A bientôt, et bonne soirée


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"® © ¿" a écrit dans le message de
news:7bfb01c4cd86$d7bc2540$
;o))) Bonsour ® Pierre,
Fallait aller aux objets trouvés,
et attendre dans la salle des pas perdus !!!
;o)))

NB:
as-tu vu les liens FAQ Powerpoint que je te signale sur
le forum du meme nom ?
;o)))
@+

-----Message d'origine-----
Salut Jacquouille,

Chez moi, c'est de moins en moins sûr... Je suis allé
aux objets perdus,

mais comme ils étaient perdus, je n'ai rien trouvé...

Pierre

"Jacquouille" a écrit
dans le message de

news:
Salut Pierre
Et avec toutes ces cases qui se promènent, on est
certain qu'il n'en


manque
pas une quelque part? -)

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"Pierre Fauconnier"
a écrit dans le


message de news:



Marrant ;-)))... surtout que je viens de découvrir
la pugnacité ( il n'y



a
pas d'autres termes) de Testou à venir nous les
cas... ;-)




Cela étant, le case "Urgent" ne sera jamais
rencontré puisque l'on passe



d'abord sur Case "Teste Tout","Urgent"... ce qui
implique que l'on



répondra
toujours à "Urgent", même s'il n'est pas
aussi "teste tout"...




Je dis ce la pour l'édification de Testou, car les
case contenant



plusieurs
valeurs ( case "Teste Tout", "Urgent" ) ne sont pas
des case "Teste



Tout"
AND "Urgent" mais des case "Teste Tout" OR "Urgent"
et VBA ne passe pas



sur
deux case à l'intérieur d'un bloc Select ... End
Select




Ok?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre.
Merci




"Pounet95" a écrit dans le
message de



news:
Bonjour, teste tout
Un exemple de la structure Select Case ...... End
Select





Sub Teste_Tout
Select Case QuiDemande
Case "Teste Tout", "Urgent"
Lui_Repondre "A contre coeur","Parce qu'on
est poli et gentil"




Case "Urgent"
Ne_Pas_Lui_Repondre
Case "AV","JPS","Misange","Et tous les
contributeurs sympas MPFE ou




non"
Repondre "De bonne grace","Avec plaisir"
Case Else
.........
End Select
End Sub

Pas trop difficile à comprendre ?
--
Pounet95
on trouve tout ( ou presque )
http://www.excelabo.net/




"testou" a écrit
dans le message de




news:
3CB1DECF-9F7C-46F7-9DD9-





bjr ma condition
if then peut etre remplacé par select case

au fait je souhaite tester une valeur dans la
cellule A1





si elle est égale à 30.05
faire cette instruction
si elle egale à 30.06
faire cette instruction
select case me genere des erreur

savez vous comment mettre ce code avec select case

merci












.