Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Bug VBA et Syntaxe .End(xlToRight).Select

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion stephane.79
  • 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 !

S'inscrire
S

stephane.79

Guest
Bonjour à tous,

J'ai un bug sur 2 codes VBA pourtant simple.

Le 1er ci-dessous fonction lorsqu'il est sur une seule feuille. Dès qu'il se trouve sur plusieurs feuilles, il ne fonctionne pas ? Avez-vous une idée :

Range("A1048576").End(xlUp).End(xlToRight).Select
Range(Selection, Range("A1")).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
Range("A1").Select

De plus, je n'arrive pas à trouver la syntaxe pour réaliser 2 " .End(xlToRight).Select " sur la commande ci-dessous :
Range("A1048576").End(xlUp).End(xlToRight).End(xlToRight).Select => ceci ne fonctionne pas
Il s'agit peut-être d'un problème de priorité, de parenthèses ?

Un grand merci pour votre aide
Stephane.79
 
Trier par date Trier par votes
Re : Bug VBA et Syntaxe .End(xlToRight).Select

Bonjour à tous ____________________________EDITION: Bonjour Pierrot93

Stephane.79
Ton code est censé sélectionner quoi?
La zone active (ActiveSheet.UsedRange) d'une feuille d'un classeur?
Et tu veux ensuites définir une zone d'impression.

Si c'est cela, tu te compliques la vie, non ? 😉
(voir ci-dessous)
Code VBA:
Sub M1_stephane79() 'version longue
Dim DerLig&, DerCol&
DerLig = Cells(Rows.Count, "A").End(xlUp).Row
DerCol = Cells(1, Columns.Count).End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Cells(1, "A").Resize(DerLig, DerCol).Address
ActiveSheet.PrintPreview
End Sub
Code VBA:
Sub M2_stephane79() 'version courte
With ActiveSheet
.PageSetup.PrintArea = .UsedRange.Address
.PrintPreview
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Bug VBA et Syntaxe .End(xlToRight).Select

Bonsoir Staple1600, le Forum


Désolé pour cette réponse tardive, qq problèmes de connexion
Mon code est censé sélection un TCD d'une feuille

Ta version courte est très intéressante mais me pose le problème des fins de zones (dernière cellule active) qui peuvent aller bien au-delà du tableau.

Je retiens plutôt la version longue qui me permet de bien identifier la dernière cellule de mon tableau

Merci beaucoup
Stephane.79
 
Vote positif 0 Vote négatif
Re : Bug VBA et Syntaxe .End(xlToRight).Select

Bonjour,

Mon code est censé sélection un TCD d'une feuille
Cliquez pour agrandir...

tu as aussi ces possibilités, sans les champs de page
Code: 
ActiveSheet.PivotTables(1).TableRange1.Select
Avec :
Code: 
ActiveSheet.PivotTables(1).TableRange2.Select

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
198
sylvanu
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
704
Helios77
H
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
D
  • Question Question
XL 2019 VBA Définir une zone d'impression
Réponses
5
Affichages
837
dadaze
D
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
432
fredl
F
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
894
DELHOMME
D
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
732
job75
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
645
safranien
S
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
746
patricktoulon
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
932
Zonmé
Z
G
  • Résolu(e)
Copie de données d'une feuille à une autre
Réponses
2
Affichages
720
gui22
G
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
760
oguruma
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…