2 ligne de code qui ne marchent plus

VBA_première_fois

XLDnaute Junior
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
HTML:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

End Sub

merci d'avance
 

Pierrot93

XLDnaute Barbatruc
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....

Code:
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
@+
 
G

Guest

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:D
 

Pierrot93

XLDnaute Barbatruc
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 :

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

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

@+
 
G

Guest

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

XLDnaute Junior
Re : 2 ligne de code qui ne marchent plus

bonjour

j'ai déjà essayé ceci mais cça n a pas marché
HTML:
'userForm_principale.CommandButton8.Caption = Worksheets("donnees_supprimees").[D1]

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

Discussions similaires