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 :
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance pour votre aide!
Partager