Zoom sur cellule

[Hervé]

Re : Zoom sur cellule

saut cisco

c'est vrai qu'il est bien l’outil de tototiti et c'est vrai aussi que je n'ai pas de nouvelle non plus

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:

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 Sub

a plus

 

[CISCO]

Re : Zoom sur cellule

Bonjour à tous, bonjour Hervé

Merci pour ce petit bout de macro. Je n'y suis pas arrivé en mettant ton code dans celui du module1, alors, après quelques esssais, j'ai essayé dans le code de l'USF. Et c'est OK (sauf que j'ai mis label2 au lieu de label3). C'est encore plus pratique.

@ plus

 

[chris]

Re : Zoom sur cellule

Bonjour
Coucou Herve

J'avais contacté Tototiti il y a quelques mois, inquiète de son silence ici et sur d'autres forums.

Il avait mis un petit mot dans le salon, disant qu'il ne fréquentait plus les forums mais que tout allait bien.

 

[Si...]

Re : Zoom sur cellule

salut

Merci Tototiti.

Une petite adaptation avec des barres de défilement qui permettent une navigation en continu.

Remarques :
La formule n’est "éditée" que si elle existe.
Quand l’Usf est ouvert, il est opérationnel pour tout autre classeur activé.
Dans cette utilisation, le fichier sera moins lourd avec une page vierge.
Pas de gestion des tailles des contrôles en fonction de la résolution et de la taille de l’écran

 

[Sylvain]

Bonsoir,

Une autre idée en changeant la taille de la cellule.
Il faut survoler le nom du mois dans mon exemple.