Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?dykVBqzJw6
Sub cvEuroDollar() coursDollar = [D2] If coursDollar = 0 Then Exit Sub For Each i In Selection If IsNumeric(i.Value) Then If Not i.HasFormula Then If InStr(i.NumberFormat, "Dollar") = 0 Then i.Value = i.Value / coursDollar i.NumberFormat = "#,##0.00"" Dollar""" End If End If End If Next i End Sub
Sub cvDollarEuro() coursDollar = [D2] If coursDollar = 0 Then Exit Sub For Each i In Selection If IsNumeric(i.Value) Then If Not i.HasFormula Then If InStr(i.NumberFormat, "") = 0 Then i.Value = i.Value * coursDollar i.NumberFormat = "#,##0.00"" """ End If End If End If Next i End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?dykVBqzJw6
Sub cvEuroDollar()
coursDollar = [D2]
If coursDollar = 0 Then Exit Sub
For Each i In Selection
If IsNumeric(i.Value) Then
If Not i.HasFormula Then
If InStr(i.NumberFormat, "Dollar") = 0 Then
i.Value = i.Value / coursDollar
i.NumberFormat = "#,##0.00"" Dollar"""
End If
End If
End If
Next i
End Sub
Sub cvDollarEuro()
coursDollar = [D2]
If coursDollar = 0 Then Exit Sub
For Each i In Selection
If IsNumeric(i.Value) Then
If Not i.HasFormula Then
If InStr(i.NumberFormat, "") = 0 Then
i.Value = i.Value * coursDollar
i.NumberFormat = "#,##0.00"" """
End If
End If
End If
Next i
End Sub
Sub cvEuroDollar() coursDollar = [D2] If coursDollar = 0 Then Exit Sub For Each i In Selection If IsNumeric(i.Value) Then If Not i.HasFormula Then If InStr(i.NumberFormat, "Dollar") = 0 Then i.Value = i.Value / coursDollar i.NumberFormat = "#,##0.00"" Dollar""" End If End If End If Next i End Sub
Sub cvDollarEuro() coursDollar = [D2] If coursDollar = 0 Then Exit Sub For Each i In Selection If IsNumeric(i.Value) Then If Not i.HasFormula Then If InStr(i.NumberFormat, "") = 0 Then i.Value = i.Value * coursDollar i.NumberFormat = "#,##0.00"" """ End If End If End If Next i End Sub
