Faire apparaitre Userform

[isa44]

Bonsoir, comment faire apparaitre un Userform quand je clique sur une cellule ?
Ceci pour pouvoir remplir cette cellule sélectionnée avec les saisies de l'userform .
Je vous remercie pour votre secours

 

[Cousinhub]

Re : Faire apparaitre Userform

Re-,
à Tout z'hasard....

Essaie ce code, pour voir.....

Sub Macro1()
Sheets("Signalements").Unprotect
Application.ScreenUpdating = False
  With Sheets("IMPRIM")
    .Visible = True
    Range("D15:P50").Copy
    Application.Goto Reference:="IMPRIM!R6C4"
    ActiveSheet.Paste Link:=True
    Application.Goto Reference:="Signalements!R6C4"
    .PrintOut Copies:=1, Collate:=True
    Range("A13:M260").ClearContents
    ActiveWindow.SelectedSheets.PrintPreview
    .Visible = False
End With
With ActiveSheet
    .EnableSelection = xlNoRestrictions
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End With
Application.ScreenUpdating = True
End Sub

 

[kjin]

Re : Faire apparaitre Userform

Re,
A défaut de solution immédiate, pour contourner le pb du "Select", tu pourrais pet-être utiliser l'événement "Worksheet_BeforeDoubleClick" au lieu de
"Worksheet_SelectionChange", pour éviter l' activation intempestive du formulaire.
C'est plus long, faut DoubleCicker sur les cellules.
A+
kjin

 

[isa44]

Re : Faire apparaitre Userform

Apparament ça fonctionne avec ton nouveau code bhbh.
Je le testerais dans tous les sens demain.
Merci à vous tous

 

[kjin]

Re : Faire apparaitre Userform

Re,
Bien vu bhbh.
Pas pensé à GOTO :mauvais (y a pas de smiley pour ça)
A+
kjin