2 ligne de code qui ne marchent plus

[VBA_première_fois]

bonjour tout le monde , bonjour le Forum

pourquoi ce code marchait lorsque le bouton etait dans une feuille , et ne marche plus lorsque j 'ai mis le bouton dan une USF

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

userForm_principale.Button_supprimer.Caption = "supprimer la ligne :  " & Selection.Row

End Sub

merci d'avance

 

[Pierrot93]

Re : 2 ligne de code qui ne marchent plus

Bonjour,

ce code est une procédure événementielle qui doit être placé dans le module d'une feuille pour fonctionner....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

le code que tu indiques, pour fonctionner devrait plutôt être attaché à l'événement click d'un bouton de ton usf....

bonne soirée
@+

 

[Guest]

Re : 2 ligne de code qui ne marchent plus

Bonjour,

Worksheet_SelectionChange(ByVal Target As Range)

Est une procédure évènementielle déclenchée lorsque la sélection de la feuille active change.

Cette procédure n'est pas exploitable ailleurs que dans le module de code de la feuille à laquelle elle appatient.

Cela suit le principe du "A chacun son métier et les vaches seront bien gardées".

A+
[Edit] Hi Pierrot😀

 

[VBA_première_fois]

Re : 2 ligne de code qui ne marchent plus

ok merci beaucoup

j'ai une 2eme question , comment faire pour afficher dans une USF le contenue d'une cellule

merci encore une fois

 

[Pierrot93]

Re : 2 ligne de code qui ne marchent plus

Re, Bonsoir Hasco🙂

peut être comme ceci, à placer dans le module de l'usf, s'exécute lors de l'initialisation et alimente un textbox :

Private Sub UserForm_Initialize()
TextBox1 = Range("A1")
End Sub

sinon un peu plus de détail serait le bienvenu...

@+

 

[Guest]

Re : 2 ligne de code qui ne marchent plus

Re,

Vois dans le forum tous les messages avec des userforms.
Ou trouve un didacticiel sur le net. C'est la base.

Pour un Label: Label1.Caption=Range("A1")
Pour un TextBox: TextBox1.Text=Range("A1")

A+

 

[VBA_première_fois]

Re : 2 ligne de code qui ne marchent plus

bonjour

j'ai déjà essayé ceci mais cça n a pas marché

'userForm_principale.CommandButton8.Caption = Worksheets("donnees_supprimees").[D1]

et

userForm_principale.Caption = Worksheets("donnees_supprimees").Range("D11").Value

 

[Pierrot93]

Re : 2 ligne de code qui ne marchent plus

Re,

ces codes devraient fonctionner si les noms des objets sont bons et si l'usf est chargé en mémoire lors de l'exécution du code....

 

[Guest]

Re : 2 ligne de code qui ne marchent plus

Re le Fil,
re Pierrot,

Pour la première formule j'ai un doute si tu as laissé l'apostrophe en début d'instruction!

A+