petit probleme

[xavier]

alors voilà je tente de faire une macro pour changer tout le prix de la feuille atta en les prenant dans la feuille first draft ... en tenant compte bien sur de la monaie utiliser .. bon le truc marche quand j interroge un utilisateur pour qu il me donne la referant mais qu en est t il pour qu il me fasse toute une colonne sans interroger l utilisateur .. en bref comment prendre en argument les element d une colonne pour les traiter ensuite avec ma fonction de recherche ... ma boucle foire quoi ... qui peut m aider ...

 

[Jon]

bonjour


un mini classeur exemple défriché de toutes données confidentielles ou un bout de code nous permettrait d'y voir un peu plus clair pour t'aider.


bye

 

[xavier]

alors le code .. je vous montre ca tout de suite ... ya des bug de partout ...





Dim Texte As String
Dim Money1 As String
Dim curency2
Dim curency1
Dim price
Dim final_price
Dim cellule
Dim x, y As Integer
Dim Bourikos As Range
Dim result As Object
Dim temp
Dim my_range As Range





Sub pouf_le_cascadeur()
y = 6
' pouf_le_cascadeur Macro
' Macro enregistrée le 02/09/2003 par chanelx

'cherche la money1 avant la recherche
'active la fenetre

Windows("first draft.xls").Activate
'active la cellule

Range("K2").Select
'cherche la money1 avant la recherche

Money1 = Selection
'saisir le numero du produit

Windows("ATA2003.xls").Activate
'cherche la money2 avant la recherche
curency2 = Cells(15, 8)
'retour dans first draft

Windows("first draft.xls").Activate

curency1 = "PRICE " & Money1
If (curency1 = curency2) = True Then

Else
If Money1 = "EUR" Then
Worksheets("EUR").Activate
Set my_range = Range("A1:A2300")
Else
Worksheets("USD").Activate
Set my_range = Range("B1:B2300")
End If

End If
Windows("ATA2003.xls").Activate
For x = 19 To 67 Step 1
Texte = Range("B" & CStr(x)).Value
MsgBox Texte
If Texte = Null Then
Exit For
Else
Windows("first draft.xls").Activate
'active la cellule
'lance la recherche du texte
temp = Application.VLookup(Texte, my_range, False, 2)
If IsError(temp) = True Then
MsgBox "barcode not found"
price = "NOT FOUND"
Else
Range("A1").Select
Cells.Find(What:=Texte, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole _
, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True).Activate
ActiveCell.Offset(0, 0).Range("J1").Select
price = Selection
MsgBox price
End If
ActiveCell.Offset(0, 0).Range("A1").Select
'change de fenetre
Windows("ATA2003.xls").Activate
' active la premiere cellule
Range("A1").Select
'lance la recherche de du texte
Cells.Find(What:=Texte, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True).Activate
'deplace a la cellule prix

Selection.Offset(0, 5).Range("A1").Select
'colle

Selection = price
Selection.Style = "Normal_2520"

With Selection.Font
.Bold = True
.Size = 12
End With


'Range("A1").Select
End If
Next x

End Sub




voilà si jamais qq un trouve ... je vous paye un coup a boire lol parce que ca fait trop longtemps que je galere dessus a cause de petit probleme ...