Permutation de cellule

Résolu/Fermé
best - 22 juin 2015 à 11:15
 best - 29 juin 2015 à 13:49
bonjour comment permuter la valeur d'une cellule par celle d'une autre plus clairement comment permuter la valeur de A1 par celle de A2 vis versa merci jespere que j'ai été claire encore merci



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
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...

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

0
merci ça marche
0