Excel Fonctions SI + OU

Hello Michel, rien de tel !

Simplement, la pièce jointe que je télécharge via ton lien ne fournie pas un fichier excel mais un fichier zip très bizarre qui, j'ai l'impression, ne contient rien me concernant...

C'est la raison pour laquelle je n'ai pas encore relevé ton message.
Mais peut etre que ça vient de moi ...

Merci en tout cas !

Je ne t'ai pas envoyé un fichier zip !!!!
mais un fichier Excel 2007 comportant une macro...

Le minimum aurait été de le signaler Le + tôt possible car peut-être est tu sous XL<2007

voici la macro:1 ou 2 modifs (dernière ligne col U au lieu de K)
et adjonction de commentaires montrant la modélisation rapide des objets à traiter , regroupement en bloc des règles de gestion...
ce pour faciliter la maintenance et/ou une évolution

Tu en fait ce que tu veux....

Option Explicit   

Sub apprecier()   
Dim derlig As Integer   
Dim T_model, T_in, T_out   
Dim c_in As Integer, c_m As Integer   
Dim cond1 As Boolean, cond2 As Boolean, cond3 As Boolean   

'-----------------MODELISATION OBJETS A TRAITER   
With Sheets(2)   
    derlig = .Range("D1000").End(xlUp).Row   
    T_model = .Range("A2:D" & derlig)   
End With   

With Sheets(1)   
    derlig = .Range("K1000").End(xlUp).Row   
    T_in = .Range("K2:O" & derlig)   
    ReDim T_out(1 To derlig - 1)   
End With   

'-------ANALYSE   
For c_in = 1 To UBound(T_in)   
    For c_m = 1 To UBound(T_model)   
        ' -----gestion des conditions   
            ' règle de gestion: si telle cellule feuille1colonne XXX est égale ou ressemble (like) à feuille2;celluleYYY ou la cellule feuille2 est vide==>VRAI   
        cond1 = (UCase(T_in(c_in, 5)) Like "*" & UCase(T_model(c_m, 1)) & "*") Or IsEmpty(T_model(c_m, 1)) 'colonneO   
        cond2 = (T_in(c_in, 1) = T_model(c_m, 2)) Or IsEmpty(T_model(c_m, 2)) 'colonne L   
        cond3 = (T_in(c_in, 2) = T_model(c_m, 3)) Or IsEmpty(T_model(c_m, 3)) 'colonne K   
        'si les 3 sont vraies alors tableau de sortie= analysis correspondant   
        If cond1 And cond2 And cond3 Then   
            T_out(c_in) = T_model(c_m, 4)   
        End If   
    Next c_m   
    'cas non trouvé   
    If IsEmpty(T_out(c_in)) Then T_out(c_in) = "OTHER"   
Next c_in   

'------RESTITUTION PROVISOIRE COL W   
Application.ScreenUpdating = False   
Range("W2").Resize(UBound(T_out), 1) = Application.Transpose(T_out)   

End Sub   

edit: modifié colonnes dans modélisation

J'essaye de suite ! merci

Hello,

Plusieurs commentaires:
ligne 150 par exemple, ça devrait afficher KCI (car la cellule O contien KCI) hors ça affiche collect issue. (idem ligne 365 ça affiche Delivery issue au lieu de KCI)

Est ce que ta "formule VBA" est liée a la feuille "cherche" comme Melanie, ou bien estce que tout est à partir de ta formule ?

Merci de tes commentaires!

Bonjour,

je n'ai pas de lignes 150 ni 365

Est ce que ta "formule VBA" est liée a la feuille "cherche" comme Melanie, ou bien estce que tout est à partir de ta formule ?

que veux tu dire ?

L'embarras du choix, merci beaucoup !!

Coucou
Erreur de compilation aux lignes
if Sheets("cherche").Cells(b, 1) & "*") =""

Alors si je fais la modif, toujours erreur : "attendu then ou goto".

Merci :)

Coucou Mélanie,

J'ai fait les modifs que tu as indiqué ci dessus Mais (!) du coup, ça donne toutes les lignes avec KCI comme résultats !!

Voila la formule telle que je l'ai modifiée avec ton aide:

Sub cherche()

i = 2
Do While Cells(i, 15) <> "" 'va balayer ta colonne O
b = 2
Do While Sheets("cherche").Cells(b, 4) <> "" 'va balayer la feuille cherche, modifie cherche par ton nom de feuille si tu le modifies
If Sheets("cherche").Cells(b, 2) = "" Then
If a >= 1 Then
Cells(i, 22) = Sheets("cherche").Cells(b, 4)
b = 1000

End If
Else
If Sheets("cherche").Cells(b, 3) = "" Then
c = Application.WorksheetFunction.CountIf(Cells(i, 15), "*" & Sheets("cherche").Cells(b, 2) & "*")
If Sheets("cherche").Cells(b, 1) = "" Then
a = 1
End If
If a >= 1 And c >= 1 Then
Cells(a, 22) = Sheets("cherche").Cells(b, 4)
b = 1000
End If
Else
If Sheets("cherche").Cells(b, 1) = "" Then
a = 1
End If

d = Application.WorksheetFunction.CountIf(Cells(i, 15), "*" & Sheets("cherche").Cells(b, 3) & "*")
If a >= 1 And c >= 1 And d >= 1 Then
Cells(a, 22) = Sheets("cherche").Cells(b, 4)
b = 1000
End If
End If
End If
b = b + 1

Loop
i = i + 1
Loop
End Sub



Merci !!

ça a l'air absolument parfait !!

En plein tests, merci beaucoup !!

Ce qui est étrange c'est quand je lance la macro sans rien toucher au fichier, plein de "others" (en colonne W) deviennent "Defective collect" !! (exemple lignes 3, 4, 6, 14...).

Alors que les conditions ne permettent pas de donner ce résultat, si je ne m'abuses !

Merci Michel :)

Je viens de re-re-re-re- essayer: je n'ai pas de problème avec le fichier que je t'avais transmis il y a quelques jours déjà; c'était supprimé chez moi compte tenu de ton silence...

On te revoit la semaine prochaine ou dans 15 jours ?

Coucou et merci !!

Donc, le problème maintenant c'est que si la colonne A de la feuille "cherche" est vide, le résultat sera forcément vide (ça ne tient pas compte des coditions colonnes B et C !!).

Merci :p