convertir en euro x feuilles

[happymarmotte]

Bonjour

j`arrive a convertir une feuille en devsie EURO
mon taux de change est ds feuille specifique


toutes les semaines, je dois updater un fichier qui a de 5 a 10 feuilles.

la macro ci-dessous (ci-jointe) marche sur 1 feuille mais :

1/ Comment dire faire tourner macro sur les feuilles differentes de "FX RATE" et "macro"?

2/ Pourquoi la macro plante si je la colle le code sur la feuille "macro" : voir exemple


3/ est ce que le code est bon si j`ai + 150 000 lignes a traiter?

Private Sub CommandButton1_Click()
Dim Base As Range, Cell As Range, Liste As Range
Dim Lig1 As Integer, Lig2 As Integer, i As Integer

Application.ScreenUpdating = False

With Sheets("VRT")
.Range("D1").Select
Lig1 = .Range("D10000").End(xlUp).Row + 1
.Range("E2:E" & Lig1).ClearContents


Set Liste = .Range("D2😀" & Lig1 - 1)
End With

With Sheets("FX RATE")
Lig2 = .Range("A10000").End(xlUp).Row
Set Base = .Range("A1:A" & Lig2)
End With

' Transfert des données
For Each Cell In Liste

' Vérification de la présence du nom dans la zone résultat
If Application.CountIf(Base, Cell) > 0 Then
i = Application.Match(Cell, Base, 0)
Cell.Offset(0, 1) = Cell.Offset(0, -1) / Sheets("FX RATE").Cells(i, 2)
Else ' Coloration des noms absents en rouge
Cell.Interior.ColorIndex = 3
End If
Next Cell
Application.ScreenUpdating = True

End Sub




merci pour vos conseils

bonne apres midi a tous

happymarmotte

 

[pierrejean]

Re : convertir en euro x feuilles

bonjour happymarmotte

deja reveillée !!!

Vois si cela te convient

 

[happymarmotte]

Re : convertir en euro x feuilles

Salut jean Pierre

ben il est court l`hiver. fait deja chaud!
bref je me reveille et j`ai des choses a resoudre. dur! 😀

Merci pour ton aide - c`est exactement cela.

dis moi, j`en profite un peu la, j`ai ajoute un step ds mon doc :
identifier et reporter les montants superieurs a 1 mln comme explique ds mon code

mais la aussi ca plante a un certain moment (tout se reporte)
peux tu y jeter un oeil stp?
c`est quoi qui fait que tout se reporte (ou presque tout! 😱)


Sub Liste()
Dim Plage As Range
Dim sh, tablo()
Dim c As Range
Dim i As Byte
Dim x As Integer
Application.ScreenUpdating = False

For Each sh In Array("VRT") ' je peux ajouter des feuilles ci-besoin ainsi###

With Sheets(sh)
For Each c In .Range("e2:e" & .Range("e65536").End(xlUp).Row)
If CStr(c) > Sheets("macro").Range("f2").Value Then
x = x + 1
ReDim Preserve tablo(1 To 30, 1 To x)
For i = 1 To 30
tablo(i, x) = .Cells(c.Row, i)
Next i
End If
Next c
End With

Next sh ' pas de next sheet mais ca peut servir un jour
With Sheets("reportici").Select
With ActiveSheet

.Range("a2").Resize(UBound(tablo, 2), UBound(tablo, 1)) = Application.Transpose(tablo)

End With
End With

End Sub

merci pour ton aide eventuelle et encore merci pour le step 1

bonne soiree

happymarmotte

 

[pierrejean]

Re : convertir en euro x feuilles

bonjour happymarmotte

Vois si cela te convient

 

[happymarmotte]

Re : convertir en euro x feuilles

Bonsoir Pierre

je te remercie pour ton aide
c`est cela que je cherchais a faire.
j`espere que ca t`as pas pris trop de ton temps

pour ma cmprehension, peux tu me dire pourquoi ma macro ne marchait pas?
(point 1 explique ds mn file)?
de mon cote je regarde ton code
merci

bonne soiree

happymarmotte

 

[pierrejean]

Re : convertir en euro x feuilles

bonjour happymarmotte

ta macro ne fonctionnait pas parceque tu transformais un nombre en texte avant de le comparer a un autre nombre

j'ais un peu commenté la suite

pour ce qui est de ta premiere macro, je ne suis pas suffisament versé dans ce mode de programmation pour expliquer ce qui ne va pas , c'est d'ailleurs pour cela que j'ais repris avec ma methode (autodidacte)