Permutation de cellule

Résolu
best -  
 best -
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   Statut Membre Dernière intervention   160
 
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
best
 
merci ça marche
0