Double click

Bonjour à tous,

Toujours dans la continuité d'avancer dans mon projet, je voudrai par un double click sur un nom dans la feuille qu'il m'ouvre l'Userform2 en incluant le nom dans le TextBox1.

Attention simplement ça je sais faire mais les cellules concernées sont souvent fusionnées.

Double click dans une cellule fusionnée je ne sais pas si c'est orthodoxe ou pas.

Seriez-vous m'aiguiller.

Merci d'avance de votre aide

Amicalement

Noel

Salut Noël,

Selon moi c'est possible de déclencher un code en double-cliquant dans des cellules fusionnées. Regarde le fichier ci-Joint.

Cordialement.

Bonjour Yvouille,

J'avais trouvé ceci :

Dim Contenu

Dim Plage As Range

Set Plage = Range("b4:i37") 'If Not Intersect(Target.Cells(1), Plage) Is Nothing Then

Contenu = Target.Cells(1).Value 'If Contenu <> "-" Then MsgBox (Contenu)

UserForm1.Show

UserForm1.TextBox1 = Contenu

Cancel = True

Mais le tien il est beaucoup plus simple

Je pense que j'utiliserai ton code.

Je te remercie

Amicalement

Noel