Affichage dynamique dans un label

[chrismydo]

Bonjour
Je souhaite afficher dynamiquement dans un label le contenu d'une cellule de la ligne active. j'ai trouvé un code qui permet de le faire, mais le contenu du label n'est pas dynamique c a d qu'il ne change pas automatiquement quand je change de ligne active.je suppose que c'est dû a la propriete du code du label qui est sur "Click", d'ailleur ca fonctionne quand je clique dessus. Quelqu'un peut il me dire comment faire ?
Voici le code que j'ai :
Private Sub Label1_Click()
Me.Label1 = Cells(ActiveCell.Row, 10).Value
End Sub

Cdt

 

[unrender]

Re : Affichage dynamique dans un label

Bonjour,

Normal vu que tu mets la procédure dans l'événement click...
Pourquoi ne pas la mettre dans la feuille, dans l'événement 'Change' ?

 

[job75]

Re : Affichage dynamique dans un label

Bonjour,

Pourquoi ne pas la mettre dans la feuille, dans l'événement 'Change' ?

Vous voulez dire, je pense, l'évènement SelectionChange :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Un bémol cependant.

Sélectionnez par exemple la plage A1:A5, puis appuyez sur <Entrée>.

La macro ne se déclenchera pas, bien que la cellule active soit modifiée.

Rien à faire contre ça...

A+

 

[unrender]

Re : Affichage dynamique dans un label

Bonjour,

Je parlais bien de l'évènement Change 🙂

Private Sub Worksheet_Change(ByVal Target As Range)

Ensuite, pour ne pas que la procédure se lance à chaque fois qu'une modification est faite sur la totalité de la feuille, il faut filtrer...

 

[job75]

Re : Affichage dynamique dans un label

Re,

chrismydo a dit :

le contenu du label n'est pas dynamique c a d qu'il ne change pas automatiquement quand je change de ligne active.

Il n'a pas dit quand je modifie une cellule.

A+

 

[unrender]

Re : Affichage dynamique dans un label

Re,

chrismydo a dit :



Il n'a pas dit quand je modifie une cellule.

A+

Héhé, bien vu, j'ai zappé cette partie 🙂

 

[unrender]

Re : Affichage dynamique dans un label

C'est pas 'joli", mais en stockant le numéro de ligne qui était active juste avant de 'bouger' dans une cellule de la feuille, ça devrait aller :

If Target.Row <> [a1] Then
    Me.Label1 = Cells(ActiveCell.Row, 10).Value
End If
[a1] = Target.Row

 

[chrismydo]

Re : Affichage dynamique dans un label

Re
Merci pour vos indications, en les suivant j'ai mis ce code qui fonctionne a merveille:
Private Sub Worksheet_SelectionChange (byVal Target As Range)
Me.Label1 = Cells(ActivateCell.Row, 10)
End Sub
A+