[VBA-E] - Utilisation d'une variable avec la propriete offset

Bonjour a tous,

je cherche a faire un test sur toute une colonne mais dont l'indice peut changer.
J'ai fait le code suivant:

Code:

---

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

For Each MyCell In Range("3:3") If MyCell.Value Like "*Wk*" & CurrentWeek + 2 Then Wk2 = MyCell.Column Exit For End If Next MyCell   For Each MyCell In Columns(Wk2) If MyCell.Offset(0, 5 - Wk2) = "United Kingdom" Or MyCell.Offset(0, 5 - Wk2) = "UK" _ And MyCell.Offset(0, 94) = "Compal" Then If MyCell.Offset(0, 102 - Wk2).Value Like "*Deal Sea*" Then QtyOptWk2_UKCompalSea = QtyOptWk2_UKCompalSea + MyCell.Offset(0, 11).Value Else QtyOptWk2_UKCompalAir = QtyOptWk2_UKCompalAir + MyCell.Offset(0, 11).Value End If End If Next MyCell   Range("A1000").Value = QtyOptWk2_UKCompalAir

---

Ca compile mais quand je run la macro, j'ai une erreur de type 13.
Cela vient de la variable Wk2 qui pose pb a la propriete offset.

Si quelq'un sait comment le gerer.

Merci d'avance.

Avec :

Code:

---

For Each MyCell In Columns(Wk2)

---

VBA ne parcourt qu'une seule fois la boucle, car il n'y a q'une seule colonne. Ainsi MyCell est alors ici une colonne et :

Code:

---

MsgBox MyCell.Offset(0, 5 - Wk2) = "United Kingdom"

---

renvoie une erreur car tu compares une colonne à une chaîne de caractères.
Il faut :

Code:

---

For Each MyCell In Columns(Wk2).Cells

---

De même, il est mieux d'écrire :

Code:

---

For Each MyCell In Range("3:3").Cells

---

Rem. Si (If MyCell.Value Like "*Wk*" & CurrentWeek + 2 Then) est toujours faux, alors Wk2 sera surement égal à 0 (sauf s'il a été initialisé avant) et tu auras quand même une erreur

Sur quelle ligne l'erreur ? Et il serait bien que tu indiques "incompatibilité de type" plutôt que erreur 13 ;)
Maintenant, je ne comprends pas ta logique, là

Citation:

---

For Each MyCell In Columns(Wk2)
If MyCell.Offset(0, 5 - Wk2) = ...

---

pour "For Each MyCell In Columns(Wk2)" je comprends. Supposons que Wk2 = 12, on examine la colonne 12
Et puis, " If MyCell.Offset(0, 5 - Wk2) = ..."
Bon, finalement on vérifie la colonne 12 + 5 - 12 = 5
Tu peux faire ça... Quant à moi, ça m'embrouillerait plutôt... :aie:

Vérifie la valeur de Wk2 en sortie de boucle et donne-nous la ligne de ton erreur.;)
A+

En fait je dois pour dabord reperer la colonne pour les commandes prevues en semaine +2.
J'utilise le code suivant car l'indice de colonne peut varier ( le fichier etant mis a jour une fois par semaine)

Code:

---

1 2 3 4 5 6 7

For Each MyCell In Range("3:3") If MyCell.Value Like "*Wk*" & CurrentWeek + 2 Then Wk2 = MyCell.Column Exit For End If Next MyCell

---

Ensuite, parmi ces commandes je dois faire differents tests pour sommer celles qui viennent d'un meme groupe de pays, sont expedies par mer ou air...
Je vais chercher ces infos la sur d'autres colonnes mais sur la meme ligne que MyCell active d'ou l'idee du Offset.

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each MyCell In Columns(Wk2) If MyCell.Offset(0, 5 - Wk2) = "United Kingdom" Or MyCell.Offset(0, 5 - Wk2) = "UK" _ And MyCell.Offset(0, 94) = "Compal" Then If MyCell.Offset(0, 102 - Wk2).Value Like "*Deal Sea*" Then QtyOptWk2_UKCompalSea = QtyOptWk2_UKCompalSea + MyCell.Offset(0, 11).Value Else QtyOptWk2_UKCompalAir = QtyOptWk2_UKCompalAir + MyCell.Offset(0, 11).Value End If End If Next MyCell

---

Le probleme vient du bout de code suivant:

Code:

---

1 2	If MyCell.Offset(0, 5 - Wk2) = "United Kingdom" Or MyCell.Offset(0, 5 - Wk2) = "UK" _ And MyCell.Offset(0, 94) = "Compal" Then

---

En sortie de boucle Wk2 est egal a 31 ce qui est bien correct pour le fichier de cette semaine.

Merci d'avance.

Regarde ce qu'a mis dadavyvy, et que je n'avais pas relevé :(

Citation:

---

For Each MyCell In Columns(Wk2).Cells

---

Ensuite, tu dis

Citation:

---

En sortie de boucle Wk2 est egal a 31 ce qui est bien correct pour le fichier de cette semaine

---

donc, d'une semaine sur l'autre, tes offset varient... Quel est le pb pour utiliser des variables ?
A+

il a peut etre un probleme a dechifrer

Code:

---

1 2 3

si (a ou b) et c et : si a ou (b et c)

---

Merci de vos reponses.
Je vais tester et vous tiens informer si mon probleme est resolu.