Masquer et réafficher colonne suivant condition ListBox

[G'Claire]

Salut le forum

J'utilise ce bout code pour l'impression de feuille (D'un fichier fait par un Exélien du forum).

Private Sub CmdImprimer_Click()

Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(i)).PrintOut
Else
End If
Next i
Application.DisplayAlerts = True
Call AffichageBoutonsMenu
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True

End Sub

Ce que j'essaye de rajouter c'est une fonction qui me Masquerai les colonnes (B;C;D;E) si le résultat de la sélection et "Tool_Dossier"
et une fois l'impression faite que cela me réaffiche ces colonnes

Je connais le principe pour masquer une colonne, mais pas par l'intermédiaire d'une sélection dans une listbox

Columns("B:E").Select
Selection.EntireColumn.Hidden = True

Je pensait faire :

Private Sub CmdImprimer_Click()

Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
If LbFeuilles.Selected(i) = "Tool_Dossier" then
Columns("B:E").Select
Selection.EntireColumn.Hidden = True
else
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(i)).PrintOut
End if
Else
End If
Next i
Application.DisplayAlerts = True
Call AffichageBoutonsMenu
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

mais cela me donne une incompatibilité de type

Et je ne sais si cela a une importance, ma ListBox est multselect.

Je vous remercie, pour votre aide,G'Claire

 

[Enfazz]

Bonjour, j'ai testé ça et ça semble fonctionner:

Private Sub CmdImprimer_Click()

Application.ScreenUpdating = False
For i = 0 To Lbfeuilles.ListCount - 1
If Lbfeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & Lbfeuilles.List(i)
If Lbfeuilles.List(i) = "Tool_Dossier" Then 'l'erreur est ici !

Columns("B:E").Select
Selection.EntireColumn.Hidden = True
Else
Application.DisplayAlerts = False
Sheets(Lbfeuilles.List(i)).PrintOut
End If
Else
End If
Next i
Application.DisplayAlerts = True
Call AffichageBoutonsMenu
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True

End Sub


remplacer votre :
If LbFeuilles.Selected(i) = "Tool_Dossier" then
par:
If Lbfeuilles.List(i) = "Tool_Dossier"

voila.

 

[G'Claire]

Re, le forum et bonjour Enfazz

Merci, de ta précision, et voila je que j'ai fait :

Private Sub CmdImprimer_Click()

Application.ScreenUpdating = False
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(i)
If LbFeuilles.List(i) = "Tool_Dossiers" Then 'l'erreur est ici !

Columns("B:E").Select
Selection.EntireColumn.Hidden = True
Else
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(i)).PrintOut
End If
Else
End If
Next i
Application.DisplayAlerts = True
Call AffichageBoutonsMenu
Selection.EntireColumn.Hidden = False
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True

End Sub

Donc cela me masuqe bien les colonnes B;C;D;E et me les réaffichent, mais cela ne m'imprime pas la feuille Tool_Données même si je sélectionne plusieurs feuilles (J'en ai 4 au total) et y compris cette feuille .

A mon avis je la place pas oui il faut ma condition.
Je vais chercher, merci,G'Claire

 

[max23]

Re : Masquer et réafficher colonne suivant condition ListBox

Bonjour à tous,

Aujourd'hui je souhaiterais pouvoir
Créer une macro automatique (pas de bouton ni rien) : si le projet est « non » dans feuille 1, alors on masques les 4 colonnes correspondantes à ce projet dans les 13 autres onglets.

Mais je ne sais pas comment faire
En vous remerciant par avance

 

[tototiti2008]

Re : Masquer et réafficher colonne suivant condition ListBox

Bonjour max,

Si tu as une question, tu ne dois pas la poster dans un fil existant mais créer ton propre fil
Dans Forum Excel
Bouton Ouvrir une nouvelle Discussion