Bonjour à tous,
Je souhaiterai améliorer la fonction ci-après (créée en VBA). Mais ayant une vision limitée dans les possibilitées offertes, j'ai buté sur le problème . (j'ai essayé en la mixant avec des "SI" et "ET" , en essayant de rajouter un champ supplémentaire dans le code ...)
Voici le code (contenu dans le fichier en pièce jointe avec l'exemple que je développe ici)
Cette fonction permet d'associer un code spécifique si une condition est réunie par rapport à la cellule cible. Elle fonctionne très bien, mais je souhaiterai l'affiner en ajoutant une seconde condition "obligatoire" du genre :
Cher(es) membres du forum, auriez-vous des idées bien plus pertinentes que les miennes ?
Attendant de vous lire et vous remerciant par avance du temps que vous prendrez pour lire mon soucis et y répondre (si vous le pouvez)
Bien cordialement
Je souhaiterai améliorer la fonction ci-après (créée en VBA). Mais ayant une vision limitée dans les possibilitées offertes, j'ai buté sur le problème . (j'ai essayé en la mixant avec des "SI" et "ET" , en essayant de rajouter un champ supplémentaire dans le code ...)
Voici le code (contenu dans le fichier en pièce jointe avec l'exemple que je développe ici)
Function ChercheCode(champ, code, element)
ChercheCode = ""
For i = 1 To champ.Count
If InStr(element, champ(i)) > 0 Then ChercheCode = code(i)
Next i
End Function
Cette fonction permet d'associer un code spécifique si une condition est réunie par rapport à la cellule cible. Elle fonctionne très bien, mais je souhaiterai l'affiner en ajoutant une seconde condition "obligatoire" du genre :
Cher(es) membres du forum, auriez-vous des idées bien plus pertinentes que les miennes ?
Attendant de vous lire et vous remerciant par avance du temps que vous prendrez pour lire mon soucis et y répondre (si vous le pouvez)
Bien cordialement
Pièces jointes
Dernière édition: