Problème de répétition de macro sous VBA

S

Sarah Coff

Guest

• 27 Octobre 2010

• #16

Re : Problème de répétition de macro sous VBA

Merci beaucoup à tout les deux,

Par contre dernier petit soucis, c'est que la formule ne se fait pas, ou du moins ca ne se recopie pas dans la colonne M

 

Vote positif 0 Vote négatif

S

Sarah Coff

Guest

• 27 Octobre 2010

• #17

Re : Problème de répétition de macro sous VBA

Merci à tous,

cependant que ce soit avec la macro de toto ou d'odesta, la formule n'a pas l'air de fonctionner alors qu'avec ma macro de base la divison était faite.

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 27 Octobre 2010

• #18

Re : Problème de répétition de macro sous VBA

D'accord pour la confidentialité...
pourrais tu faire un fichier bidon qui comporte uniquement les colonnes du tableau qui sont utiles avec des données à la c... et la macro qui est concerné par ce post?

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 27 Octobre 2010

• #19

Re : Problème de répétition de macro sous VBA

Peux tu éclairé ma lanterne, stp?

Ta macro doit écrire le résultat d'une formule ou écrire la formule????

 

Vote positif 0 Vote négatif

S

Sarah Coff

Guest

• 27 Octobre 2010

• #20

Re : Problème de répétition de macro sous VBA

écrire le résultat. Donc en gros ma macro de base écrivait le resultat dans la colonne N pour ensuite la recopier dans M et donc remplacer l'ancienne valeur. Ca me permet d'avoir dans la colonne M d'avoir que des résultats en Euro

 

Vote positif 0 Vote négatif

S

Sarah Coff

Guest

• 27 Octobre 2010

• #21

Re : Problème de répétition de macro sous VBA

Voila un fichier light désolé encore pour le dérangement

 

Dernière modification par un modérateur: 17 Novembre 2010

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 27 Octobre 2010

• #22

Re : Problème de répétition de macro sous VBA

Re.

Voici le programme : le problme venait du format de la valeur de Fixing

VB:

Sub Convertir()
Dim rcell As Range
Dim rCellule As Range


For Each rCellule In Range("E3:E65536")
If rCellule <> "EUR" Then
    
       ma_ligne = rCellule.Row
       If Cells(ma_ligne, 12).Value <> 0 Then
       Set rcell = Range("N" & ma_ligne)
        rcell.Value = Round(Cells(ma_ligne, "M").Value / CDbl(Replace(Cells(ma_ligne, "L").Value, ".", ",")), 2)
        Range("M" & ma_ligne) = rcell.Copy
    
 
   End If
If rCellule = "" Then Exit Sub

End If
Next
End Sub

O

 

Vote positif 0 Vote négatif

S

Sarah Coff

Guest

• 27 Octobre 2010

• #23

Re : Problème de répétition de macro sous VBA

Super !! je te remercie vraiment Odesta tu es génial !!

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 27 Octobre 2010

• #24

Re : Problème de répétition de macro sous VBA

Bonjour à tous

Je n'étais pas si loin...

Code:

[COLOR="DarkSlateGray"][B]Sub toto()
Dim i&
  i = 0
  Do While [E3].Offset(i, 0) <> ""
    If [E3].Offset(i, 0).Value <> "EUR" And [COLOR="Red"]Val([/COLOR][L3].Offset(i, 0).Value[COLOR="Red"])[/COLOR] <> 0 Then
      [COLOR="Red"][M3][/COLOR].Offset(i, 0).Value = Round([M3].Offset(i, 0).Value / [COLOR="Red"]Val([/COLOR][L3].Offset(i, 0).Value[COLOR="Red"])[/COLOR], 2)
    End If
    i = i + 1
  Loop
End Sub[/B][/COLOR]

Mais quelle drôle d'idée que de vouloir diviser un nombre (Mark to Market) par un texte (Fixing) !​

ROGER2327
#4389

Dimanche 22 Haha 138 (Résurrection de Bosse-de-Nage, SS)
6 Brumaire An CCXIX
2010-W43-3T10:36:58Z

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 27 Octobre 2010

• #25

Re : Problème de répétition de macro sous VBA

ROGER2327 à dit:

Val(...)

Cliquez pour agrandir...

Une méthode de plus à ma besace, merci Roger !

 

Vote positif 0 Vote négatif