Discussion :

[MobyKDIK]

Bonjour à tous
J'espère ne pas ramener des sujets déjà résolus, je viens d'écumer le web sans trouver de réponse à mon problème
Je suis en train de tout faire pour optimiser mon code, et plus précisément de virer tous les "Select" et "Activate" de celui-ci
Certains Activate me résistent, et je n'ai pas réussi à savoir si cela est obligatoire ou si je n'ai pas encore trouvé la soluce qui permet de l'éviter
Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
'wsavis.Activate
    With wsavis.Range(Columns(cavisfirst), Columns(cavislast))
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

wsavis est une variable déjà rentrée de feuille excel
Je précise que cela marche quand je laisse le "Activate"

EDIT : Je rajoute à cela la commande qui me permet de zoomer selon les colonnes non vides de ma feuille : comment eviter de faire un "Range("A:I").Select" et garder un zoom adapté ?

Dois-je enregistrer un range temporaire qui prenne mes colonnes ?
Je vous remercie de votre aide !

[Marc-L]

Bonjour, bonjour !

Ligne n°3 : comme pas de feuille de calculs précisée, les deux objets Columns sont donc ceux de la feuille active ‼

_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[MobyKDIK]

Purée, désolé pour le post
Même après déjà 2 mois de vba je continue de louper des range sans préciser la feuille .... Je crois que j'en laisserai toujours passer
Merci quand même !

Par contre je persiste avec ma question quant au zoom adapté à une plage sélectionnée : comment s'affranchir du "Select" ?

[joe.levrai]

Bonjour,

montre-nous le code de ta procédure où tu n'arrives pas à retirer le Select

tu auras une réponse aussi rapide et efficace que pour le premier exemple qui contenait le code

[MobyKDIK]

Effectivement, un bout de code vaut mieux que 2 lignes d'explications !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
wsnext.Activate
    wsnext.Range(wsnext.Columns(cavisfirst), wsnext.Columns(cavislast)).Select
    ActiveWindow.Zoom = True

Voila ce que je chercher à "nettoyer" : un zoom adapté à la taille de mon tableau

Je te remercie de ta réponse, et attend avec impatience la prochaine à venir !