Permutation de cellule
Résolu/Fermé
A voir également:
- Permutation de cellule
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Fusionner cellule excel - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
22 juin 2015 à 14:56
22 juin 2015 à 14:56
Bonjour Best, bonjour le forum,
Le code ci-dessous (à placer dans l'onglet approprié Feuil1(Feuil1) par exemple), agit au double-clic dans une cellule de la colonne A en permuttant les valeurs colonne A / colonne B...
Le code ci-dessous (à placer dans l'onglet approprié Feuil1(Feuil1) par exemple), agit au double-clic dans une cellule de la colonne A en permuttant les valeurs colonne A / colonne B...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim TEMP As Variant 'déclare la variable Temp (valeur TEMPoraire) If Target.Column <> 1 Then Exit Sub 'si le double-clic a lieu ailleurs sort de la procédure Cancel = True 'annule le mode édition lié au double-clic TEMP = Target.Offset(0, 1).Value 'définit la variable TEMP Target.Offset(0, 1).Value = Target.Value 'renvoie dans la cellule adjacente (colonne B) la valeur de la cellue double-cliquée Target.Value = TEMP 'renvoie dans la cellue double-cliquée la valeur de la variabe TEMP End Sub
29 juin 2015 à 13:49