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

 

[MJ13]

Re : Faire apparaitre Userform

bonjour

Comme cela m'intéresse, je me joints à cette question.

Sinon essayes sur un évènement mais bon, après, il faut tout maîtriser.

 

[Cousinhub]

Re : Faire apparaitre Userform

Bonsoir,

dans l'évènement de code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then UserForm1.Show
' ou
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then UserForm1.Show
End Sub

Puis dans le code de l'usf, mettre en destination ActiveCell

 

[isa44]

Re : Faire apparaitre Userform

Merci ce code fonctionne bien :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then UserForm1.Show
End Sub

Mais comment inscrire les données choisie du Textbox1 sur la cellule qui à fait ouvrir l'Userform avec un command button ?

 

[Cousinhub]

Re : Faire apparaitre Userform

Re-,

par exemple :

ActiveCell.Value = Me.TextBox1.Value

 

[isa44]

Re : Faire apparaitre Userform

Bon maintenant il s'agirait qu'à chaque fois que je clique sur un nom d'une listbox1 , que ce nom se copie dans un textbox1 et si je sélectionne un autre nom qu'il s'ajoute à la suite du 1er nom (sur la même ligne) après une virgule.

Aussi lorsque l'Userform s'initialise que le textbox1 prenne la valeure de la cellule qui l'a activé

 

[Cousinhub]

Re : Faire apparaitre Userform

Re-,

Euh, si tu donnais toutes les données de suite?

Ceci éviterait de faire une pelote de ce fil.....😉

Et enfin, un petit fichier exemple, parce que là :

à chaque fois que je clique sur un nom d'une listbox1 , que ce nom se copie dans un textbox1 et si je sélectionne un autre nom qu'il s'ajoute à la suite du 1er nom (sur la même ligne) après une virgule.

Aussi lorsque l'Userform s'initialise que le textbox1 prenne la valeure de la cellule qui l'a activé

Si tu te comprends, pour ma part, j'avoue que j'ai du mal (à comprendre)

 

[isa44]

Re : Faire apparaitre Userform

Excuse moi j'avance pas à pas.
Voici le fichier

 

[kjin]

Re : Faire apparaitre Userform

Bonsoir,
J'ai pas vraiment saisi le sens, donc sans doute à côté.
A+
kjin

 

[MJ13]

Re : Faire apparaitre Userform

Bonjour à tous,

Merci à BHBH et Kjin pour leur réponse et à Isa pour la question.

Sinon voir dans ce post où j'avais mis un exemple avec un USF suite à l'aide d'EXCEL sur une sélection multiselect (c'est peut-être à côté de la plaque mais cela à l'air d'être dans la demande).

https://www.excel-downloads.com/threads/creer-une-interface-dans-excel.78195/

 

[isa44]

Re : Faire apparaitre Userform

Merci Kjin tu as bien compris ce que je voulais.
J'ai réussi à l'adapter à mon fichier.

Merci MJ13 je met le post de coté celà pourra peut être me servir plus tard.

Mais un petit problème survient lors de l'éxécution d'une macro, l'Userform1 s'affiche alors que je ne le voudrais pas ! Parce que les cellules concernées par l'userform sont sélectionnées dans la macro :

Sub Macro1()
'

' imprime en A3
'
Sheets("Signalements").Unprotect
Application.ScreenUpdating = False
  Sheets("IMPRIM").Visible = True
    Range("D15:P50").Select
    Selection.Copy
    Sheets("IMPRIM").Select
    Range("A13").Select
    ActiveSheet.Paste Link:=True
    Range("E14").Select
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("A13:M260").Select
    Selection.ClearContents
    Range("A13").Select
    Sheets("Signalements").Select
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 15
    Range("D15").Select
    ActiveWindow.SelectedSheets.PrintPreview
      Sheets("IMPRIM").Visible = False
        Sheets("Signalements").Select
    With ActiveSheet
    .EnableSelection = xlNoRestrictions
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End With
Application.ScreenUpdating = True
End Sub

Comment éviter celà ?

 

[kjin]

Re : Faire apparaitre Userform

bonsoir,
Evites simplement les "select" dans ta macro, par exemple :
....
Range("D15😛50").Copy
Sheets("IMPRIM").Range("A13").Paste Link:=True
etc....

A+
kjin

 

[isa44]

Re : Faire apparaitre Userform

J'ai essayé ça :

Sub Macro1()
'

' imprime en A3
'
Sheets("Signalements").Unprotect
Application.ScreenUpdating = False
  Sheets("IMPRIM").Visible = True
  
  
  
  Range("D15:P50").Copy
  
Sheets("IMPRIM").Range("A13").Paste Link:=True

  
    
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("A13:M260").ClearContents
    
    
    Sheets("Signalements").Select
    
    Range("D15").Select
    ActiveWindow.SelectedSheets.PrintPreview
      Sheets("IMPRIM").Visible = False
        Sheets("Signalements").Select
    With ActiveSheet
    .EnableSelection = xlNoRestrictions
    .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
End With
Application.ScreenUpdating = True
End Sub

Celà me met :
Erreur d'éxécution propriété ou méthode non gérée par cet objet

 

[Cousinhub]

Re : Faire apparaitre Userform

Bonsoir,

effectivement, le collage avec liaison semble nécessiter la sélection de la feuille de destination...

L'erreur doit provenir de cette ligne :

Sheets("IMPRIM").Range("A13").Paste Link:=True

Il faut, à priori, sélectionner la feuille "IMPRIM", afin de coller...
Je travaillais dessus, afin de trouver une solution, pas trop "lourde" 😀

 

[isa44]

Re : Faire apparaitre Userform

En effet l'erreur se situe à ce niveau