[VBA-E]- Probleme pour realiser une somme conditionnelle

Bonjour,
Je suis sur une macro qui doit calculer les quantites totales commandees par un pays particulier et d'autres conditions particulieres.
J'ai fais le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub UK_Compal()   Dim MyCell As Range Dim NotAKNQty As Double Dim CurrentWeek As Integer   CurrentWeek = DatePart("ww", Now(), 2) NotAKNQty = 0   For Each MyCell In Range("A1:A60000") If MyCell = "*United Kingdom*" _ And MyCell.Offset(0, 41).Value = "*COMPAL*" _ ' WIP est un statut particuler pour la commande And MyCell.Offset(0, 39).Value = "*WIP*" _ And IsError(MyCell.Offset(0, 37)) = True _ ' Je veux comparer la semaine de livraison a la semaine actuel. And WeekNum(MyCell.Offset(0, 37), 2) = CurrentWeek Then ' Je veux sommer les quantites de ces commandes particulieres NotAKNQty = NotAKNQty + MyCell.Offset(0, 11) End If Next MyCell   Range("H14").Value = NotAKNQty End Sub

---

J'ai 2 problemes :
1/ Lorsque je compile jai un message d'erreur sur la fonction WeekNum.
2/Si j'enleve la ligne relative a la fonction WeekNum la macro tourne mais me donne toujours pour valeur NotAKNQty egal a 0 ce qui ne devrait pas etre le cas...

Merci d'avance pour votre aide.

Pour le N° de semaine, utilise DatePart("ww",Ladate, 1 ou 2)
1 et 2 dépendent de la manière de faire démarer les semaines pour les comptabiliser depuis le début de l'année
1 -> si la semaine commence le dimanche
2 -> si la semaine commence le lundi

A+

NB - Jète un oeil dans l'aide à DatePart ;)

Dis-donc...

Tu ne manques pas d'air!

On t'a déjà répondu là:
http://www.developpez.net/forums/sho...d.php?t=328106

Bien vu il semble que grace a ton aide le probleme de la week soit resolue.

En revanche depuis tout a l'heure je ne m'en sors pas avec cette somme qui est toujours nulle.
Cela compile, la macro ne plante pas mais la valeur de NotAKNQty reste desesperement egale a 0.
Je t'ecris l'extrait de mon code qui pose probleme et sur lequel je fais des tests depuis 3h.

Code:

---

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

Sub Logik_Compal()   Dim MyCell As Range Dim NotAKNQty As Double NotAKNQty = 0   For Each MyCell In Range("A1:A60000") If MyCell.Value = "*United Kingdom*" _ And MyCell.Offset(0, 1).Value = "*COMPAL*" _ And MyCell.Offset(0, 2).Value = "*WIP*" _ And IsError(MyCell.Offset(0, 3).Value) = True Then NotAKNQty = NotAKNQty + MyCell.Offset(0, 4).Value End If Next MyCell   Range("A15").Value = NotAKNQty   End Sub

---

Merci d'avance pour ton aide.

Sorry...

Je dois partir, là.

Je te laisse entre d'autres mains expertes (chançard, va)!

Oulalalala,
j'ai peut etre une idee sur le fait que ca fait 3 heures que je suis bloque.
Qund j'ecris :

Code:

---

If MyCell = "*United Kingdom*"

---

La macro cherche t-elle les * dans la cell ou bien les * comme je pensais servent a dire que la cell doit CONTENIR la chaine de caractere "United Kingdom" ?
Je crois j'ai une idee de la reponse...
Mais dans ces cas la comment faire le test If dans la boucle for pour que la macro comprenne que la cell qu'il parcourt doit comporter le mot clef "United Kingdom" ?

Tu n'as pas besoin des étoiles. Et d'ailleurs, où t'as vu des étoiles ?
C'est dans Like ou dans find qu'on met des étoiles ;)

En fait, il peut arrive que l'orthographe change.
Donc, je cherche un moyen de travailler sur les mots clefs.
Les * me sont venues a l'idee car j'ai travaille pour coder des filtres et la propriete "contains" se traduit par des *.
Enfin, je ne sais pas comment traduire cette propriete dansd mon code :

Code:

---

1 2 3

For Each MyCell In Range("A1:A60000") If MyCell.Value = "*United Kingdom*" _ And MyCell.Offset(0, 1).Value = "*COMPAL*" _

---

Je cherche aussi un moyen pour que la macro dans sa recherche ne respecte pas la casse.

Merci d'avance

Ekynoxx qui s'en souviendra de ces etoiles!

Je reprends ton code

Code:

---

1 2 3

For Each MyCell In Range("A1:A60000") If instr(lcase(MyCell.Value), lcase("United Kingdom") <> 0 _ And instr(Ucase(MyCell.Offset(0, 1).Value),"COMPAL") <> 0 _

---

Tu dis
A+

Edit
Tu peux aussi utiliser like -> F1
Si tu as du mal, tu dis aussi...

Je pense comprendre le principe :
UCase et L Case permettent de tout ramener en miniscule ou majuscule et on fait la comparaison des 2 chaines de caracteres avec InStr.
J'ai ecris le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

ub Lcase() Dim MyCell As Range For Each MyCell In Range("A3:A10") If InStr(Lcase(MyCell.Value), Lcase("United Kingdom")) <> 0 _ And InStr(UCase(MyCell.Offset(0, 1).Value), "COMPAL") <> 0 Then MyCell.Offset(0, 2).Value = "ne respecte pas la casse" End If Next End Sub

---

J'ai une erreur de compilation sur Lcase qui me dit :
"Wrong number of arguments or invalid property assignment"

Cela ne vient pas du nombre d'argument car il y en a que 1.
Merci d'avance.

Tu ne peux pas créer une Sub qui porte le nom d'une fonction intrinsèque de VB!

Effectivement Alain,
curieux qui me l'ait pas dis il me semble que ca m etait deja arrive et qui me lavait fais remarquer.
Merci en tout cas.
Voila 1 soucis de moins.