Loupe a l'aide de la souris

Brigitte

XLDnaute Barbatruc

• 1 Novembre 2005

• #2

Bonsoir Pablo,


Ti nous avait concocté qqchse qui pourrait te convenir, ici : Lien supprimé.


Bonne soirée à toi et à tout le forum.

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 1 Novembre 2005

• #3

Bonsoir Brigitte et Pablo

Merci chère Brigitte de jouer la Gardienne du Temple !
La mémoire de la mine des trouvailles

Celle là je la découvre c'est un super joyau

Le Ti il n'a pas fait dans la dentelle !

Bravo et à bientôt

@+ GD

 

Vote positif 0 Vote négatif

R

REMECIEMENTS

Guest

• 1 Novembre 2005

• #4

Bonsoir,

Merci pour cette astuce.
Mais ce n'est pas tout à fait cela que je recherche.
Je souhaiterais savoir s'il existe une fonction excel qui permet lorsque l'on clique sur une cellule désirée ou une ligne ou une colonne que ces éléments puissent s'afficher en zoom de 200 % par exemple.

Merci de votre réponse.

 

Vote positif 0 Vote négatif

Ti_

Nous a quitté

Repose en paix

• 1 Novembre 2005

• #5

j'avais également mis sur l'ancien forum quelque chose qui agrandissait la cellule active, voire la colonne ou la ligne entière. Je ne saurais pas donner le lien d'origine, mais je crois que ce truc avait intéressé André, et peut-être aussi que si Celeda passe par là, elle pourrait le retrouver

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 2 Novembre 2005

• #6

Bonsoir Pablo, Brigitte, Gérard, Ti_,

Ci-joint une tentative sans garantie...

L'exemple joint utilise la procédure suivante :

Private Sub Workbook_SheetSelecionChange(ByVal Sh As Object, ByVal Target As Range)
Static AncCell As Range
      If Not AncCell Is Nothing Then
            With AncCell
                  .ColumnWidth = .ColumnWidth / 2
                  .RowHeight = .RowHeight / 2
                  .Font.Size = .Font.Size / 2
            End With
      End If
      With Target
            .ColumnWidth = .ColumnWidth * 2
            .RowHeight = .RowHeight * 2
            .Font.Size = .Font.Size * 2
      End With
      Set AncCell = Target
End Sub

Cliquez pour agrandir...

Cordialement, [file name=mDF_Loupe.zip size=9508]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_Loupe.zip[/file]

 

Pièces jointes

• mDF_Loupe.zip

  9.3 KB · Affichages: 144
• mDF_Loupe.zip

  9.3 KB · Affichages: 141
• mDF_Loupe.zip

  9.3 KB · Affichages: 141

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 2 Novembre 2005

• #7

Bonjour le forum
Bonjour Pablo, Brigitte, Gérard, Ti_ & Didier

Trop fort Didier. Moi je prend pour mettre au chaud.J'avais tenté avec l'objet zoom mais en vain.

Message édité par: Eric C, à: 02/11/2005 09:45

 

Vote positif 0 Vote négatif

P

PABLO

Guest

• 2 Novembre 2005

• #8

Bonsoir,

Super Merci

Pablo

 

Vote positif 0 Vote négatif