Zoom automatique
Résolu/Fermé
mijean94
Messages postés
413
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
12 septembre 2024
-
6 janv. 2016 à 23:47
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 7 janv. 2016 à 13:09
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 7 janv. 2016 à 13:09
A voir également:
- Zoom automatique
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Message automatique thunderbird - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Gmail libellé automatique - Guide
- Sommaire automatique word - Guide
6 réponses
via55
Messages postés
14509
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
2 janvier 2025
2 739
7 janv. 2016 à 00:10
7 janv. 2016 à 00:10
Bonsoir
En mettant par exemple la plage en B1 : B8:C10, en nommant cette cellule PLAGE et en modifiant ainsi la macro :
Cdlmnt
Via
En mettant par exemple la plage en B1 : B8:C10, en nommant cette cellule PLAGE et en modifiant ainsi la macro :
Range(Range("PLAGE")).Select
ActiveWindow.Zoom = True
Cdlmnt
Via
mijean94
Messages postés
413
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
12 septembre 2024
11
7 janv. 2016 à 10:31
7 janv. 2016 à 10:31
Bonjour,
La solution de VIA55 (1) marche nickel avec les coordonnées dans une cellule. Merci
J’ai fait un essai en adaptant cette solution dans ma macro, et ça ne marche pas, y a-t-il une modification à apporter ? Merci pour vos réponses.
Voici les codes que j’ai utilisés :
Const plage = "C12:K21"
Sub Macro3()
range(range("plage")).Select
ActiveWindow.zoom = True
End Sub
Cordialement
La solution de VIA55 (1) marche nickel avec les coordonnées dans une cellule. Merci
J’ai fait un essai en adaptant cette solution dans ma macro, et ça ne marche pas, y a-t-il une modification à apporter ? Merci pour vos réponses.
Voici les codes que j’ai utilisés :
Const plage = "C12:K21"
Sub Macro3()
range(range("plage")).Select
ActiveWindow.zoom = True
End Sub
Cordialement
via55
Messages postés
14509
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
2 janvier 2025
2 739
Modifié par via55 le 7/01/2016 à 11:31
Modifié par via55 le 7/01/2016 à 11:31
Re
Si la plage est une constante plage définie dans la macro le code est alors simplement :
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
Si la plage est une constante plage définie dans la macro le code est alors simplement :
Sub Macro3() Range(plage).Select ActiveWindow.Zoom = True End Sub
Cdlmnt
Via
"L'imagination est plus importante que le savoir." A. Einstein
mijean94
Messages postés
413
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
12 septembre 2024
11
7 janv. 2016 à 11:50
7 janv. 2016 à 11:50
ça marche très bien. merci
et dans le cas ou le résultat est :
Set plage = range(Cells(premlig, premcol), Cells(derlig, dercol))
cordialement
et dans le cas ou le résultat est :
Set plage = range(Cells(premlig, premcol), Cells(derlig, dercol))
cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14509
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
2 janvier 2025
2 739
7 janv. 2016 à 11:56
7 janv. 2016 à 11:56
Re,
Dans ce cas la variable plage récupère les données dans une cellule dont tu as indiqué les coordonnées il doit donc y avoir dans cette cellule par ex C12:K21) et on retombe dans le cas de la 1ere macro que je t'avais indiqué
Cdlmnt
Dans ce cas la variable plage récupère les données dans une cellule dont tu as indiqué les coordonnées il doit donc y avoir dans cette cellule par ex C12:K21) et on retombe dans le cas de la 1ere macro que je t'avais indiqué
Cdlmnt
mijean94
Messages postés
413
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
12 septembre 2024
11
7 janv. 2016 à 12:04
7 janv. 2016 à 12:04
J'ai ajouter le code dan une fonction que m'avais donnée CCM81 mais ça ne marche pas :
peut-être que je 'ai pas bien compris tes explications.
Sub zoom()
' zoom Macro
Dim derlig As Long, dercol As Long, plage As range
Dim premlig As Long, premcol As Long
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
premlig = Cells.Find("*", , , , xlByRows, xlNext).Row
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
premcol = Cells.Find("*", , , , xlByColumns, xlNext).Column
Set plage = range(Cells(premlig, premcol), Cells(derlig, dercol))
range(range("PLAGE")).Select
ActiveWindow.zoom = True
cordialement
peut-être que je 'ai pas bien compris tes explications.
Sub zoom()
' zoom Macro
Dim derlig As Long, dercol As Long, plage As range
Dim premlig As Long, premcol As Long
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
premlig = Cells.Find("*", , , , xlByRows, xlNext).Row
dercol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
premcol = Cells.Find("*", , , , xlByColumns, xlNext).Column
Set plage = range(Cells(premlig, premcol), Cells(derlig, dercol))
range(range("PLAGE")).Select
ActiveWindow.zoom = True
cordialement
via55
Messages postés
14509
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
2 janvier 2025
2 739
>
mijean94
Messages postés
413
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
12 septembre 2024
7 janv. 2016 à 12:51
7 janv. 2016 à 12:51
Non désolé c'est moi qui n'avais pas compris (j'aurais du!) que tu voulais définir la plage dans la macro
Donc tu remplaces
Set plage = range(Cells(premlig, premcol), Cells(derlig, dercol))
range(range("PLAGE")).Select
ActiveWindow.zoom = True
simplement par
Range(Cells(premlig, premcol), Cells(derlig, dercol)) Select
ActiveWindow.zoom = True
Cdlmnt
Donc tu remplaces
Set plage = range(Cells(premlig, premcol), Cells(derlig, dercol))
range(range("PLAGE")).Select
ActiveWindow.zoom = True
simplement par
Range(Cells(premlig, premcol), Cells(derlig, dercol)) Select
ActiveWindow.zoom = True
Cdlmnt
mijean94
Messages postés
413
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
12 septembre 2024
11
7 janv. 2016 à 13:09
7 janv. 2016 à 13:09
Merci Via55, ça marche très bien.
j'ai rajouté un point devant Select.
Cordialement
j'ai rajouté un point devant Select.
Cordialement