Discussion :

[ekynoxx]

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 :

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
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.

[dadavyvy]

Avec :

Code :

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

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 :

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

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 :

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

For Each MyCell In Columns(Wk2).Cells

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

Code :

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

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

[ouskel'n'or]

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à

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...

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

[ekynoxx]

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 :

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

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 :

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

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 :

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

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.

[ouskel'n'or]

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

For Each MyCell In Columns(Wk2).Cells

Ensuite, tu dis

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+

[alsimbad]

il a peut etre un probleme a dechifrer

Code :

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

1
2
3
si (a ou b) et c
et :
si a ou (b et c)

[ekynoxx]

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