select case ...un mot!

Le
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 ( )
( ) ) /
( (_/
_)
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-Claude
Le #1336689
Salut,
Et avec c.value ??
A+
Jc

"claudy" 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 ( )
( ) ) /
( (_/
_)




isabelle
Le #1336688
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 ( )
( ) ) /
( (_/
_)


claudy
Le #1336685
Salut...merci
Ou mettre C.value???
a+
claudy
"Jean-Claude" news:c78s9k$nkq$
Salut,
Et avec c.value ??
A+
Jc

"claudy" 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 ( )
( ) ) /
( (_/
_)








claudy
Le #1336684
Si tu veux...

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

"claudy" 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 ( )
( ) ) /
( (_/
_)












Jean-Claude
Le #1336683
Select Case c.value


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

"claudy" 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 ( )
( ) ) /
( (_/
_)












Daniel.M
Le #1336682
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" 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 ( )
( ) ) /
( (_/
_)




claudy
Le #1336681
ça va pas :-((

"Jean-Claude" news:c78smg$gtd$
Select Case c.value


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

"claudy" 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 ( )
( ) ) /
( (_/
_)
















claudy
Le #1336680
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" 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" 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 ( )
( ) ) /
( (_/
_)








Daniel.M
Le #1336676
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" 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" 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" 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 ( )
( ) ) /
( (_/
_)












claudy
Le #1336675
Ok...daniel, merci beaucoup...
bonne nuit
Ca marche
A+
Claudy
"Daniel.M" 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" 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" 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" 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 ( )
( ) ) /
( (_/
_)

















Publicité
Poster une réponse
Anonyme