Bonjour
Aprés analyse le pb vient d’une procédure en place celle-ci :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Columns("B:AG").Select
Selection.EntireColumn.Hidden = False
Feuil3.Cells.Clear
ThisWorkbook.Sheets(« BDD »).Range(« B1 »).CurrentRegion.Copy Sheets(« Membres »).Range(« A1 »)
Range("B2").Select
Selection.AutoFilter
End Sub
Qui s’active dans le traitement du bouton « imprimer » à la fermeture de ce formulaire :
dans cette partie du code :
Private Sub CommandButton32_Click()
’
’ If Sheets(« Membres »).Cells.EntireColumn.Hidden > 6 Then
’
’ MsgBox("Max 6 colonnes à ", vbYesNo, « Confirmation ») = vbOK
’ Exit Sub
’ End If
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Unload Me
La dernière ligne :
Unload Me
La partie de code qui entrave ton action concernant les colonnes seules à imprimer par le simple fait de leur affichage laissant toutes les autres masquées c’est celle-ci :
Columns(« B:AG »).Select
Selection.EntireColumn.Hidden = False
Ces instructions sélectionnent toutes les colonnes de B à AG :
Columns(« B:AG »).Select
L’instruction suivante démasque toutes les colonnes de cette sélection :
Selection.EntireColumn.Hidden = False
Donc affiche toutes les colonnes qui par voie de conséquence apparaissent à l’impression
Qu’elle est l’objectif de cette partie à la fermeture de ce formulaire ?
Est elle nécessaire ?
Seul toi peut me le dire
En attendant je te propose ton fichier corrigé avec ces lignes de code inhibées
Cela fonctionne comme tu le souhaites concernant cette démarche mais peut être en met à mal d’autres
Testes tous les traitements pour en connaitre les impacts
Relèves les et fais moi un retour pour mettre en place des correctifs appropriés
Dans l’attente de te lire
Gestion_des_Artistes_v00.2.xlsm (771,0 Ko)