Bonjour,
Et il y a surtout sur ce fil à récupérer l'excellent Lien supprimé qui permet de traduire toutes les fonctions de l'utilitaire d'analyses en passant du français à l'anglais en un seul click. Traducti venant s'installer dans le menu Outils tout simplement.
Et pis encore une tite macro pour la route du week-end qui traduit une fonction française en anglais et pis qui se colle où on a en envie!!!!!!!!!!!!!!
de se la coller.
c'est le Ti party !!!!!!!!!!!!!!!!!
Sub MesMacros_FormuleTraduite()
Dim target As Range, Francais As String, Anglais As String
Dim Reponse, DObjet As DataObject
On Error Resume Next
Set target = ActiveCell
If target Is Nothing Then Exit Sub
With target
Francais = .FormulaLocal
Anglais = .Formula
End With
Reponse = MsgBox("Formule en Français : " & vbCr & _
Francais & vbCr & vbCr & _
"Formule en Anglais :" & vbCr & _
Anglais & vbCr & vbCr & _
"Copier cette formule ? ", vbYesNo, "Traduction de Formule")
If Reponse = vbYes Then
Set DObjet = New DataObject
With DObjet
.SetText Anglais
.PutInClipboard
End With
End If
End Sub
à consommer à volonté!!
Celeda
