Discussion :

[decarre]

Salut
j'ai fait mon programme, mais il ne marche pas... je debut sur VBA, donc je ne m'étonne de rien...

le but du programme est de:
1-quand je double clique sur un nom de la liste, le programme enregistre la cellule double cliquer comme cible
2-le programme efface la cellule (couper)
3-je double clique sur la cellule ou je veux deplacer la cible, le programme me colle le nom pris comme cible.

je vous joint le fichier de travail et mon programme.

le programme que j'ai fait jusque la est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [D9:H15]) Is Nothing Then nom = Target
Target.Cut
If Not Intersect(Target, [D9:H15]) Is Nothing Then Target = nom: nom = ""
Cancel = True
 
End Sub

si quelqu'un pouvait jeter un oeil, ce serait super sympa