Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel select case ...un mot!

select case ...un mot!

10 réponses
Avatar
claudy
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
\\\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
\ ( (_/
\_)
Signaler un problème avec ce contenu

10 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
Jean-Claude
Salut,
Et avec c.value ??
A+
Jc

"claudy" a écrit dans le message de
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
isabelle
bonjour claudy,

voici une possibilité, sachant que la fonction NB.SI accepte bien les
caractères générique.

Sub zazatest()
For i = 1 To 6
Select Case 1
Case Evaluate("CountIf(A" & i & ", ""=*man*"")")
Range("B" & i) = "Dimanche>>>>test1"
Case Evaluate("CountIf(A" & i & ", ""=*jeu*"")")
Range("B" & i) = "jeudi>>>>test2"
Case Evaluate("CountIf(A" & i & ", ""=*lun*"")")
Range("B" & i) = "Lundi>>>test3"
End Select
Next
End Sub

isabelle


Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub

--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)


Avatar
claudy
Salut...merci
Ou mettre C.value???
a+
claudy
"Jean-Claude" a écrit dans le message de
news:c78s9k$nkq$
Salut,
Et avec c.value ??
A+
Jc

"claudy" a écrit dans le message de
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)








Avatar
claudy
Si tu veux...

a+
(Sur MSN)
"claudy" a écrit dans le message de
news:4097f55c$0$22982$
Salut...merci
Ou mettre C.value???
a+
claudy
"Jean-Claude" a écrit dans le message de
news:c78s9k$nkq$
Salut,
Et avec c.value ??
A+
Jc

"claudy" a écrit dans le message de
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)












Avatar
Jean-Claude
Select Case c.value


"claudy" a écrit dans le message de
news:4097f55c$0$22982$
Salut...merci
Ou mettre C.value???
a+
claudy
"Jean-Claude" a écrit dans le message de
news:c78s9k$nkq$
Salut,
Et avec c.value ??
A+
Jc

"claudy" a écrit dans le message de
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)












Avatar
Daniel.M
Salut Claudy,

Sers-toi des If ... ElseIf qui prennent l'opérateur Like

For Each c In Range("A1:A6")
If c Like "*man*" Then
c.Offset(0, 1) = "Dimanche>>>>test1"
ElseIf c Like "*jeu" Then
c.Offset(0, 1) = "jeudi>>>>test2"
ElseIf c Like "*lun*" Then
c.Offset(0, 1) = "Lundi>>>test3"
End If
Next c

Salutations,

Daniel M.

"claudy" wrote in message
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
claudy
ça va pas :-((

"Jean-Claude" a écrit dans le message de
news:c78smg$gtd$
Select Case c.value


"claudy" a écrit dans le message de
news:4097f55c$0$22982$
Salut...merci
Ou mettre C.value???
a+
claudy
"Jean-Claude" a écrit dans le message de
news:c78s9k$nkq$
Salut,
Et avec c.value ??
A+
Jc

"claudy" a écrit dans le message de
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)
















Avatar
claudy
ok, merci daniel...j'y avais pensé, mais ceci n'est qu'un exemple :
en réalité, j'ai une dizaine de ElseIf c Like ...
est ce possible?
a+

"Daniel.M" a écrit dans le message de
news:
Salut Claudy,

Sers-toi des If ... ElseIf qui prennent l'opérateur Like

For Each c In Range("A1:A6")
If c Like "*man*" Then
c.Offset(0, 1) = "Dimanche>>>>test1"
ElseIf c Like "*jeu" Then
c.Offset(0, 1) = "jeudi>>>>test2"
ElseIf c Like "*lun*" Then
c.Offset(0, 1) = "Lundi>>>test3"
End If
Next c

Salutations,

Daniel M.

"claudy" wrote in message
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)








Avatar
Daniel.M
Ben oui. Essaie-le.

Aussi, tu peux exécutre ce genre de code (à adapter):

Sub test()
Dim C As Range, V As Variant, aMots As Variant, aRes As Variant

aMots = Array("*man*", "*jeu*", "*lun*")
aRes = Array("Dimanche>>>>test1", "Jeudi>>>>test2", "Lundi>>>test3")

For Each C In Range("A1:A6")
V = Application.IsNumber(Application.Search(aMots, C))
r = Application.Match(True, V, 0)
If IsError(r) Then
C(1, 2) = "" ' "Pas trouvé"
Else
C(1, 2) = aRes(r - 1)
End If
Next C

End Sub

Salutations,

Daniel M.

"claudy" wrote in message
news:4097f7ef$0$22977$
ok, merci daniel...j'y avais pensé, mais ceci n'est qu'un exemple :
en réalité, j'ai une dizaine de ElseIf c Like ...
est ce possible?
a+

"Daniel.M" a écrit dans le message de
news:
Salut Claudy,

Sers-toi des If ... ElseIf qui prennent l'opérateur Like

For Each c In Range("A1:A6")
If c Like "*man*" Then
c.Offset(0, 1) = "Dimanche>>>>test1"
ElseIf c Like "*jeu" Then
c.Offset(0, 1) = "jeudi>>>>test2"
ElseIf c Like "*lun*" Then
c.Offset(0, 1) = "Lundi>>>test3"
End If
Next c

Salutations,

Daniel M.

"claudy" wrote in message
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)












Avatar
claudy
Ok...daniel, merci beaucoup...
bonne nuit
Ca marche
A+
Claudy
"Daniel.M" a écrit dans le message de
news:
Ben oui. Essaie-le.

Aussi, tu peux exécutre ce genre de code (à adapter):

Sub test()
Dim C As Range, V As Variant, aMots As Variant, aRes As Variant

aMots = Array("*man*", "*jeu*", "*lun*")
aRes = Array("Dimanche>>>>test1", "Jeudi>>>>test2", "Lundi>>>test3")

For Each C In Range("A1:A6")
V = Application.IsNumber(Application.Search(aMots, C))
r = Application.Match(True, V, 0)
If IsError(r) Then
C(1, 2) = "" ' "Pas trouvé"
Else
C(1, 2) = aRes(r - 1)
End If
Next C

End Sub

Salutations,

Daniel M.

"claudy" wrote in message
news:4097f7ef$0$22977$
ok, merci daniel...j'y avais pensé, mais ceci n'est qu'un exemple :
en réalité, j'ai une dizaine de ElseIf c Like ...
est ce possible?
a+

"Daniel.M" a écrit dans le message de
news:
Salut Claudy,

Sers-toi des If ... ElseIf qui prennent l'opérateur Like

For Each c In Range("A1:A6")
If c Like "*man*" Then
c.Offset(0, 1) = "Dimanche>>>>test1"
ElseIf c Like "*jeu" Then
c.Offset(0, 1) = "jeudi>>>>test2"
ElseIf c Like "*lun*" Then
c.Offset(0, 1) = "Lundi>>>test3"
End If
Next c

Salutations,

Daniel M.

"claudy" wrote in message
news:4097f05c$0$21762$
Bonsoir à tous....
dans une colonne, j'essaye de faire un "select case"...
suivant le contenu d'une partie de ma cellule sélectionnée
mais ça ne va pas!
merci de votre aide
Claudy

Sub zazatest()
For Each c In Range("A1:A6")
Select Case c
Case Is = "*man*"
c.Offset(0, 1) = "Dimanche>>>>test1"
Case Is = "*jeu*"
c.Offset(0, 1) = "jeudi>>>>test2"
Case Is = "*lun*"
c.Offset(0, 1) = "Lundi>>>test3"
End Select
Next
End Sub


--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)