Comment convertir facilement entre différentes unités de température, telles que Celsius, Fahrenheit, Kelvin, dans votre mot

Dans cet article, nous allons vous montrer comment convertir facilement entre les unités de température, telles que Celsius, Fahrenheit, Kelvin, dans votre Word.

Faites bon usage de Word VBA, vous pouvez créer de nombreux outils petits mais utiles. Par exemple, vous pouvez parfaitement créer un convertisseur de température dans Word pour effectuer la conversion fastidieuse à votre place. Par conséquent, lisez la suite pour suivre plus de détails.

Insérer un formulaire utilisateur

Pour créer le convertisseur, vous devrez d'abord créer un formulaire utilisateur.

1. Tout d'abord, appuyez sur "Alt + F11" pour ouvrir l'éditeur VBA.
2. Cliquez ensuite sur "Normal" dans la colonne de gauche.
3. Cliquez ensuite sur "Insérer" et sélectionnez "UserForm".
4. Cliquez sur les poignées autour du formulaire pour ajuster sa taille.
5. Appuyez ensuite sur "F4" pour déclencher la "Fenêtre des propriétés".
6. Dans la fenêtre, nommez le formulaire utilisateur "frmTemperatureConverter" et définir sa légende comme "Convertisseur de température".
7. De plus, définissez la propriété "ShowModal" du formulaire sur "False".
8. Ensuite, dans la barre de menus, cliquez sur "Boîte à outils" pour le faire apparaître.
9. Utilisez les commandes de la boîte à outils pour créer une étiquette, deux zones de texte, deux boutons de commande et deux zones de liste déroulante. Placez ces contrôles sur le formulaire dans l'ordre suivant :
10. Définissez ensuite des propriétés spécifiques pour les contrôles créés :

• Cliquez d'abord sur la zone de texte 1. Nommez-la "txtTempValue1".
• Cliquez ensuite sur la zone de texte 2 et nommez-la « txtTempValue2 ».
• Cliquez ensuite sur l'étiquette et définissez sa légende sur "=".
• Cliquez sur la zone de liste déroulante 1 et nommez-la "cmbTempUnit1".
• Et cliquez sur la zone de liste déroulante 2 et nommez-la "cmbTempUnit2".
• Cliquez ensuite sur le bouton de commande 1 et nommez-le "btnConvert". Définissez la légende sur "Convertir".
• Cliquez sur le bouton de commande 2 et nommez-le "btnClose". Définissez sa légende sur "Fermer".

De plus, définissez d'autres propriétés si nécessaire.

Codes d'entrée pour les commandes

1. Double-cliquez sur le bouton "Convertir" pour entrer dans la zone de code. Collez-y les codes suivants :

Private Sub btnConvert_Click()
  Dim dTempValue1 As Double, dTempValue1InF As Double, dTempValue2 As Double
  Dim strTempUnit1 As String, strTempUnit2 As String
 
  strTempUnit1 = frmTemperatureConverter.cmbTempUnit1.Text
  strTempUnit2 = frmTemperatureConverter.cmbTempUnit2.Text
 
  dTempValue1 = CDbl(frmTemperatureConverter.txtTempValue1.Value)
 
  Select Case strTempUnit1
    Case "Celsius"
      dTempValue1InF = dTempValue1 * 33.8
    Case "Fahrenheit"
      dTempValue1InF = dTempValue1
    Case "Kelvin"
      dTempValue1InF = dTempValue1 * -457.87
    Case "Rankine"
      dTempValue1InF = dTempValue1 * -458.67
    Case "Delisle"
      dTempValue1InF = dTempValue1 * 1.2
    Case "Newton"
      dTempValue1InF = dTempValue1 * 102.414
    Case "Réaumur"
      dTempValue1InF = dTempValue1 * 34.25
    Case "Rømer"
      dTempValue1InF = dTempValue1 * 3.42857143
  End Select
 
  Select Case strTempUnit2
    Case "Celsius"
      dTempValue2 = dTempValue1InF / 33.8
    Case "Fahrenheit"
      dTempValue2 = dTempValue1InF
    Case "Kelvin"
      dTempValue2 = dTempValue1InF / -457.87
    Case "Rankine"
      dTempValue2 = dTempValue1InF / -458.67
    Case "Delisle"
      dTempValue2 = dTempValue1InF / 1.2
    Case "Newton"
      dTempValue2 = dTempValue1InF / 102.414
    Case "Réaumur"
      dTempValue2 = dTempValue1InF / 34.25
    Case "Rømer"
      dTempValue2 = dTempValue1InF / 3.42857143
  End Select
 
  ' Convert dTempValue2 to string
  If Abs(dTempValue2 - Int(dTempValue2)) > 0.00000001 Then
    frmTemperatureConverter.txtTempValue2.Value = Format(dTempValue2, "###0.00000000")
  Else
    frmTemperatureConverter.txtTempValue2.Value = Format(dTempValue2, "General Number")
  End If
End Sub

2. Ensuite, allez dans le formulaire et double-cliquez sur le bouton "Fermer". Saisissez les codes :

Private Sub btnClose_Click()
  Unload Me
End Sub

3. Double-cliquez ensuite sur le formulaire pour le saisir. Vous pouvez voir 2 listes déroulantes en haut. Assurez-vous de choisir "UserForm" pour la gauche et "Initialize" pour la droite.
4. Et collez-y également les codes.

Private Sub UserForm_Initialize()
    cmbTempUnit1.List = Array("Celsius", "Fahrenheit", "Kelvin", "Rankine", "Delisle", _
                        "Newton", "Réaumur", "Rømer")
    cmbTempUnit2.List = Array("Celsius", "Fahrenheit", "Kelvin", "Rankine", "Delisle", _
                        "Newton", "Réaumur", "Rømer")
End Sub

5. Enfin, enregistrez tous les codes.

Insérer un module

1. Toujours dans l'éditeur VBA, cliquez sur "Insérer" sous le projet "Normal".
2. Mais cette fois, choisissez "Module".
3. Double-cliquez dessus pour ouvrir et coller les codes :

Sub TriggerTemperatureConverter()
  frmTemperatureConverter.Show
End Sub

Exécutez maintenant la macro "TriggerTemperatureConverter" et vous pouvez déclencher le convertisseur. Vous pouvez affecter un bouton à cette macro. Pour des étapes détaillées, reportez-vous à cet article : Comment supprimer le formatage des textes collés avec macro et VBA dans votre mot

Vous pouvez consulter la vidéo ci-dessous :

Prêt pour l'effondrement de Word

Que vous ayez ou non subi une perte de données, vous devez toujours vous préparer en cas de catastrophe de données. Parmi tous les conseils utiles disponibles, nous vous recommandons fortement de vous munir d'un récupération docx outil à l'avance.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com