• Initiateur de la discussion Initiateur de la discussion miki
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

miki

Guest
Bonjour, jaimerai faire une macro zoom, cest a dire que quand on clik dessus, cela fait un zoom de Xfois! Plus on clik dessus, plus sa grossis....et faire pareil pour rapeticir^^
Je connais la macro pour appliqué un zoom de x:
ActiveWindow.Zoom = 300 par exemple

mais comment faire dans mon cas??

Merci de vos réponses
 
Salut miki,

J'allais partir quand j'ai vu ton post, et puis je me suis dis un petit dernier pour la route

Regarde le fichier joint pour voir si cela te convient et tiens nous au courant.

[file name=miki.zip size=9953]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/miki.zip[/file]

@+
 

Pièces jointes

Re : macro zoom

Bonsoir,

Suite a une recherche j'ai trouver se post avec le fichier excel joint.....
-----
Je n'arrive pas voir le code utilise dans se fichier pour pour le recuperer?

Qui pourrait me donner une solution:
En effet je souhaite dans une case C1 par exemple notre un chiffre 90 et ce chiffre soir le zoome de l'a page.....

Merci a vous
 
Re : macro zoom

Bonsoir,
Dans le module de la feuille
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
    ActiveWindow.Zoom = IIf([C1] <> "", [C1], 100)
End If
End Sub
Le zoom repasse à 100% si C1 est effacé
A+
kjin
 
Re : macro zoom

Re,
je suis novice sur excel
...et VBA puisque c'est de ça dont-il s'agit
ALT+F11 pour ouvrir l'éditeur VBE (s'il est bien installé sur ta machine)
Dans la fenêtre à gauche (Projet - VBA Project) , cherche ton fichier et double-click sur la feuille concernée et dans la fenêtre qui s'ouvre à droite, colle les lignes que j'ai postées précédemment

Regarde la pièce jointe 880459

A+
kjin
 

Pièces jointes

  • tf1.jpg
    tf1.jpg
    33.4 KB · Affichages: 106
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
240
  • Question Question
Microsoft 365 Personal.xlsb
Réponses
4
Affichages
755
Réponses
4
Affichages
586
Retour