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

Bug macro

Créer une discussion

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
E

eduraiss

XLDnaute Accro
Bonjour le forum

le code ci dessous me permet de maquer des colonnes avant de faire une impression
La macro plante trés souvent a Range(Cells(1, Colonne + 1), Cells(1, 256)).EntireColumn.Hidden = True
le message suivant s'affiche "impossible de définir la classe hidden de la classe range"

je ne comprend pas
merci de votre aide

Sub Masquer()

DateR = Range("B1").Value
Ligne = Range("B65536").End(xlUp).Row
Colonne = Range("D2:IV2").Find(DateR).Column

Range(Cells(1, 4), Cells(1, Colonne - 1)).EntireColumn.Hidden = True
Range(Cells(1, Colonne + 1), Cells(1, 256)).EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = "$B$2:IV" & Ligne
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range(Cells(1, 4), Cells(1, 256)).EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
End Sub
 
Trier par date Trier par votes
Re : Bug macro

Salut,

Il me semble, mais sans avoir testé, que tu devrais limiter ton instruction à 255 car c'est le nombre maximum de colonnes.

Ainsi :

Range(Cells(1, Colonne + 1), Cells(1, 255)).EntireColumn.Hidden = True

devrait fonctionner.

A+
Horatio
 
Vote positif 0 Vote négatif
Re : Bug macro

Bonjour Eduraiss, Lord Nelson et le forum,


Essayes ce code en prenant la précaution de changer le nom de la feuille.

Sub Masquer()
Dim DateR As Date, Ligne As Integer, Colonne As Byte

With Sheets("Feuil1") ' Nom de feuille à adapter
DateR = .Range("B1").Value
Ligne = .Range("B65536").End(xlUp).Row
Colonne = .Range("D2:IV2").Find(DateR).Column
Range(.Cells(1, 4), .Cells(1, Colonne - 1)).EntireColumn.Hidden = True
Range(.Cells(1, Colonne + 1), .Cells(1, 256)).EntireColumn.Hidden = True
.PageSetup.PrintArea = "$B$2:IV" & Ligne
.PrintOut Copies:=1, Collate:=True
Range(.Cells(1, 4), .Cells(1, 256)).EntireColumn.Hidden = False
.PageSetup.PrintArea = ""
End With
End Sub

Cordialement

Bernard
 
Vote positif 0 Vote négatif
Re : Bug macro

Salut,

Il est possible que la macro plante lorsque DateR n'est pas trouvé. Tu peux y remédier en testant la valeur de Colonne :

Sub Masquer()

Dim Colonne As Long

DateR = Range("B1").Value
Ligne = Range("B65536").End(xlUp).Row
Colonne = Range("D2:IV2").Find(DateR).Column

If Colonne > 0 Then
Range(Cells(1, 4), Cells(1, Colonne - 1)).EntireColumn.Hidden = True
Range(Cells(1, Colonne + 1), Cells(1, 256)).EntireColumn.Hidden = True
ActiveSheet.PageSetup.PrintArea = "$B$2:IV" & Ligne
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range(Cells(1, 4), Cells(1, 256)).EntireColumn.Hidden = False
ActiveSheet.PageSetup.PrintArea = ""
Else
MsgBox "Pas de concordance !"
End If

End Sub

A+
Horatio
 
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

Discussions similaires

Y
  • Résolu(e)
Microsoft 365 Countifs et dates
2
Réponses
23
Affichages
775
youguybass
Y
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
914
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
231
Marie L
M
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
565
mikeduff
M
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
787
AtTheOne
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
459
juju91
J
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
242
vazvaz
V
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
325
dysorthographie
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
456
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
745
un internaute
U
  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
275
anthoYS
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
254
anthoYS
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
481
nabilexcel2007
N
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
782
job75
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
705
Helios77
H
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…