Cet exemple vous apprend comment échanger deux valeurs dans Excel VBA. Vous aurez souvent besoin de cette structure dans des programmes plus complexes que nous verrons plus loin.

Situation:

Deux valeurs sur votre feuille de calcul.

Swap Values in Excel VBA

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivant:

  1. Tout d’abord, nous déclarons une variable appelée température de type double.

Dim temp As Double
  1. Nous initialisons la température variable avec la valeur de la cellule A1.

temp = Range("A1").Value
  1. Maintenant, nous pouvons en toute sécurité écrire la valeur de la cellule B1 à la cellule A1 (nous avons stocké la valeur de la cellule A1 à température, donc nous ne le perdre).

Range("A1").Value = Range("B1").Value
  1. Enfin, nous écrivons la valeur de la cellule A1 (écrit à température) à la cellule B1.

Range("B1").Value = temp
  1. Cliquez deux fois sur le bouton de commande.

Résultat:

Swap Values Result

Swap Values Result