Permutation de cellule
Résolu
best
-
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
-
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
