Cet exemple vous apprend à échanger deux valeurs dans Excel VBA. Vous aurez souvent besoin de cette structure dans des programmes plus compliqués comme nous les verrons plus loin.
Deux valeurs sur votre feuille de calcul.
Placez un bouton de commande sur votre feuille de calcul et consultez les lignes de code suivantes:
1- Tout d’abord, nous déclarons une variable appelée ContenuCell de type String.
Dim ContenuCell As String
2- Nous initialisons la variable ContenuCell avec la valeur de la cellule A1.
ContenuCell = Range ("A1").Value
3- Nous pouvons maintenant écrire en toute sécurité la valeur de la cellule B1 dans la cellule A1 (nous avons stocké la valeur de la cellule A1 dansContenuCell afin de ne pas perdre).
Range ("A1").Value = Range ("B1").Value
4- Enfin, nous écrivons la valeur de la cellule A1 dans la cellule B1.
Range ("B1"). Value = ContenuCell
5- Cliquez deux fois sur le bouton de commande. Résultat:
Macro:
Sub PermutionVal() Dim ContenuCell As String ContenuCell = Range("A1").Value Range("A1").Value = Range("B1").Value Range("B1").Value = ContenuCell End Sub