2 ligne de code qui ne marchent plus

Pierrot93

XLDnaute Barbatruc

• 5 Août 2010

• #2

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
@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Août 2010

• #3

Re : 2 ligne de code qui ne marchent plus

Bonjour,

Worksheet_SelectionChange(ByVal Target As Range)

Cliquez pour agrandir...

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😀

 

Vote positif 0 Vote négatif

V

VBA_première_fois

Guest

• 5 Août 2010

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2010

• #5

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

@+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Août 2010

• #6

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+

 

Vote positif 0 Vote négatif

V

VBA_première_fois

Guest

• 5 Août 2010

• #7

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2010

• #8

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Août 2010

• #9

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+

 

Vote positif 0 Vote négatif