Contrôle à utiliser

Bonjour

Oui ça doit être ça (surtout si cela fonctionne)

Mais attention il y a la recopie dans la macro Private Sub CmbValider_Click()

  'Range("S6") = Left(Msg, Len(Msg) - 1)
  ActiveCell.Offset(0, 3) = Left(Msg, Len(Msg) - 1)

Mais je pense que ce bouton est source de problème, tu peux y appuyer sans passer par le double clic

Re,

Je viens de tester à nouveau les codes et je viens de me rendre compte d'un souci pour le code faisant apparaitre l'UserForm avec les listbox. Sur les premières lignes, le double clique ne pose aucun problème puis lorsque je double clique au delà de 10 lignes j'ai le message d'erreur suivant :

Erreur d'execution 1004 : impossible de lire la propriété Match de la classe WorksheetFunction.

Savez-vous à quoi cela est lié?

Bonjour

A condition que la cellule à gauche soit vide

Modifies la macro qui est dans le module de la feuille "Document Unique"

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 16 And Target.Row > 5 Then
    Target_Offset_Y = Target.Offset(0, -1)
    If Target_Offset_Y = "" Then Exit Sub
    Cancel = True
    Target.Value = ""
    UsfObjectivation.Show 0
  End If
End Sub

Sinon il faut le fichier en cause

Bonjour,

Merci beaucoup

Bonne continuation!