Permuter deux valeurs dans Excel VBA

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
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x