Pb code VBA

Bonjour,

je crois savoir d'ou vient ton problème, voici le code avec correction :

Sub rajout()
'variable de parcours des feuilles
Dim i As Integer
Dim J As Integer
Dim X As Range
Dim Y As Range
Dim N, NY As Integer
Dim Mois as integer
Mois = "'Aug 08"

Dim BUQu(8) As String

'File query
BUQu(5) = "MCT"
BUQu(6) = "MOT"
BUQu(7) = "PNE"
BUQu(8) = "PSS"

For J = 5 To J = 8
if j = 5 then
BUQU ="MCT"
end if
if j= 6 then
BUQU= "MOT"
end if
if j=7 then
BUQU = "PNE"
end if
if j= 8 then
BUQU = "PSS"
end if

'trouver le mois ds le fichier de comparaison pr chaque feuille ATTEBTION SALES/ORDERS

Y = Workbooks("Orders Comparison 08 v 09").Sheets(BUQu & " - Orders").Find(Mois)
NY = Y.Column

For i = 1 To 500

With Workbooks("Orders Comparison").Sheets(BUQu & " - Orders")

If .Find(Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 1)) Is Empty Then
.Sheets(BUQu).Rows(8).Insert Shift:=xlDown
'remplissage
.Cells(8, 1).Value = Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 2).Value
.Cells(8, NY).Value = Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 3).Value

Else
X = .Find(Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 1))
.Cells(X.Row, NY).Value = Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 3).Value

End If

End With

Next i

Next J
End Sub

Merci de ta reponse, mais cela ne marche pas plus .......

Re,

Je sais ce qui ne va pas :

Sub rajout()
'variable de parcours des feuilles
Dim i As Integer
Dim J As Integer
Dim X As Range
Dim Y As Range
Dim N, NY As Integer
Dim Mois as integer
Mois = "'Aug 08"

Dim BUQu(8) As String

'File query
BUQu(5) = "MCT"
BUQu(6) = "MOT"
BUQu(7) = "PNE"
BUQu(8) = "PSS"

For J = 5 To J = 8
if j = 5 then
BUQU ="MCT"
end if
if j= 6 then
BUQU= "MOT"
end if
if j=7 then
BUQU = "PNE"
end if
if j= 8 then
BUQU = "PSS"
end if

'trouver le mois ds le fichier de comparaison pr chaque feuille ATTEBTION SALES/ORDERS
Workbooks("Orders Comparison 08 v 09").activate
Sheets(BUQu & " - Orders").select
cells.select

Y = find(Mois) 'je crois que c'est cette ligne qui ne risque pas de marcher mais essaie
NY = Y.Column 'essaie mais cette ligne ne te renverra pas le numéro de colonne (je n'en suis pas sure

'je le réécrirais comme ça
'i=8
'j=2
'cells(i,j).select
'do while selectionn <> mois
'j=j+1
'cells(i,j).select
'loop
'NY= j

For i = 1 To 500

cells(i,1).select
If Cells(i, 1) Is Empty Then
Sheets(BUQu).Rows(8).Insert Shift:=xlDown
'remplissage
Cells(8, 1) = Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 2)
Cells(8, NY).Value = Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 3)

Else
Workbooks("Qury Orders").activate
sheets(BUQu).select
X = Find(selection)
Cells(i, NY).Value = Workbooks("Qury Orders").Worksheets(BUQu).Cells(i, 3).Value

End If

Next i

Next J
End Sub

'essaie mais je ne suis pas sure que ton code fonctionne. Parce que je ne suis pas sure que vba comprenne find et NY.column.
Le mieux est de faire une boucle comme je l'ai fait. Fais le par F8 et dis mois quelle ligne bloque

Ok je vais essayer, merci!

Find marche , je l'ai utilise ds un autre programme....

toujours pas ......

Bonjour,

Sur quelle ligne bloque t il?

Bonjour,

je sais pas c'est vraiment bizarre , il se passe rien. Ton programme comme le mien , compilent , mais il ne se passe rien. Tres bizarre ......
Pourtant je pense pas avoir d'erreur d'algo .....

Je le revois et je reviens vers toi avec un autre algo ....

Merci

Bonjour,

Désolé de taper l'incruste mais en lisant le code je relève plusieurs incohérences ... Il est étonnant que le compilateur n'est pas levé les exceptions:

Par exemple :

Dim Mois as integer
Mois = "'Aug 08"

Mois est de type Integer (nombre entier) et ici on lui attribut une chaîne de caractères ???

Dans le même ordre :

Dim X As Range
Dim Y As Range

X et Y sont déclarés comme des objets, mais ne sont pas instanciés.

Y = find(Mois)

N'est pas la syntaxe pour instancier un objet.

Autre incohérence:

For J = 5 To J = 8 

On ne passe jamais dans la boucle.

Pourquoi déclarer un tableau dimensionné à 8 alors que l'on a besoin que de 4 éléments ?

2 autres questions:

Sur quel classeur se trouve la macro, et le 2ème classeur était-il déjà ouvert ?

Le code a-t-il été passé en mode débogage (touche F8) ?

;o)

Bonjour ,

1/ parce que en vrai j'utilise les 8 (la c la partie du code que je bosse), Du coups g fait un copier-coller ....
2/cette macro utilise est sur un autre classeur que celui ou on ecrit, sur qury ....
3/ le month je l'ai releve .... eheh
4/Y:

Set Y = Workbooks("Crouzet Orders Comparison 08 v 09").Sheets(BUQu(J + 4)).Range("A1:Z500").Find(Mois)

5/ Le probleme c qu one ne passe pas ds la boucle , c'estr ca que je comprends pas .

Merci de t'interessaer toi aussi a mon ca !

Merci

Pour passer dans la boucle :

For i = 5 to 8
'....
Next i

Set Y = Workbooks("Crouzet Orders Comparison 08 v 09").Sheets(BUQu(J + 4)).Range("A1:Z500")

Find(mois) est une fonction ou une méthode, non une propriété.

Y est un objet Range.

Encore un peu de courage, tu ne vas pas tarder à trouver.

;o)

Set Y = Workbooks("Orders Comparison 08 v 09").Sheets(BUQu(J + 4)).Range("A1:Z500").Find(Mois)

voila pour Find. G craque , je l'ai deja utilise ds une autre partie de programme..... et ca marche parfaitement.. Ca fait deux jours que je patine ....

Je comprends pas pourquoi la boucle s'enclanche pas

Es-tu sûr de la syntaxe ?

Je te conseille d'utiliser le For Each ... Next

Dim plage As Range
Dim cl
Dim col As Long
Dim lig As Long
Dim Mois As String

Mois = "Aout"

Set plage = Sheets(1).Range("A1:Z500") 

For Each cl In plage
   If cl.Value = Mois Then
      col = cl.Column
      lig = cl.Row
      MsgBox "Colonne: " & col & ", Ligne: " & lig
   End If
Next cl

;o)

Ca Marche ,

J'avais laisse plein d'erreurs de synthaxe debiles.
Vos codes sont bons aussi. Du coup j'ai simpifie l'original
Merci pour votre aide!

Bonne journee