Problème redondance de code

bonjour à tous
peut on améliorer ce code?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

For Each Cellule In Range("d5:d6000") If Cellule Like "*Avant-vente*" Then Cellule(1, 0) = "Production Interne" Next Cellule For Each Cellule In Range("d5:d6000") If Cellule Like "*Documentation*" Then Cellule(1, 0) = "Production Interne" Next Cellule For Each Cellule In Range("d5:d6000") If Cellule Like "*Encadrement*" Then Cellule(1, 0) = "Production Interne" Next Cellule For Each Cellule In Range("d5:d6000") If Cellule Like "*Projet interne*" Then Cellule(1, 0) = "Production Interne" Next Cellule For Each Cellule In Range("d5:d6000") If Cellule Like "*Recette*" Then Cellule(1, 0) = "Production Interne" Next Cellule For Each Cellule In Range("d5:d6000") If Cellule Like "*Réunion*" Then Cellule(1, 0) = "Production Interne" Next Cellule

---

merci d'avance

bonjour luko6 le forum une boucle uniquement tu mets des conditions. condition or condition or ect...

Code:

---

1 2 3

For Each Cellule In Range("d5:d6000") If Cellule Like "*Avant-vente*" or Cellule Like "*Documentation*" Then Cellule(1, 0) = "Production Interne" Next Cellule

---

ps oubli pas les balises

Bonjour (et un salut à laetitia)
ou tout simplement faire la somme des instr, genre :

Code:

---

If InStr(Cellule, "Avant-vente") + InStr(Cellule, "Documentation") Then....

---

Cedci étant dit, comme pour dans l'autre discussion :
- traiter les différences de casse
- faire attention à ce que ces chaînes sont des mots et non des parties éventuelles de mots (bien que pour celles-ci, le cas soit peu probable. Mais on ne sait jamais, notamment en cas de pluriel avec le mot Recette, par exemple. )

Edit :
Je voudrais maintenant simplement appeler ton attention sur le fait que ce genre de moulinette (que l'on met en général en oeuvre pour palier un oubli lors de la conception originelle) peut comporter certains risques, à peser avec beaucoup de calme et précautions (voir également ton autre discussion à propos d'un problème similaire).
Ce qui est en général fait de manière raisonnée :
- détermination des cas ne laissant aucun doute possible. Pour ces cas là ===>> traitement "automatique"
- pour les autres cas (doute) : interrogation de l'utilisateur par un message lui montrant la saisie existante et l'action proposée. S'il en est d'accord ===>> action. Sinon : on lui propose l'abandon ou sa propre classification (une inputbox, dans ce dernier cas)
Une autre manière de procéder est :
- traitement automatique ne laissant aucun doute, sans appel par message
- insertion d'un * dans la colonne de classification pour tous les autres cas (doute)
- moulinette sur les autres cas (ceux ayant donné lieu à l'insertion d'un *) in fine, en interrogeant l'utilisateur au cas par cas, comme exposé dans la 1ère méthode.
- et (bien entendu) : mécanisme "bloquant" tant qu'existe un seul * encore présent.
Cette seconde manière est souvent moins pénalisante.
Ceci est valable (pour ce type de moulinette) quel que soit le langage de développement (méthode et non code)

Merci et encore désolé pour les balises
merci pour votre travail