Salut,
Quand je clique droit sur une cellule je peux changer le NumberFormat en CAD a USD et vice versa.
Quand la cellule sélectionné est CAD -> la cellule devient USD
Jusque la tout va bien, mais j'aimerais lui préciser le taux de change avec une TextBox1.Value
Voici le code
Public Sub mymacro1()
Dim formatcell As String
If Selection.Column <> 6 Then MsgBox "Veuillez porter votre sélection sur la colonne F. Merci"
If Selection.Column = 6 Then
'On Error GoTo ErrorHandler
formatcell = Selection.NumberFormat
If formatcell = _
"_ * #,##0.00_) [$CAD]_ ;_ * (#,##0.00) [$CAD]_ ;_ * ""-""??_) [$CAD]_ ;_ @_ " Then
Selection.NumberFormat = _
"_ * #,##0.00_) [$USD]_ ;_ * (#,##0.00) [$USD]_ ;_ * ""-""??_) [$USD]_ ;_ @_ "
Selection.Offset(0, 1).NumberFormat = _
"_ * #,##0.00_) [$USD]_ ;_ * (#,##0.00) [$USD]_ ;_ * ""-""??_) [$USD]_ ;_ @_ "
'-----------------'
Selection.Offset(0, 25).Value = TextBox1.Value 'Selection.Offset(0, 24).Value = "USD"
'-----------------'
End If
If formatcell = _
"_ * #,##0.00_) [$USD]_ ;_ * (#,##0.00) [$USD]_ ;_ * ""-""??_) [$USD]_ ;_ @_ " Then
Selection.NumberFormat = _
"_ * #,##0.00_) [$CAD]_ ;_ * (#,##0.00) [$CAD]_ ;_ * ""-""??_) [$CAD]_ ;_ @_ "
Selection.Offset(0, 1).NumberFormat = _
"_ * #,##0.00_) [$CAD]_ ;_ * (#,##0.00) [$CAD]_ ;_ * ""-""??_) [$CAD]_ ;_ @_ "
End If
Exit Sub
'ErrorHandler:
'MsgBox "Vérifier que votre sélection ne comporte qu'un seul format. Merci"
Resume Next
End If
End Sub
J'ai donc une erreur vba me disant -> Erreur d'exécution '424': Objet Requis sur la ligne
Selection.Offset(0, 25).Value = TextBox1.Value
Quelqu'un peut m'aider s.v.p
Merci d'avance!