Hervé
XLDnaute Barbatruc
Re : Zoom sur cellule
saut cisco
c'est vrai qu'il est bien l’outil de tototiti
pour ta modif, j'ai ajouté deux lignes dans la macro maj du module 1, je ne sais pas si tu voulais le changement du label 1, ou le caption du USF, je t'ai mis les deux, met en commentaire la ligne inutile:
a plus
saut cisco
c'est vrai qu'il est bien l’outil de tototiti
pour ta modif, j'ai ajouté deux lignes dans la macro maj du module 1, je ne sais pas si tu voulais le changement du label 1, ou le caption du USF, je t'ai mis les deux, met en commentaire la ligne inutile:
Code:
Sub maj()
'En cas de clic sur le bouton de rafraichissement
With UFZoom
'Remplissage des zones de texte avec la valeur et la formule
'de la cellule active
.Label1.Caption = "Valeur en " & ActiveCell.Address(0, 0) '<===ajout
.Caption = "Valeur en " & ActiveCell.Address(0, 0) '<===ajout
.TBVal.Text = ActiveCell.Text
.TBForm.Text = ""
On Error Resume Next
.TBForm.Text = IIf(ActiveCell.FormulaLocal Like "=*", ActiveCell.FormulaLocal, "")
On Error GoTo 0
.Label3.Caption = ActiveCell.Address
End With
End Suba plus