Select case sur une partie d'une chaine de caractere [Résolu]

[fowlie]

Bonjour à tous,

Mon problème est le suivant:

J'ai un tableur excel avec dans une colonne une chaine de caractere de type :
"élèment>sous-élement>mon objet>ma pièce"
Et selon la valeur de "mon objet" je souhaite mettre la cellule suivante à une certaine valeur

Voici mon code cba pour le moment, mais il ne fonctionne pas, j'ai créer une fonction que je lance à partir d'un bouton :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Secteur()
    For i = 3 To Sheets("PA2011").Range("A" & Rows.Count).End(xlUp).Row
        Select Case Sheets("PA2011").Cells(i, 10).Value
            Case "entrepôt>Production>piece A32"
                Sheets("PA2011").Cells(i, 15).Value = "PA"
            Case "entrepôt>Production"
                Sheets("PA2011").Cells(i, 15).Value = "production"
            Case "entrepôt>Production>Pièce B*"
                Sheets("PA2011").Cells(i, 15).Value = "AMG DC"
            Case "*maintenance"
                Sheets("PA2011").Cells(i, 15).Value = "maintenance"        
        End Select
    Next
End Function

Pour les deux premier cas, celà fonctionne car j'ai mis la chaine de caractère en entier. Mais je voudrais effectuer le select case uniquement sur une partie de la chaine, comme les cas 3 et 4 par exemple ... qui pour le moment ne fonctionne pas.

Merci d'avance pour votre aide!

[Daniel.C]

Essaie :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 3 To Sheets("PA2011").Range("A" & Rows.Count).End(xlUp).Row
    With Sheets("PA2011")
        If InStr(.Cells(i, 10), "entrepôt>Production>piece A32") > 0 Then
            .Cells(i, 15).Value = "PA"
        ElseIf InStr(.Cells(i, 10), "entrepôt>Production") > 0 Then
            .Cells(i, 15).Value = "production"
        ElseIf InStr(.Cells(i, 10), "entrepôt>Production>Pièce B") > 0 Then
            .Cells(i, 15).Value = "AMG DC"
        ElseIf InStr(.Cells(i, 10), "maintenance") > 0 Then
            .Cells(i, 15).Value = "maintenance"
        End If
    End With
Next

[fowlie]

ça raccourci un peu mon code ... mais le pb reste le même. Si je met la chaine de caractère entière ça marche .. mais si je ne met qu'une partie ça ne marche pas ..

EDIT

Je retire ce que j'ai dit, ça marche, un erreur de majuscule que je viens de corriger et c'est bon

Merci beaucoup!!

[Qwazerty]

Salut

Tu peux utiliser Like dans ce cas

Code :

1
2
3
if .Cells(i, 10) like "entrepôt>Production>piece A32" then
 
if .Cells(i, 10) like "*>Production>*" then

Si le projet est plus conséquent, il serait peut-être utile de créer un type perso, voir une class en fonction de ce que tu veux faire par la suite.

Tu peux aussi regarder du coté de la fonction Split, qui te permettrait de découper ta chaîne en utilisant les ">" comme clef.

++
Qwaz

[fowlie]

Merci pour l'info, ce que tu m'as proposé avant marche parfaitement, mais je retiens quand même =)