Discussion :

[luko6]

bonjour à tous
peut on améliorer ce code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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