Manipulation de texte dans code VB pour Excel
cdelecole
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
cdelecole Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
cdelecole Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train d'ecrire une petite macro dans excel qui regarde le texte se trouvant dans colonne A, B ou C, et dependemment de ce texte, il doit m'afficher une valeur dans colonne D.
Ca fonctionne très bien si je code le texte exact se trouvant dans la colonne, mais je n'arrive pas a lui dire de regarder une "partie" du texte, par exemple, dans le code ci-dessous, si la colonne A, B ou C contient Lampiris, la colonne D se remplit avec "gaz"
Comment faire pour regarder quelque chose du genre "piris" ou "ampiris" ?
J'ai essayé quelque chose comme *Lampiris*, mais ca ne fonctionne pas ...
##
Function TypeDepense(valeur1, valeur2, valeur3) As Variant
TypeDepense = "UNDEFINED"
If valeur1 = "Lampiris" Then
TypeDepense = "gaz"
ElseIf valeur1 = "LA MOUTONNERIE 1070" Then
TypeDepense = "Boucher"
ElseIf valeur1 = "O.N.E.M." Then
TypeDepense = "Salaire"
ElseIf valeur1 = "Cora" Or valeur1 = "Delhaize" Or valeur1 = "Boucher" Then
TypeDepense = "Nourriture"
ElseIf valeur2 = "Cora" Or valeur2 = "Delhaize" Or valeur2 = "Boucher" Then
TypeDepense = "Nourriture"
ElseIf valeur3 = "Cora" Or valeur3 = "Delhaize" Or valeur3 = "Boucher" Then
TypeDepense = "Nourriture"
End If
End Function
#####
merci !
Je suis en train d'ecrire une petite macro dans excel qui regarde le texte se trouvant dans colonne A, B ou C, et dependemment de ce texte, il doit m'afficher une valeur dans colonne D.
Ca fonctionne très bien si je code le texte exact se trouvant dans la colonne, mais je n'arrive pas a lui dire de regarder une "partie" du texte, par exemple, dans le code ci-dessous, si la colonne A, B ou C contient Lampiris, la colonne D se remplit avec "gaz"
Comment faire pour regarder quelque chose du genre "piris" ou "ampiris" ?
J'ai essayé quelque chose comme *Lampiris*, mais ca ne fonctionne pas ...
##
Function TypeDepense(valeur1, valeur2, valeur3) As Variant
TypeDepense = "UNDEFINED"
If valeur1 = "Lampiris" Then
TypeDepense = "gaz"
ElseIf valeur1 = "LA MOUTONNERIE 1070" Then
TypeDepense = "Boucher"
ElseIf valeur1 = "O.N.E.M." Then
TypeDepense = "Salaire"
ElseIf valeur1 = "Cora" Or valeur1 = "Delhaize" Or valeur1 = "Boucher" Then
TypeDepense = "Nourriture"
ElseIf valeur2 = "Cora" Or valeur2 = "Delhaize" Or valeur2 = "Boucher" Then
TypeDepense = "Nourriture"
ElseIf valeur3 = "Cora" Or valeur3 = "Delhaize" Or valeur3 = "Boucher" Then
TypeDepense = "Nourriture"
End If
End Function
#####
merci !
Configuration: Windows Vista Internet Explorer 7.0
